ComboBox'ın içine excell sayfalarını atamak

[Drago]

vba de oluşturduğum comboboxın içine mevcut excell sayfalrımı atamak ve seçimimi yaptığımda bana o sayfayı açmasını istiyordum.

 

[ÖmerFaruk]

Private Sub ComboBox1_Click()
    Worksheets(ComboBox1.Value).Select
End Sub
Private Sub UserForm_Initialize()
    For i = 1 To Worksheets.Count
        ComboBox1.AddItem Worksheets(i).Name
    Next i
End Sub

 

[TURKOLOG]

Private Sub ComboBox1_Click()
    Worksheets(ComboBox1.Value).Select
End Sub
Private Sub UserForm_Initialize()
    For i = 1 To Worksheets.Count
        ComboBox1.AddItem Worksheets(i).Name
    Next i
End Sub

Peki misal tüm sayfaları göstermese
Örneğin Rapor ,Vizite , Kıdem, Parola sayfalarını göstermese comboboxta diğer sayfaları gösterse


Ya da sadece Parola sayfasini göstermese comboboxta diğer sayfaları gösterse

 

[ÖmerFaruk]

Private Sub UserForm_Initialize()
    For i = 1 To Worksheets.Count
        If Worksheets(i).Name <> "ParolaSayfası" And Worksheets(i).Name <> "DiğerSayfanızınAdı" Then
        'if sorgusunda verdiğim örnek gibi istemediğiniz sayfaları AND ile ilave edebilirsiniz
            ComboBox1.AddItem Worksheets(i).Name
        End If
    Next i
End Sub

 

[YUSUF44]

Private Sub UserForm_Initialize()
    For i = 1 To Worksheets.Count
        If Worksheets(i).Name <> "ParolaSayfası" And Worksheets(i).Name <> "DiğerSayfanızınAdı" Then
        'if sorgusunda verdiğim örnek gibi istemediğiniz sayfaları AND ile ilave edebilirsiniz
            ComboBox1.AddItem Worksheets(i).Name
        End If
    Next i
End Sub

Böyle yapınca her seferinde isimler eklenip mükerrer liste oluşmaz mı? Öncesinde clear yapılması gerekmez mi?

 

[ÖmerFaruk]

Neden yapsın ki? Sonuçta İnitialize olayına yazılmış. Userform kapanıp açılınca ComboBox boş gelecek.
Yine de ComboBox1.Clear arzu ediliyorsa kodların başına yazılır. Fazladan 1 satır göz çıkarmayacaktır =)