Kolay Renklendirme - 2

[baydeniro]

Merhaba Arkadaşlar. D kolonuna bir numara verildiğinde veri satırının otomatik olarak H kolonunda numaralandırılmış renklere dönüşmesi sağlanabilirmi ?

 

[baydeniro]

Dosya Ekte

Dosya Ekte

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Application.Intersect(Target, [D2:D65536]) Is Nothing Then Exit Sub
    If Target.Count > 1 Then Exit Sub
    Set BUL = [H:H].Find(Target, LookAt:=xlWhole)
    If Not BUL Is Nothing Then
    RENK = Cells(BUL.Row, "H").Interior.ColorIndex
    Range("A" & Target.Row & ":D" & Target.Row).Interior.ColorIndex = RENK
    Else
    Range("A" & Target.Row & ":D" & Target.Row).Interior.ColorIndex = xlNone
    End If
End Sub

 

[Ali]

Sn COST_CONTROL cevaplamış alternatif olsun dedim.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [D:D]) Is Nothing Then Exit Sub
satirlar = "A" & Target.Row & ":D" & Target.Row
Range(satirlar).Interior.ColorIndex = Cells(Target + 1, "h").Interior.ColorIndex
End Sub

 

[baydeniro]

Çok Teşekkürler

Sayın Cost Control ve Sayın Ali ilginiz ve yardımlarınız için çok teşekkürler. İyi ki varsınız, Allah başarınızı artırsın. Sağlıcakla kalın.