combobox ta sayfa isimleri

[Eser Gökay]

iyi aksamlar...

arkadaslar aşağıdaki kodlarla combobox ta sayfa isimlerini gosteriyorum.
sayfaların hepsini gosteriyor. atıyorum sayfam11 adlı sayfanın gorunmesini istemiyorsam nasıl bir degisiklik yapmalıyım.


Private Sub ComboBox1_Change()
Sheets(ComboBox1.Text).Select
Me.Caption = ActiveSheet.Name
Unload Me
End Sub
Private Sub CommandButton1_Click()
Unload Me
End Sub

Private Sub Label1_Click()

End Sub

Private Sub Label2_Click()

End Sub

Private Sub UserForm_Initialize()
Me.Caption = ActiveSheet.Name
For a = 1 To Sheets.Count
ComboBox1.AddItem Sheets(a).Name
Next
End Sub

 

[Orion1]

Aşağıdaki kodu deneyiniz.
Şimdi deneyiniz.

Private Sub UserForm_Initialize()
Me.Caption = ActiveSheet.Name
For a = 1 To Sheets.Count
    [COLOR="Red"]If Sheets(a).Name <> "Sayfa11" Then[/COLOR]
        ComboBox1.AddItem Sheets(a).Name
    [COLOR="red"]End If[/COLOR]
Next
End Sub

 

[Eser Gökay]

sayın Orion2 maalesef kod calismadı.

 

[hsayar]

Private Sub UserForm_Initialize()
Me.Caption = ActiveSheet.Name
For a = 1 To Sheets.Count
    If Sheets(a).Name <> "Sayfa11" Then
        ComboBox1.AddItem Sheets(a).Name
    End If
Next
End Sub

Next birleşik kalmış ondan olabilir...

 

[mcetindis]

Arkadaşlar bu konuda benim de bir sorum olacak. Gizli sayfaların isimlerinin combobox ta listelenmesini istemiyorum.Nasıl yapabilirim