Renk Değiştirme Makrosu (Mor Hücreleri Sarı Yap)

[mdagistanli]

Merhaba.
Çok sayıda ve dağınık halde mor dolgu yapılmış hücreler var. Hepsini sarıya çevirmek istiyorum.
VBA kodunu rica ederim ustalarım. Bir kere uygulayıp makrosuz olarak kaydedeceğim.

 

[muratboz06]

Sub MordanSariyaÇevir()
    ActiveSheet.UsedRange.Select
    Dim cell As Range
    For Each cell In Selection
        If cell.Interior.Color = 10498160 Then
            cell.Interior.Color = vbYellow
        End If
    Next cell
End Sub

10498160 mor rengin kodudur. Farklı bir renk ise makro kaydet yapıp değiştirmek istediğiniz renk ile bir hücreyi doldurunuz. Kaydettiğiniz makrodaki color kodunu üstteki makrodaki 10498160 ile değiştiriniz.

 

[mdagistanli]

Çalıştı hocam, teşekkür ederim.

 

[baydeniro]

Sub MordanSariyaÇevir()
    ActiveSheet.UsedRange.Select
    Dim cell As Range
    For Each cell In Selection
        If cell.Interior.Color = 10498160 Then
            cell.Interior.Color = vbYellow
        End If
    Next cell
End Sub

10498160 mor rengin kodudur. Farklı bir renk ise makro kaydet yapıp değiştirmek istediğiniz renk ile bir hücreyi doldurunuz. Kaydettiğiniz makrodaki color kodunu üstteki makrodaki 10498160 ile değiştiriniz.

Teşekkürler üstad