textbox' a girilen değere göre bilgilerin userforma gözükmesi

[mustafa155]

ekteki dosyada bulunan göster butonuna tıkladığımızda textbox' a yazılan dosya numarasına ait bilgiler userformda görünsün.
Saygılarımla

 

[ileriexcel]

'sayfa içine yazılacak kod
Private Sub CommandButton1_Click()
For Each bul In Range("b5:b50")
If bul = TextBox1 Then
bul.Select
End If
Next
UserForm1.Show
End Sub
'userforma yazılacak kod
Private Sub UserForm_Activate()
For i = 1 To 4
Controls("TextBox" & i) = Empty
Next
TextBox1 = ActiveCell.Offset(0, 0)
TextBox2 = ActiveCell.Offset(0, 1)
TextBox3 = ActiveCell.Offset(0, 2)
TextBox4 = ActiveCell.Offset(0, 3)
End Sub

 

[mustafa155]

hocam formülleri uyguladım uncak user form boş çıkıyor. birde user form açılırken sayfanın aşağısında açılıyor. örnekte uygulayıp ekleyebilirmisiniz.

 

[ileriexcel]

®

örnek dosya.

 

[mustafa155]

ellerin dert görmesin hocam sağolasın