Comment varsa boya

[mustafaine1]

satirda comment varsa o satiri boyayacak makro yapabiliyormuyuz ?

 

[Ömer]

Merhaba,

Sub Renk()
    Selection.SpecialCells(xlCellTypeComments).Interior.ColorIndex = [COLOR=red]3[/COLOR]
End Sub

Bu şekilde olabilir.

.

 

[Levent Menteşoğlu]

Aşağıdaki kod ile açıklama olan satırları sarı renk ile işaretleyebilirsiniz.

Cells.SpecialCells(xlCellTypeComments).EntireRow.Interior.ColorIndex = 36

 

[mustafaine1]

cok tesekkurler, cok buyuk bir tabloda gormek gercekten zor oluyordu, kolay gelsin..

 

[baydeniro]

Sayın üstadlarım çok teşekkür ederim.