kayıt bul kodunda hata yardım

[MAPMAN]

işyerinde görevim gereği evde bakım hizmeti alan hastaların ev ziyareti sonuçlarını excelde toparlamak için oluşturduğum userformda kayıt bul butonunda sorun yaşıyorum.Userformda özürlünün adı soyaduı yazdığımda kayıt bul butonuna tıklayınca usrformda geri kalan bilgilerin otomatik tamamlanmasını istiyorum.Yardımcı olabilecek arkadaşların yardımını bekliyorum.vba şifresi 142142 dir

 

[MAPMAN]

yardımcı olabilecek arkadaşlar dosyaya bir göz atarsanız çok sevinirim.teşekkürler.

 

[Excelmy]

Kimse göz atmıyor.
Neden ...?
Şifreli

 

[MAPMAN]

Kimse göz atmıyor.
Neden ...?
Şifreli

Kuman arkadaşım haklısın.Sonradan farkettim ve şifresini ekledim yaklaşık yarım saat kadar önce. 142142 vba şifresi.Sonradan farkettim bende.Kusura bakmayın.Özür..

 

[Excelmy]

Userformda özürlünün adı soyadı yazdığımda kayıt bul butonuna tıklayınca userformda geri kalan bilgilerin otomatik tamamlanmasını istiyorum.

:dusun:

İnceleyiniz.

 

[MAPMAN]

:dusun:

İnceleyiniz.

Sayın Kuman çok teşekkür ederim.Ama yeni kayıt ekleyince direkt a4 hücresine önceki kayıt yerine ekleniyor.a5 den başlayarak sıralı kayıt yapmıyor.Kodlardaki
Private Sub CommandButton1_Click()
Range("a4").Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
If Range("a5").Value = "" Then
Range("a4").Value = 1
Range("a4").Select

makrosundaki If Range("a5").Value = "" Then değerini a4 olarak değiştirdiğimde bu sorun çözülüyor.Yani sıra ile alt alta yeni kayıtları ekliyor.Ama bu seferde kayıt bul da a4 den sonraki kayıtları bulmuyor.Bu konudada yardımcı olursanız memnun kalırım.İlginiz için şükranlarımı sunarım.

 

[MAPMAN]

burada nasıl bir çözüm getirilebilir.Yardımlarınızı bekliyorum.

 

[MAPMAN]

Bu sorunu nasıl düzeltebileceğim konusunda fikir verebilecek arkadaşlar yardımlarınızı bekliyorum.