Sütun içinde aynı veri varsa uyarsın

[gecemavisi]

Saygıdeğer arkadaşlar;
a5:165536 sutunları arasındaki hücrelerde değerler aynı ise uyarma komutu yapamaz mıyız. sizce bu iş nasıl olur
Yardımlarınız için şimdiden teşekkürler...

 

[Merhum İdris SERDAR]

Macrosuz bir örnek dosya ekte. işinize yarar mı? Bilmem.

 

[Seyit Tiken]

Makrolu Çözüm :

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Intersect(Target, [a:a]) Is Nothing Then Exit Sub
say = WorksheetFunction.CountIf(Range("a1:a" & Target.Row - 1), Target)
If say > 0 Then
MsgBox "BU KAYIT MEVCUTTUR"
Target.Select
Target = ""
End If
End Sub

 

[gecemavisi]

Saygıdeğer Seyit Tiken;
Tam aradığım gibi bir şeydi.
Her ikinize de tardımlarınız için teşekkürler.