Çift Kayıt Engelleme (Makrolu Çözüm)

[abhaz]

A sütununa yazılan bir kayıt mükerrer olarak yine A sütununa yazılmak istenirse uyarı verecek bir makro varmı? (Veri - Doğrulama ile yapılmaması gerekiyor, çünkü o fonksiyonu başka bir işlev için kullanıyorum) yani makro olması gerekiyor.

Arama yaptım ama bulamadım.

 

[abhaz]

arkadaşlar bunun için bir makro yokmu?

 

[Levent Menteşoğlu]

Aşağıdaki kodu sayfanın kod sayfasına kopyalayarak deneyin.

[vb:1:dee85cfaff]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
[/vb:1:dee85cfaff]

 

[abhaz]

sayın "leventm" arkadaşım çok teşekkür ederim, birde makro sayfasında bir problem daha yazdım (Başlık: Çift Kayıt Engelleme) orada en son bir durumdan bahsettim, onunla ilgili ne yapabiliriz? inceleyebilirmisiniz?