combobox'daki sayfada arama

[yesilcan]

combobox'da seçtiğin sayfada arama yapıp veriyi bulduğunda değeri texbox2'e yazması mümkünmü?
aşağıdaki gibi bir kod bu texbox1'e yazdığım değeri sadece ürünler sayfasında arıyor.combobox'da seçtiğim sayfa değişik olduğundan problem çıkıyor doğru çalışmıyor.kodu combobox'a göre ayarlayabilirmisiniz?

Private Sub CommandButton4_Click()
Sheets("ürünler").Select
If TextBox1 = "" Then MsgBox "LÜTFEN ÜRÜN KODU GİRİNİZ !", vbExclamation, "DİKKAT !": TextBox1.SetFocus: Exit Sub
Set BUL = Cells.Find(What:=TextBox1.Value, After:=ActiveCell, LookIn:=xlValues, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=False)
If Not BUL Is Nothing Then
UserForm3.TextBox3.Value = Cells(BUL.Row, 2)
Else
MsgBox "ARADIĞINIZ KAYIT BULUNAMAMIŞTIR !..LÜFTEN YENİ STOK GİRİŞİ YAPINIZ", vbExclamation, "DİKKAT !"
End If
End Sub

 

[Orion1]

Aşağıdaki kodda comboboxx ile yazılı yere siz syafalarınızın listelendiği combobox'ın adını yazınız.

Sheets([B]comboboxx[/B].value).Select

 

[camelmoonbull]

Soruyu soran arkadaşıma ve Orion1 hocama teşekkür ediyorum. Çok sağolun.