Birleştirilmiş hücre renklendirme (belirlenen alanda)

[Erdinç FIRTINA]

Değerli forum üyeleri,
Sitedeki değerli üstad Mahmut BAYRAM Beyin hazırladığı kod arşivinden yararlanarak bulduğum aşağıdaki kod ile aktif olan sayfadaki birleştirilmiş hücreler bulunarak renklendiriliyor. Belirleyeceğim bir alan içerisinde (örneğin; B2 ile F100000 arasında) olan birleştirilmiş hücreleri bulmak ve renklendirebilmek mümkün olabilir mi ?
Yardımlarınız için şimdiden teşekkürler !!!

Sub Verbundene_Zellen()
Dim cell As Range
For Each cell In ActiveSheet.UsedRange
If cell.MergeCells = True Then cell.Interior.ColorIndex = 5
Next
End Sub

 

[dEdE]

Merhaba,
"...birleştirilmiş hücreleri bulmak ve renklendirebilmek..." istediğniz alanı seçip kodu çalıştırınız.

Sub Birletirilmiş_Hücreler()
Dim cell As Range
    For Each cell In Selection
        If cell.MergeCells = True Then cell.Interior.ColorIndex = 5
    Next
End Sub

 

[Erdinç FIRTINA]

Sayın dEdE,
Çok teşekkür ederim ...