Otomatik renklendirme

Katılım
7 Nisan 2007
Mesajlar
17
Excel Vers. ve Dili
EXCEL 2000
Merhabalar;

ekte örnek olarak sunduğum tabloda C ve D hücresini giriş yaptığım sırada I ve J hücresine otomatik olarak belirlediğim renklerin atmasını istiyorum.Böyle bir şansımız varmı.

Şimdiden teşekkür ederim.
 

Ekli dosyalar

Murat OSMA

Altın Üye
Altın Üye
Katılım
23 Mayıs 2011
Mesajlar
5,508
Excel Vers. ve Dili
Microsoft 365 TR-EN
Altın Üyelik Bitiş Tarihi
31-12-2028
C ve D sütunlarına, ikisine birden mutlaka veri giriyor musunuz ?
Sadece C ya da sadece D sütunlarına veri girdiğiniz oluyor mu ?
Farketmez aslında o şekilde de yaparız ama net bilgi alırsak seviniriz...
 

Murat OSMA

Altın Üye
Altın Üye
Katılım
23 Mayıs 2011
Mesajlar
5,508
Excel Vers. ve Dili
Microsoft 365 TR-EN
Altın Üyelik Bitiş Tarihi
31-12-2028
O hâlde deneyiniz;
Kod:
Sub Emre()
    Dim i As Integer
        For i = 2 To 22
            If Cells(i, 3) = "ANKARA" And Cells(i, 4) = "HAT" Then
                Cells(i, 9).Resize(, 2).Interior.ColorIndex = 6
            ElseIf Cells(i, 3) = "ANKARA" And Cells(i, 4) = "KOMPLE" Then
                Cells(i, 9).Resize(, 2).Interior.ColorIndex = 3
            ElseIf Cells(i, 3) = "KAYSERİ" And Cells(i, 4) = "HAT" Then
                Cells(i, 9).Resize(, 2).Interior.ColorIndex = 5
            ElseIf Cells(i, 3) = "KAYSERİ" And Cells(i, 4) = "KOMPLE" Then
                Cells(i, 9).Resize(, 2).Interior.ColorIndex = 4
            End If
        Next i
    i = Empty
End Sub
 

Murat OSMA

Altın Üye
Altın Üye
Katılım
23 Mayıs 2011
Mesajlar
5,508
Excel Vers. ve Dili
Microsoft 365 TR-EN
Altın Üyelik Bitiş Tarihi
31-12-2028
Dosyayı ekliyorum. TIKLA yazan butona basınız...

* Koşullu Biçimlendirme ile de yapılabilir...
 

Ekli dosyalar

Katılım
29 Ekim 2005
Mesajlar
5
bu konu ile ilgili benimde sıkıntım var. Murat bey çözerseniz seviniriz.
Ben de bir hücreye herhangi bir veri girdiğim zaman belirttiğim satırın renklenmesini istiyorum.
 

Murat OSMA

Altın Üye
Altın Üye
Katılım
23 Mayıs 2011
Mesajlar
5,508
Excel Vers. ve Dili
Microsoft 365 TR-EN
Altın Üyelik Bitiş Tarihi
31-12-2028
Sizin sıkıntınızı çözdüğümde kimler sevinecek ? :D

Yapmak istediğinizi anlatmadan sağlıklı bir çözüm sunamam.
Çünkü; sonuç istediğiniz gibi olmayacak.
Nedeni ise; dosyanızla ilgili hiçbir şey bilmiyor olmam.

Size yine de bir çözüm önereceğim. Gerisine karışmam !

■ A sütununa bir veri girdiğinizde, yazdığınız hücrenin 3 sağındaki hücreyi kırmızı renge boyar. Hücredeki veriyi sildiğinizde, hücrenin rengi kalkar.
Kod:
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 1 Then
        Target.Offset(0, 3).Interior.ColorIndex = 3
    If Target.Value = "" Then
        Target.Offset(0, 3).Interior.ColorIndex = 0
    End If
    End If
End Sub
 
Üst