combobox'daki sayfada arama

Katılım
22 Ocak 2007
Mesajlar
321
Excel Vers. ve Dili
offıce 2003
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

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
22,254
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
Aşağıdaki kodda comboboxx ile yazılı yere siz syafalarınızın listelendiği combobox'ın adını yazınız.
Kod:
Sheets([B]comboboxx[/B].value).Select
 
Katılım
22 Haziran 2007
Mesajlar
29
Excel Vers. ve Dili
excel 2007
Soruyu soran arkadaşıma ve Orion1 hocama teşekkür ediyorum. Çok sağolun.
 
Üst