ComboBox'tan veri çıkarma:

[sakincekirge]

Arkadaşlar userform üzerindeki combobox'ıma çalışma kitabımdaki çalışma sayfalarını seçtirtiyorum. Bununla birlikte ben bazı çalışma sayfalarının combobox'ta görünmesini istemiyorum. Mesela sayfa isimleri Asınıf,Bsınıf,Csınıf,Dsınıf olsun. Ben Dsnıf'ın görünmesini istemiyorum. Belki yardımcı olur combobox kodumu gönderiyorum.

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

 

[veyselemre]

Private Sub UserForm_Initialize()
For i = 1 To Worksheets.Count
if Worksheets(i).Name<>"Dsınıf" then ComboBox1.AddItem Worksheets(i).Name
Next i
End Sub

 

[sakincekirge]

çok sağolsun veyselemre bey,
peki ben bir değilde iki veya daha fazla sayfayı çıkaracaksam bu durumda
if Worksheets(i).Name<>"Dsınıf" then ComboBox1.AddItem Worksheets(i).Name
satırını alt alta kopyalayıp mı kullacağım yada Dsınıf'ın yanına yeni isimleri mi ekleyceğim. Açıkçası yeni isimleri nasıl ekleyeceğimi bilmiyorum.

Yani şöyle diyelim hem Asınıf hemde Dsınıf kullanılamaycak olsun. Bu durumda kod nasıl olacak?

 

[sakincekirge]

evet alt alta kopyalayınca olmuyor. Yada and koyarak bunları deneyerek öğrendik

 

[veyselemre]

if Worksheets(i).Name<>"Dsınıf" and Worksheets(i).Name<>"Csınıf" then ComboBox1.AddItem Worksheets(i).Name

 

[sakincekirge]

çok sağolun. bende f Worksheets .Name<>"Dsınıf" then if Worksheets .Name<>"Asınıf" then ComboBox1.AddItem Worksheets .Name
şeklinde bir çözüm bulmuştum.benimkinde fazlalık var demekki