Soru Koşullu biçimlendirme makrosu

[NADİR YILDIZ]

Arkadaşlar merhaba
iki sütundaki benzerleri makro ile nasıl koşullu biçimlendirme yapabilirim.
forumda aradım ancak aradığım makroyu bulamadım.

 

[hasankardas]

Sub Kosul()
Dim Alan As Range
Dim i As Integer
Dim j As Integer
Dim Hucre As Range
Set Alan = Range("Tablo1")
For Each Hucre In Alan
If WorksheetFunction.CountIf(Alan, Hucre.Value) > 1 Then
Hucre.Interior.ColorIndex = 4
End If
Next
End Sub


Tabloyu ,Tablo1 adı ile tanımlamayınız

 

[NADİR YILDIZ]

Sayın hasankardas
öncelikle teşekkürler

ancak hata mesajı veriyor

 

[hasankardas]

Nadir Bey
Alan tanımını yazmıştım, gözden kaçmış

 

[NADİR YILDIZ]

Hasan bey
alan tanımını yazmıştım demişsiniz anlayamadım
başka çalışmalarımda nasıl kullanırım bu dediğiniz

teşekkürler