aynı iki girişi engelleme

[Fuat Şirin]

arkadaşlar a sütununu baz alıp
aynı giriş olduğunda uyarı verip
kayıt yapmamasını nasıl yaparım
şimdiden teşekkkürler

 

[Recep İpek]

Aşağıdaki bölümü inceleyebilirsiniz.

http://www.excel.web.tr/forumdisplay.php?f=120

 

[Fuat Şirin]

bunlara bakmıştım hocam
benim istediğim
comboboxa ali uçar yazacağım mesela
enterle
devam ettiğimde
bu kayıt var diyip uyarı verip kaydetmemesi

 

[Recep İpek]

Aşağıdaki kodları kendinize göre uyarlayınız.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Intersect(Target, [a2:a1000]) Is Nothing Then Exit Sub
If Target.Value = "" Then
Target.Offset(0, 1).Value = ""
Exit Sub
End If
veri = Target
say = WorksheetFunction.CountIf(Range("a2:a" & Target.Row - 1), Target)
If say > 0 Then
MsgBox "Bu Kişinin Daha Önceden Kaydı Var!"
Target.Select
Target = ""
For Each alan In [a2:a1000]
If alan = veri Then alan.Select
Next
End Sub