- Katılım
- 27 Aralık 2010
- Mesajlar
- 33
- Excel Vers. ve Dili
- 2007
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.
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.
Kod:
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