H Sütunununda A olan satırları sarıya boyama

[Filose]

Herkese Merhaba,

Daha önce makrosunu yapıp eklenti haline dönüştürdüğüm makro çalışmıyor. Yeniden yapmak istiyorum.
Yardımcı olabilecek arkadaşlara şimdiden teşekkür ediyorum.

Sağlıklı günler dileğiyle...

 

[Trilenium]

Ektedir.

Koşullu Biçimlendirme ile gerçekleştirilmiştir.

 

[Filose]

Çok teşekkür ederim Trilenium.
Sarıya boyanan hücrelerin A'dan H'a kadar sarıya boyanması demek istemiştim.
Galiba eksik izah ettim.

Saygıyla,

 

[Filose]

Sayın Trilenium emeğinize sağlık.
Yeni farkettim makro yapmak ve sonradan eklenti yapmak istiyorum.
Çünkü birçok dosyada kullanıyorum.

 

[Korhan Ayhan]

Deneyiniz.

Option Explicit

Sub Renklendir()
    Dim Veri As Variant, X As Long
    
    Veri = Range("A10:H84").Value2
    
    For X = LBound(Veri) To UBound(Veri)
        Cells(X + 9, 1).Resize(1, 8).Interior.ColorIndex = xlNone
        If Veri(X, 8) = "A" Then
            Cells(X + 9, 1).Resize(1, 8).Interior.ColorIndex = 6
        End If
    Next

    MsgBox "Renklendirme işlemi tamamlanmıştır.", vbInformation
End Sub

 

[Filose]

Korhan Bey çok teşekkür ederim. Elinize sağlık.

Sağlıkla kalın