mükerrer olmayanları kırmızı yapıyor öyle bırakıyor

[jambow]

Sub mukerrer()
For a = 1 To [a65536].End(xlUp).Row
If WorksheetFunction.CountIf(Columns(1), Cells(a, 1)) > 1 Then Cells(a, 1).Interior.ColorIndex = 3
Next
End Sub

mükerrer olanları kırmızı işaretliyor daha sonra o mükerrer kayıtları sildiğim halde o hücreler hep kırmızı kalıyor buna çözüm bulabilirmiyiz

 

[Merhum İdris SERDAR]

Sub mukerrer()
Columns("A:A").Select
Selection.ClearFormats
Range("A1").Select
For a = 1 To [a65536].End(xlUp).Row
If WorksheetFunction.CountIf(Columns(1), Cells(a, 1)) > 1 Then Cells(a, 1).Interior.ColorIndex = 3
Next
End Sub

şeklinde deneyin.

.

 

[Necdet]

Merhaba,

Aşağıdaki kodları ilgili sayfanın kod bölümüne kopyalayıp dener misiniz?

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Son
Application.ScreenUpdating = False
Range("A:A").Interior.ColorIndex = xlNone
For a = 1 To [a65536].End(xlUp).Row
If WorksheetFunction.CountIf(Columns(1), Cells(a, 1)) > 1 Then Cells(a, 1).Interior.ColorIndex = 3
Next
Application.ScreenUpdating = True
Son:
End Sub

 

[jambow]

ikinizede teşekkür ederim

 

[by_derman_67]

exel sayfa 1 . a hücresinde ad soyad listem var
sayfa 2 . a hücresinde de de ad soyad listem var bunlardan sayfa 2 de aynı olmayanları yeni olan isimleri farklı bir yere nasıl kaydedebilirim (makro bilgim yok).
yardımcı olursanız çok sevinirim buna çok acil ihtiyacım var.
teşekkürler.