açıklama olansatırları renklendirmek

[turguturgut]

arkadaşlar merhaba..açıklama girdiğim satırların renkli görünmesini yapabilir miyim ?

 

[Necdet]

Açıklama Olan Hücreleri mi renlendirmek istiyorsunuz yoksa tüm satırı mı?

Eğer hücreleri renklendirmek istiyorsanız :

F5
Özel
Açıklamalar
Tamam

dediğinizde tüm açıklama girdiğiniz hücreler seçilir ve istediğiniz rengi verebilirsiniz.

Yok satırlar renklensin istiyorsanız aşağıdaki kodları deneyiniz.

Sub AciklamaRenklendir()
 
    Dim Hcr As Range
    Dim Kol As Integer
    
    Kol = Cells.Find("*", , , , xlByColumns, xlPrevious).Column
    
    For Each Hcr In Selection.SpecialCells(xlCellTypeComments)
        Range(Cells(Hcr.Row, "A"), Cells(Hcr.Row, Kol)).Interior.ColorIndex = 3
    Next Hcr
 
End Sub