sonrakini bul

[rcal03]

Elimdeki kod aşağıdaki gibi ama arama yaptığım da sadece aynı isimden olanları çağırmıyor

Private Sub cmdcagır_Click()
If txtara.Value = "" Then
MsgBox "Lütfen Köyün Adı kutusuna geçerli ismi girin"
Exit Sub
End If

Set adsoyad = Range("b4:b400").Find(txtara.Value, SearchDirection:=xlNext, MatchCase:=False)

If adsoyad Is Nothing Then
MsgBox "Aradığınız Köy bulunamadı."
Exit Sub
End If

birincisatir = adsoyad.Row
Set adsoyad = Range("b4:b400").FindPrevious.Range("b400")
sonsatir = adsoyad.Row
Set adsoyad = Range(Cells(birincisatir, 2), Cells(sonsatir, 2)).Find(txtkad.Value, SearchDirection:=xlNext, MatchCase:=False)
txtkad.Value = Cells(birincisatir, 2).Value
txtmad.Value = Cells(birincisatir, 3).Value
txtyol.Value = Cells(birincisatir, 5).Value
txttel.Value = Cells(birincisatir, 4).Value
txtyap.Value = Cells(birincisatir, 9).Value
txticme.Value = Cells(birincisatir, 8).Value
txtsağ.Value = Cells(birincisatir, 10).Value
txteğt.Value = Cells(birincisatir, 11).Value
txtsor.Value = Cells(birincisatir, 13).Value
txtnüf.Value = Cells(birincisatir, 12).Value
txtcal.Value = Cells(birincisatir, 14).Value
txtkan.Value = Cells(birincisatir, 7).Value

 

[Levent Menteşoğlu]

Sorunuzu biraz daha açarmısınız. Yapmak istediğiniz nedir? bir örnek dosyada ekleyebilirsiniz.

 

[rcal03]

Hocam arama ekranına AK yazdığımda çağır butonuyla veriler yerlerine geliyor ama sadece 1 tanesi sonraki butonunu ilave ettim ve diğer verilerin gelmesini istiyorum

 

[Levent Menteşoğlu]

Köy isimlerinin önce bir listboxta listelenip buradan çağırılması gibi bir çözüm işinize yararmı?

 

[rcal03]

listbox gerek kalmadan yapamazmıyız

 

[Levent Menteşoğlu]

Ekli dosyayı inceleyin. Mevcut dosyanızda gerekli düzeltmeleri yaptım.

 

[rcal03]

TEŞEKKÜR EDERİM HOCAM

Mükemmel iş çıkarmışsınız...

 

[rcal03]

Hocam ilginiz teşekkür ederim.

Yukarıdaki ek dosyada yeni bir uygulamaya ihtiyacım var.
Arama yapıldıktan sonra forma gelen verilerde değişiklik yapıp excel sayfasında bulunduğu yere kayıt yapılabilir mi?

 

[rcal03]

Levent hocam yukarıdaki dosyayla ilgili yeni bir isteğim olacak

Form üzerine çağırdığımız veriler üzerinde değişiklikleri yeni satıra değilde aynı satırına nasıl kaydedebiliriz.


şimdiden teşekkürler

 

[rcal03]

Levent hocam yukarıdaki dosyayla ilgili yeni bir isteğim olacak

Form üzerine çağırdığımız veriler üzerinde değişiklikleri yeni satıra değilde aynı satırına nasıl kaydedebiliriz.


şimdiden teşekkürler

Hocam Sorumu farketmediniz galiba