comboboxta sekme adlarını listeleme ve comboboxtaki veriye göre sekme açma

[osm87]

Arkadaşlar merhaba.
Benim takıldığım nokta biraz karmaşık bir durum. Yardımcı olursanız memnun olurum.
Gelelim sorularıma;
Gizli sekmelerim var buna göre;
1) 1 adet combobox 'um var buna tıklayınca içerisinde sekmelerimin isimleri gözüksün.
2) bu comboboxtaki bir sekme adını seçtiğimde buton ile ilgili sekmeyi görünür yapsın.

buton içerisine yazacağım kodlara ihtiyacım var bir türlü konu ile ilgili bilgi bulamadım.

 

[Ömer]

Merhaba,

Combobox sayfada mı yoksa, Userform da mı?

 

[osm87]

merhaba ömer bey userformda

 

[Ömer]

Deneyiniz.

Private Sub UserForm_Initialize()
    Dim Sh As Worksheet
    For Each Sh In ThisWorkbook.Worksheets
        ComboBox1.AddItem Sh.Name
    Next Sh
End Sub

Private Sub CommandButton1_Click()
    Sheets("" & ComboBox1 & "").Visible = True
End Sub

 

[osm87]

teşekkür ederim ömer bey bukadar basit olacağı aklıma gelmemişti neler yapmadım ki bazen basit düşünemiyor insan. iyi ki varsınız kalın sağlıcakla.