25/11/2011, 01:32
akay
büyük bir tablom var bu tabloda mükerrer kayıtları isaretlemem gerek asagıdaki kodu buldum çalışma sayfası kod görüntüle kısmına yazıyorum ama sadece a sutunundakileri tarayıp renklendiriyor
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
For a = [a65536].End(3).Row To 1 Step -1
If WorksheetFunction.CountIf(Range("a1:a" & a), Cells(a, "a")) > 1 Then Cells(a, "a").Interior.ColorIndex = 6
Next
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
For a = [a65536].End(3).Row To 1 Step -1
If WorksheetFunction.CountIf(Range("a1:a" & a), Cells(a, "a")) > 1 Then Cells(a, "a").Interior.ColorIndex = 6
Next
End Sub