Bul Kodunu Yazmaya ÇaliŞtim Ama Beceremedİm

[puslukurt]

arkadaşlar ekteki dosyada bul düğmesinde karşımıza gelen userform üzerinde kantar fiş no yazan yere kantar fiş numarası yazdığımda yılmazveri sayfası a2 satırından itibaren başlayan numaralardan texboxa yazdığımız numaradan var ise texbox1'e getirecek ve aynı satırdaki bilgileri userforma yazacak ben yapmaya çalıştım ama olmadı yardımlarınız için teşekkürler.

 

[veyselemre]

Private Sub CommandButton1_Click()
Sheets("yılmazveri").Select 'ekle
Dim bak As Range
    For Each bak In Range("A2:A" & WorksheetFunction.CountA(Range("A1:A65000")) + 1) 'değiştir

 

[Hakan ERDOST]

sayın puslukurt dosyanız bazı ilaveler ile ekte.kolay gelsin.