Otomatik renklendirme

[saygili1977]

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.

 

[Murat OSMA]

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...

 

[saygili1977]

evet c ve d sutununu mutlaka veri giriyorum.

 

[Murat OSMA]

O hâlde deneyiniz;

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

 

[saygili1977]

ustat olmadı yada yapamadım ...

 

[saygili1977]

formul olarak yok mudur?

 

[Murat OSMA]

Dosyayı ekliyorum. TIKLA yazan butona basınız...

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

 

[hb1201]

arkadaşın dediği gibi. dosyayı ekledim ama renkleri tutturamadım

 

[saygili1977]

murat ustat nasıl yapıldığınıda anlatırsan sevinirim.

 

[Enqin]

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]

Sizin sıkıntınızı çözdüğümde kimler sevinecek ?

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.

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