mükerrer kayıtla ilgili

[cobra29]

userform1 üzerine eklediğim textbox'a girdiğim değer eğer veri sayfasında varsa yani daha önceden girilmişse uyarsın kabul edersem girsin kabul etmezsem girmesin formları aradım bununla ilgili bulamadım şimdiden ilgilenen arkadaşlara teşekkürler....

 

[cobra29]

ya bir haftadır bekliyorum bi cevap verebilecek kimse yokmu

 

[xxrt]

Kendinize göre değiştirin

Private Sub CommandButton1_Click()
If TextBox2.Value <> "" Then
Sheets("Sayfa1").Activate
Cells(1, 1).Select
Do While ActiveCell.Value <> ""
If Trim(ActiveCell.Value) = Trim(Me.TextBox1.Value) Then
If MsgBox(Me.TextBox1 & " İsimde Kaydınız bulunmaktadır." & " Yeniden kayıt yapılsın mı?", vbYesNo) = vbNo Then Exit Sub
End If
ActiveCell.Offset(1, 0).Activate
Loop
ActiveCell.Value = TextBox1.Value
ActiveCell.Offset(0, 1).Value = TextBox2.Value
End If
End Sub

 

[Levent Menteşoğlu]

ya bir haftadır bekliyorum bi cevap verebilecek kimse yokmu

Cevap alamamanızın sebebi sorunuzda verdiğinizi verilerin yetersiz oluşudur. Örneğin textboxa girilen veri hangi sütunda aranacaktır bunu belirtmeniz gerekirdi.