ComboBox'ta "Rapor" İsimli Sayfa Gözükmesin

[Seyit Tiken]

ComboBox'ta "Rapor" Ýsimli Sayfa Gözükmesin

Selamlar,
UserForm üzerine yerleştirilmiş ComboBox'la sayfadan sayfaya geçiş yaparken, ComboBox'un açılan listesinde "Rapor" adlı sayfa gözükmesin.
Kullanılan Kod :
Private Sub ComboBox1_Change()
On Error Resume Next
ActiveSheet.Cells(2, 6).Select
If Not ComboBox1.Value = "" Then Worksheets(ComboBox1.Value).Select
End Sub
Teşekkürlerimi Sunuyorum.

 

[Levent Menteşoğlu]

Bunun için comboboxa sayfa isimlerini aktardığınız kodu vermeniz gerekir.

 

[osmantelci]

Private Sub UserForm_Initialize()
For Each i In Sheets: If i.Name <> "Rapor" Then ComboBox1.AddItem i.Name
Next
End Sub