Textbox veri getirme sorunu

[asi_kartal]

slm arkadaşlar hayırlı cumalar

forumlarda aşağıdaki kodu buldum ve userform'a ekledim. sayfa4 iken sorunsuz çalışıyor fakat diğer sayfalarda hata veriyor ve çalışmıyor. yardımlarınızı bekliyorum.

Private Sub CommandButton5_Click()
Set ara = Sayfa4.Range("B3:B65536").Find(TextBox8, lookat:=xlWhole, LookIn:=xlValues)
If Not ara Is Nothing Then
TextBox1.Text = Cells(ara.Row, "c").Value
TextBox2.Text = Cells(ara.Row, "d").Value
TextBox3.Text = Cells(ara.Row, "i").Value
TextBox4.Text = Cells(ara.Row, "h").Value
TextBox5.Text = Cells(ara.Row, "g").Value
TextBox6.Text = Cells(ara.Row, "f").Value
TextBox7.Text = Cells(ara.Row, "j").Value
ComboBox1.Text = Cells(ara.Row, "k").Value
ComboBox2.Text = Cells(ara.Row, "e").Value
ListBox1.Text = Cells(ara.Row, "l").Value
Else
MsgBox "Aradığınız kayıt bulunamadı!"
End If
End Sub

 

[Husgvarna]

slm arkadaşlar hayırlı cumalar

forumlarda aşağıdaki kodu buldum ve userform'a ekledim. sayfa4 iken sorunsuz çalışıyor fakat diğer sayfalarda hata veriyor ve çalışmıyor. yardımlarınızı bekliyorum.

Private Sub CommandButton5_Click()
Set ara = [COLOR="#ff0000"]Sayfa4[/COLOR].Range("B3:B65536").Find(TextBox8, lookat:=xlWhole, LookIn:=xlValues)
If Not ara Is Nothing Then
TextBox1.Text = Cells(ara.Row, "c").Value

Merhaba.
Yukarıdaki kırmızı bölümü aşağıdaki gibi (noktaya dikkat ederek) deneyin.

ActiveSheet

 

[asi_kartal]

hocam istediğim gibi olmadı örnek dosyaya bir bakarsanız sevinirim.

 

[Husgvarna]

Merhaba.
Dosyanıza göre sadece 4.sayfada arama yapılacak.
Şöyle deneyin.

Private Sub CommandButton5_Click()
Set ara = Sayfa4.Range("B3:B65536").Find(TextBox8, lookat:=xlWhole, LookIn:=xlValues)
If Not ara Is Nothing Then
TextBox1.Text = Sayfa4.Cells(ara.Row, "c").Value
TextBox2.Text = Sayfa4.Cells(ara.Row, "d").Value
TextBox3.Text = Sayfa4.Cells(ara.Row, "i").Value
TextBox4.Text = Sayfa4.Cells(ara.Row, "h").Value
TextBox5.Text = Sayfa4.Cells(ara.Row, "g").Value
TextBox6.Text = Sayfa4.Cells(ara.Row, "f").Value
ComboBox1.Text = Sayfa4.Cells(ara.Row, "k").Value
ComboBox2.Text = Sayfa4.Cells(ara.Row, "e").Value
ListBox1.Text = Sayfa4.Cells(ara.Row, "l").Value
Else
MsgBox "Aradığınız kayıt bulunamadı!"
End If
End Sub

 

[asi_kartal]

Allah razı olsun hocam çok teşekkür ederim.