Koyu (Bold) olan satırları sarı dolgu yapma

[use2000]

Merhaba arkadaşlar

Koyu renkte olan satırları sarı dolgu yapmak istiyorum bununla ilgili olarak nasıl bir makro yazmak gerekir?

Teşekkürler,

 

[dEdE]

Merhaba,
- Koyu renkte olan satırlar ifadenizden yazı fontu koyu(Bold) olan hücreleri anladım ve A sütununda koyu renkte olan hücrelere göre tüm satırı boyayan makro yazdım. Bir modüle yapıştırarak dener misiniz?

Sub boya()
For i = 1 To [A65536].End(3).Row
If Cells(i, 1).Font.Bold = True Then Rows(i).Interior.ColorIndex = 6
Next
End Sub

 

[use2000]

Tam istediğim buydu. teşekkürler hocam..