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

Katılım
20 Şubat 2006
Mesajlar
259
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...
 

Seyit Tiken

Uzman
Uzman
Katılım
23 Ağustos 2005
Mesajlar
4,651
Excel Vers. ve Dili
Excel : 2010
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
 
Katılım
20 Şubat 2006
Mesajlar
259
Saygıdeğer Seyit Tiken;
Tam aradığım gibi bir şeydi.
Her ikinize de tardımlarınız için teşekkürler.
 
Üst