Eğer / hücre renklendirme

[turkanet]

F sütununda bazı hücreler A harfi şeklinde. makronun A olan hücreye ait A:J satır aralığını yeşil renk yapmasını istiyorum. yardımınızı rica ederim.

 

[Korhan Ayhan]

Merhaba,

Aşağıdaki kodu denermisiniz.

Sub RENKLENDİR()
    Dim X As Long
    
    Range("A:J").Interior.ColorIndex = xlNone
    
    For X = 1 To 1000
        If Cells(X, "F") = "A" Then
            Range("A" & X & ":J" & X).Interior.ColorIndex = 10
        End If
    Next
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[turkanet]

minnettarım korhan bey