Makro ile koşullu biçimlendirme

[ersoyalan]

Ustalar merhaba,

Makro ile C52 - L52 hücreleri arasında aynı olan verilerin renklenmesi mümkünmüdür.Renkleme kırmızı olabilir.

Syg,
E.ALAN

 

[N.Ziya Hiçdurmaz]

Yanıt

Sub RENKLE()
Dim SUT As Byte
For SUT = 3 To 11
Cells(52, SUT).Interior.ColorIndex = xlNone
If WorksheetFunction.CountIf(Range("C52:L" & SUT), Cells(52, SUT)) > 1 Then
Cells(52, SUT).Interior.ColorIndex = 6
End If
Next
End Sub

 

[ersoyalan]

Hocam merhaba,

Ben yanlış anlatmışım istediğim aslında bu değildi.Benim istediğim ekli dosyamdaki mavi alanlar içindeki sayıların aynı olanları var ise renklerinin kırmızı olmasıydı.

Yanlış anlatımım için özürdilerim.
Syg,
E.ALAN

 

[ersoyalan]

Hocam 3.mesajımdaki istediğim olayı (alternatif olarak) koşullu biçimlendirme ile nasıl yapabiliriz.

 

[N.Ziya Hiçdurmaz]

Yanıt

Aynı olan verilerin biri hariç diğerlerinin font rengini kırmızı boyar

Sub RENKLE()
[C3:L52].Font.ColorIndex = 0
For SUT = 3 To 11
For SAT = 3 To 52
If WorksheetFunction.CountIf(Range("C3:L" & SAT), Cells(SAT, SUT)) > 1 Then
Cells(SAT, SUT).Font.ColorIndex = 3
End If
Next
Next
End Sub

 

[ersoyalan]

Hocam merhaba,

Şimdi tam istediğim olmuş.Yardımlarınız için çok teşekkürederim.

Syg,
E.ALAN