userformda bul

[rekkezum]

Selamlar üstad lar,
Aşağıdaki bul düğmesine kaydettiğim kaod da aradığım veri başka bir sheet te ise sheet adını formülün neresine yazman gerekir?

Set bul = Range("G9:G65536").Find(textbox13, lookat:=xlWhole, LookIn:=xlValues)
If Not bul Is Nothing Then
TextBox1.Text = Cells(bul.Row, "B").Value
TextBox2.Text = Cells(bul.Row, "C").Value
TextBox4.Text = Cells(bul.Row, "D").Value
TextBox5.Text = Cells(bul.Row, "E").Value
TextBox6.Text = Cells(bul.Row, "F").Value
TextBox14.Text = Cells(bul.Row, "H").Value
TextBox15.Text = Cells(bul.Row, "I").Value
TextBox16.Text = Cells(bul.Row, "J").Value
TextBox17.Text = Cells(bul.Row, "K").Value
TextBox18.Text = Cells(bul.Row, "L").Value
TextBox19.Text = Cells(bul.Row, "M").Value
TextBox20.Text = Cells(bul.Row, "N").Value
TextBox21.Text = Cells(bul.Row, "O").Value
TextBox22.Text = Cells(bul.Row, "P").Value
ComboBox2.Text = Cells(bul.Row, "Q").Value
TextBox25.Text = Cells(bul.Row, "R").Value
ComboBox3.Text = Cells(bul.Row, "S").Value
TextBox23.Text = Cells(bul.Row, "T").Value
Else
MsgBox "Aradığınız kayıt bulunamadı!"
End If
End Sub

 

[karalanet]

eğer arama yapılacak sayfa sabit ise
Set bul = Range("G9:G65536").Find(textbox13, lookat:=xlWhole, LookIn:=xlValues)
kodunu
Set bul =sheets("sayfaadi"). Range("G9:G65536").Find(textbox13, lookat:=xlWhole, LookIn:=xlValues)
şeklinde düzenleyerek deneyebilir misiniz.

 

[rekkezum]

Büyüksün usta saol bu satte valla şahanesin

 

[karalanet]

işini gördüyse ne mutlu bana. ben de yeniyim daha 1 ay oldu excellde vba ile tanısalı fakat bu konu bana da lazımdı çok ugrastırdı bu şekilde çözmüştüm

 

[rekkezum]

Üstadım textox13 e göre aratmak istiyorum ama senin dediğini yaptım olmadı neen bakabilirmsin dosya ekte

 

[karalanet]

senin kayıtların 2. satırdan başladığı için
Set bul = Range("G2:G65536").Find(textbox13, lookat:=xlWhole, LookIn:=xlValues)
yapman yeterli.

 

[rekkezum]

Üstadım olmadı yahu düzeltilmiş dosyayıeklemen mümkün mü?

 

[karalanet]

sanırım şimdi oldu. Bakabilir misin.