UserForm arama kutusu

[berkan1]

UsreFormu bitirdim sadece tek bir problem kaldı formda bul diyorum Datada arıyor varsa var diyor ama yoksa en sona ekliyor makroyu ekliyorum yardımcı olabilecek hocalarıma şimdiden çok teşekkür ederim.

Private Sub CommandButton1_Click()
If TextBox1.Value <> "" Then
Sheets("data").Activate
Cells(1, 1).Select
Do While ActiveCell.Value <> ""
If Trim(ActiveCell.Value) = Trim(Me.TextBox1.Value) Then
If MsgBox(Me.TextBox1 & " Kişi Kayıtlı" & " 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 = TextBox1.Value
End If
End Sub

 

[Huseyinkis]

Ekteki gibi denermisiniz.

Private Sub CommandButton1_Click()
If TextBox1.Value <> "" Then
Sheets("data").Activate
Cells(1, 1).Select
Do While ActiveCell.Value <> ""
If Trim(ActiveCell.Value) = Trim(Me.TextBox1.Value) Then
If MsgBox(Me.TextBox1 & " Kişi Kayıtlı" & " Yeniden kayıt yapılsın mı?", vbYesNo) = vbNo Then 
Exit Sub
else 
ActiveCell.Value = TextBox1.Value
ActiveCell.Offset(0, 1).Value = TextBox1.Value
Exit Sub
End If
ActiveCell.Offset(1, 0).Activate
Loop
End If

 

[berkan1]

Ekteki gibi denermisiniz.

Private Sub CommandButton1_Click()
If TextBox1.Value <> "" Then
Sheets("data").Activate
Cells(1, 1).Select
Do While ActiveCell.Value <> ""
If Trim(ActiveCell.Value) = Trim(Me.TextBox1.Value) Then
If MsgBox(Me.TextBox1 & " Kişi Kayıtlı" & " Yeniden kayıt yapılsın mı?", vbYesNo) = vbNo Then 
Exit Sub
else 
ActiveCell.Value = TextBox1.Value
ActiveCell.Offset(0, 1).Value = TextBox1.Value
Exit Sub
End If
ActiveCell.Offset(1, 0).Activate
Loop
End If

Hüseyin bey denedim ama hata veriyor
hata kodu
Loop Without Do
Ne önerirsiniz Ayrıca ilginiz için teşekkür ederim

 

[berkan1]

konu günceldir yardımcı olmak isteyen hocalarım yardımlarınızı bekliyorum

 

[Korhan Ayhan]

Merhaba,

Ben sorunuzu okudum fakat ne yapmak istediğinizi çözemedim. Örnek dosya ekleyerek yapmak istediğiniz işlemi açıklarmısınız.

 

[berkan1]

Örnek dosya ekliyorum yardımlarınız için teşekkür ederim

 

[Korhan Ayhan]

Merhaba,

Örnek dosya eklemişsiniz fakat açıklama yok. Nasıl bir işlem olmasını istiyorsunuz? Lütfen açıklarmısınız.

 

[berkan1]

kusura bakmayın korhan bey istedigim şu kişileri arayınca varsa var demesi ekleme yapmasın onoktada tıkanıyorum zaman ayırdıgınız için teşekkür ederim

 

[takin]

Eklemeyi koddaki aşağıdaki satırlarla yapıyor. Ekleme yapmasını istemiyorsan koddan bu satırları sil

ActiveCell.Value = TextBox1.Value
ActiveCell.Offset(0, 1).Value = TextBox1.Value

 

[berkan1]

Takin bey teşekkür ederim oldu "kişi yok" yazdırmak için
If MsgBox(Me.TextBox1 & " Kişi Kayıtlı" & " Yeniden kayıt yapılsın mı?", " Kişi Yok ", vbYesNo) = vbNo Then Exit Sub
ne yapayım

 

[berkan1]

bu arama da tam olarak eşleşme istiyor öle arıyor mesela sadece isim yazınca olan isimleri bulabilirmi yani işleme isimden başlayabilirmi Teşekkür ederim.