Alt sayfaların comboboxta görünmesi

[wonderful88]

Merhaba..

Arkadaşlar combobox ile ilgili bir sorum olacaktı. Ekteki örnekte görüldüğü gibi combobaxa tüm alt sayfaları listelemek istiyorum. Yani a,b,c ve eklenen tüm alt sayfalar comboboxta görünsün.Comboboxtan seçilip tıklandığında o sayfa açılsın.

Ben buna benzer bi uygulama göremedim, yardım edersenz çok memnun olurum. Teşekkürler

 

[Orion1]

Merhaba..

Arkadaşlar combobox ile ilgili bir sorum olacaktı. Ekteki örnekte görüldüğü gibi combobaxa tüm alt sayfaları listelemek istiyorum. Yani a,b,c ve eklenen tüm alt sayfalar comboboxta görünsün.Comboboxtan seçilip tıklandığında o sayfa açılsın.

Ben buna benzer bi uygulama göremedim, yardım edersenz çok memnun olurum. Teşekkürler

Bununla ilgili belkide 100 tane kod yazmışımdır.
Bir tane daha yazdım.Buyurun.
Dosya ektedir.

Sub liste()
Dim sh As Worksheet
ComboBox1.Clear
For Each sh In Worksheets
    If sh.Name <> "Sayfa1" Then ComboBox1.AddItem sh.Name
Next
End Sub
Private Sub ComboBox1_Click()
On Error Resume Next
Sheets(ComboBox1.Value).Select
End Sub

 

[wonderful88]

teşekkürler