Renklendirme

[BBBBuRaKKKK]

Merhabalar,

Makroda C, F ve K sütunlarındaki SATIRLAR birbirine eşit değilse turuncuya boyamasını istiyorum.

Yardımcı olur musunuz?

Örnek olarak ekte gönderdim.

 

[dEdE]

Merhaba,
Aşağıdaki kodu dener misiniz?

Sub Boya()
ss = Sheets("Sayfa1").Cells(Rows.Count, 1).End(3).Row
For i = 2 To ss
    If Sheets("Sayfa1").Cells(i, 3) <> Sheets("Sayfa1").Cells(i, 6) And _
        Sheets("Sayfa1").Cells(i, 3) <> Sheets("Sayfa1").Cells(i, 11) Or _
            Sheets("Sayfa1").Cells(i, 6) <> Sheets("Sayfa1").Cells(i, 11) Then
        Sheets("Sayfa1").Cells(i, 3).Interior.Color = RGB(255, 192, 0)
        Sheets("Sayfa1").Cells(i, 6).Interior.Color = RGB(255, 192, 0)
        Sheets("Sayfa1").Cells(i, 11).Interior.Color = RGB(255, 192, 0)
    End If
Next
End Sub

 

[Muzaffer Ali]

Merhaba.
Koşullu biçimlendirme ile de yapılabilir.
C, F ve K kolonlarını seçin.
Koşullu Biçimlendirme / Yeni Kural seçin
Listeden "Biçimlendirilecek ... ... ... ... formül kullan" seçin
Formül kutusuna aşağıdaki formülü kopyalayın.

=YADA($K1<>$F1;$F1<>$C1)

Biçimlendir tıklatıp, Dolgu kısmından istediğiniz rengi seçin.
Tamamı tıklatın.

 

[BBBBuRaKKKK]

Elinize sağlık ayrı ayrı teşekkür ederim

 

[BBBBuRaKKKK]

Sayfa ismini seçmeden yapmak mümkün mü acaba DEDE yetkili ?

 

[Korhan Ayhan]

Kod penceresinde CTRL+H ile aşağıdaki ifadeleri silebilirsiniz.

Sheets("Sayfa1").

 

[BBBBuRaKKKK]

Makro çalıştırırken ilgili sayfa ismini değiştirerek hallettim teşekkür ederim