Denetim araç kutusundaki list box??

[udentr2002]

Ekli dosyada da anlatmaya çalıştım arkadaşlar Sayfa 1'e denetim araç kutusundan bir listbox vew bir textbox yerleştirdim. Listboxda Sayfa isimlerinin görünmesi için ve listboxdaki sayfa ismine tek tıkladığımzda hemen altındaki textbox a yazacak ve listboxda görünen sayfa isimlerine çift tıkladığımızda o sayfayı açacak böyle bi kod nasıl yazabiliriz. böyle bi kod nasıl yapabiliriz

 

[Selçuk1]

sn. udentr2002,

aşağıdaki linkte sn. Seyit Tiken'in örnek çalışması tam olarak isteğinizi karşılamasa da, kısmen işinize yarayabilir.

http://www.excel.web.tr/showthread.php?t=26148

 

[udentr2002]

arkadaşlar çözdüm

kodları yazıyorum belki başka bir arkadaşıma lazım olabilir. Bu arada cellchug arkadaşım ilgilendiğin için teşşekür ederim ordakiler biraz raklı benim istediğim daha farklıydı ama yinede teşekkürler dostum kodlar aşağıda

ilk önce Normal bir modül sayfasına aşağıdaki kodu yazıyoruz
Sub auto_open()
For a = 1 To Sheets.Count
Sheets("Giris").ListBox1.AddItem Sheets(a).Name
Next
End Sub

Giris adlı sayfanın kod bölümünede aşağıdaki kodu yazıyoruz
Private Sub ListBox1_Click()
TextBox1.Text = ListBox1.Text

End Sub

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Sheets(ListBox1.Text).Select
UserForm1.Show
End Sub

dosyayı saveleyip kapatıp tekrar açıyoruz
belki birine lazım olur diye gönderiyorum.