userform arama yaptığımda arama yapılan sayfa hk.

[memeth48]

değerli forum uzmanları; forum ve sizlerin sayesinde çok şey öğreniyorum.
yardımlarınız için öncelikle teşekkür ederim...
sorum şu;
userformda tc kimlik no yazıp "büyüteç" butonuna bastığımda kişi bilgilerini "isletmeler" sayfasından diğer textboxlara getiriyorum fakat bunu yaptığımda isletmeler sayfası açılıyor. ben sadece userformun görünmesini istiyorum. bu sayfanın açılmasını istemiyorum.
bu konuda yardımlarınızı bekliyorum.
Şimdiden teşekürler...

 

[memeth48]

kullandığım kod:
Private Sub Image1_Click()
Sheets("isletmeler").Activate
Set bul = Sheets("isletmeler").Range("A2:A65536").Find(TextBox1, lookat:=xlWhole, LookIn:=xlValues)
If Not bul Is Nothing Then
TextBox2.Value = Cells(bul.Row, "B").Value
TextBox3.Value = Cells(bul.Row, "C").Value
ComboBox1.Value = Cells(bul.Row, "D").Value
Else
MsgBox "Aradığınız kişi bulunamadı!"
End If
End Sub

 

[memeth48]

Sheets("isletmeler").Activate
yazmadığımda ise arama yapmıyor.

 

[Orion1]

Sheets("isletmeler").Activate
yazmadığımda ise arama yapmıyor.

igili yeri aşağıdaki kod ile değiştirip deneyiniz.

Private Sub Image1_Click()
With Sheets("isletmeler")
    Set bul = .Range("A2:A65536").Find(TextBox1, lookat:=xlWhole, LookIn:=xlValues)
    If Not bul Is Nothing Then
        TextBox2.Value = .Cells(bul.Row, "B").Value
        TextBox3.Value = .Cells(bul.Row, "C").Value
        ComboBox1.Value = .Cells(bul.Row, "D").Value
        Else
        MsgBox "Aradığınız kişi bulunamadı!"
    End If
End With
End Sub

 

[memeth48]

çok teşekkür ederim. Yardımlarınız ve paylaşımlarınız sayesinde hergün birşeyler öğreniyorum.