Renklendirme yardımı lütfen

[Aytaç]

biraz arama yapıp istediğime yakın şeylere rastladım ama bir araya getiremedim bi türlü algoritmasını oturtamadım
yardım istediğim konu bi çeşit renklenddirme
"B" sütununda seçilmiş 10 farklı hücre olsun ve bir makro düğmesine basınca her hücrenin olduğu satırda "D" ve "X:AA" hücreleeri açık sarı renge boyansın yani:

B5 seçilip makro düğmesine basılınca B5 ile birlikte D5 ve X5:AA5 hücreleri de boyansın. Bu arada sıkıntı yaşadığım nokta sadece B5 hücresini değil aynı anda B sütununda bikaç yer daha seçiyo olmam hepsinin boyanmasını rica edecem
yardımcı olabilirseniz sevinirim.

 

[veyselemre]

Sub Boya()
Cells.Interior.ColorIndex = xlNone
For Each d In Selection.Rows
    Intersect(Rows(d.Row), Range("B:B,D:D,X:AA")).Interior.ColorIndex = 36
Next
End Sub

 

[Aytaç]

Sayın veyselemre kodlar için çok teşekkür ederim. Fakat bi türlü çözemediğim bi problem var. Kod sayesinde bazı satırları boyuyorum fakat önceden boyadığım yerler renksiz oluyor. Yani kod sadece o an seçili yerleri sarı yapıyor diğer tarafları renksiz hale getiriyor. Sadece o an seçili yerleri boyasa gerisine dokunmasa böyle birşey yapabilirmiyiz rica etsem_?

 

[veyselemre]

Cells.Interior.ColorIndex = xlNone

satırını silin

 

[Aytaç]

Teşekkürler

Kodlar çok işime yaradı çok teşekkür ediyorum.
Emeğinize sağlık