Liste kutusunda görünen Sayfalara Gitmek

[aydın]

Merhabalar ! .Liste kutusuna görünen sayfa isimlerini tıkladığımda o
sayfaya giden bir makroyu merka ediyorum,cevap verenlere şimdiden teşekkür ederim.



Edit xxrt:"liste kutusuna makro atamak"Başlığı "Liste kutusunda görünen Sayfalara Gitmek" Olarak Değiştirildi.

 

[Levent Menteşoğlu]

Ekteki örneği inceleyiniz,Liste kutusunu formlar çubuğundan kullanmışsınız bu durumda liste kutusundan seçilen veriyi bir hücreye bağlamak gerekiyor. buda sayısal bir değer olduğundan değeride bir formülle buldurdum. Aklıma gelen ilk yol bu şekilde oldu. Denetim araç kutusundan seçilen bir listbox ilede aynı işlem yapılabilir her iki uygulama içinde örnek ekte mevcuttur.

selamlar

 

[ALPEN]

guzel ornek.

arama sayfasindan kolay bulunsun deyu.

liste kutusu listbox sayfa sayfaya git istenilen seçilen ac aç

 

[xxrt]

arama sayfasindan kolay bulunsun.

Edit xxrt:"liste kutusuna makro atamak"Başlığı "Liste kutusunda görünen Sayfalara Gitmek" Olarak Değiştirildi.
k::

 

[bybilgin]

Merhabalar

Listbox1 deki Click Olayına



if listbox1.value=empty then
msgBox (" Boş alana Tıkladınız")
else
sheets(listbox1.value).select
end if

kodunu Yapıştırınız

Private Sub ListBox1_Click()

if listbox1.value=empty then
msgBox (" Boş alana Tıkladınız")
else
sheets(listbox1.value).select
end if

End Sub

bu şekilde gözükecek