son olarak kod için yardımcı olabilirmisiniz

[berkan1]

Formu bitirdim sadece tek bir problem kaldı formda bul diyorum sayfada 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

 

[Korhan Ayhan]

Merhaba,

Ben şimdi size soruyorum.

Açtığınız başlıkla aynı sıkıntıyı yaşayan bir başka üyemiz bu başlığa verilen cevaptan faydalanmak isterse arama kutusuna ne yazmalıdır?

 

[berkan1]

Merhaba,

Ben şimdi size soruyorum.

Açtığınız başlıkla aynı sıkıntıyı yaşayan bir başka üyemiz bu başlığa verilen cevaptan faydalanmak isterse arama kutusuna ne yazmalıdır?

Korhan bey konu başlıgını degiştiremiyorum .bunun için konuyu kapatabilirmisiniz .yeni konu açıcam .İlginiz için Teşekkür Ederim