mükerrer kayıt sorunu

[aduhan22]

slm ekte ki listede yaptığım mükerrer kayıtları kabul etmesin ve uyarı vesin istiyorum akşamdan beri uğraştım ancak çözemedim ilgili arkadaşlara şimdiden teşekkür ediyorum...

 

[abazya]

Sn:aduhan22

Arama motorunda ararsan orada mükerer kayıtla ilgili dökümanlar var.
Birde bunu inceleye bilirsin İşine yaramasını umarım

 

[aduhan22]

sn: abazya baktım ancak çözemedim, ilginize tşkler

 

[Levent Menteşoğlu]

Mükerrer kayıt uyarısını hangi durumda yapmasını istiyorsunuz, yani kaydet butonu basıldığında mı? Ayrıca sadece ismin mükerrer olarak araştırılması yeterlimi?

 

[aduhan22]

tşkler

sayın leventm comboboxtan seçilen isimleri sizin yapmış olduğunuz kayıt makrosu ile bordro sayfasına atıyorduk, beş on kayıt girdikten sonra aynı ismi seçtiğimizde uyarı vermesini ve yeni isim seçmeden kayıt yapmamasını istiyorum, sizler olmasanız ne yapacağız bilmiyorum...

 

[Levent Menteşoğlu]

Aşağıdaki satırları kodun en üstüne ilave edin.

[vb:1:4d7c9ca021]Set s1 = Sheets("bordro")
Set s2 = Sheets("bankalistesi")
If WorksheetFunction.CountIf(s1.[b11:b31], ComboBox1.Value) > 1 Then
MsgBox "BU İSİM KAYITLIDIR"
ComboBox1.SetFocus
Exit Sub
End If
[/vb:1:4d7c9ca021]

 

[aduhan22]

sayın üstadım ekledim ancak halen olmadı, dosyada uygulayıp gönderirseniz sevinirim, çok teşekkürler