DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Sub kod()
For a = 1 To Cells(Rows.Count, "A").End(3).Row
If WorksheetFunction.CountIf(Range(Cells(1, "A"), Cells(a, "A")), Cells(a, "A")) = 1 Then
x = x + 1
Application.ReplaceFormat.Interior.ColorIndex = x Mod 55 + 2
Range("A:A").Replace What:=Cells(a, "A"), Replacement:=Cells(a, "A"), LookAt:=xlWhole, ReplaceFormat:=True
End If
Next
End Sub
Evet oldu çok teşekkür ederim.Merhaba,
Bahsettiğiniz sütunun "A" sütunu olduğunu varsayarsak şöyle bir kod kullanabilirsiniz.
PHP:Sub kod() For a = 1 To Cells(Rows.Count, "A").End(3).Row If WorksheetFunction.CountIf(Range(Cells(1, "A"), Cells(a, "A")), Cells(a, "A")) = 1 Then x = x + 1 Application.ReplaceFormat.Interior.ColorIndex = x Mod 55 + 2 Range("A:A").Replace What:=Cells(a, "A"), Replacement:=Cells(a, "A"), LookAt:=xlWhole, ReplaceFormat:=True End If Next End Sub