Satır ve yazı rengi

[nadirornek]

E:H sutununda bulunan satırlarda dolgu rengi siyah olan hücrelerin yazı renklerini beyaz nasıl yapabiliriz.Sutunlarda satır rengleri değiştiği için böyle bir koda ihtiyacım var.

 

[askm]

Sub ASKM()
For i = 1 To 100
    If Cells(i, 5).Interior.Color = vbBlack Then
        Range(Cells(i, 5), Cells(i, 8)).Font.Color = vbWhite
    End If
Next i
MsgBox "Yazı renkleri beyaz yapıldı...", vbInformation, "ASKM"
End Sub

 

[nadirornek]

Teşekkürler

 

[askm]

Rica ederim.