ComboBox' ta Sayfa İsimlerini Listeleme

[wishm]

Değerli site üyeleri konu başlığından da anlaşılacaı üzere Excel Sayfalarını ComboBox' ta listelemek istiyorum. (Sayfa1, Sayfa2, Sayfa3, Sayfa4,....gibi). Ancak burada benim için önemli olan şu; zamanla Excel sayfalarına eklemeler yapıyorum. Yani bugün 5 adet sayfa varsa yarın bu yediye çıkıyor ve artarakta devam edecek. İşte bu noktada eklenen bu sayfaların kendiliğinden ComboBox' ta görünmesini istiyorum. İlginiz ve yanıtlarınız için şimdiden teşekkür ederim. Saygılarımla.

 

[hamitcan]

Private Sub UserForm_Initialize()
    For i = 1 To Sheets.Count
        ComboBox1.AddItem Sheets(i).Name
    Next
End Sub

 

[N.Ziya Hiçdurmaz]

yanıt

Private Sub ComboBox1_Change()
Sheets(ComboBox1.Value).Activate
End Sub

Private Sub CommandButton1_Click()
Unload UserForm1
End Sub

Private Sub UserForm_Initialize()
Dim i As Integer
    For i = 1 To Sheets.Count
        ComboBox1.AddItem Sheets(i).Name
    Next
End Sub

 

[wishm]

Sayın Hamit Can ve Sayın. N.Ziya Hiçdurmaz vermiş olduğunuz kodlar sorunumu çözdü. İlginiz ve yanıtlarınız için teşekkür ederim. Saygılarımla.

 

[Orion1]

Alternatif.

Dim syf As Worksheet
ComboBox1.Clear
For Each syf In Worksheets
    ComboBox1.AddItem syf.Name
Next
ComboBox1.ListIndex = 0

 

[Civan Jack]

Teşekkürler Evren bey.

 

[wishm]

Sayın Evren Gizlen altrnatif çözümünüz için teşekkür ederim. Saygılarımla.