Combobox ta sayfa isimlerinin listelenmesi

[scorpix]

Arkadaşlar daha önce edindiğim aşşağıdaki kod ile combobox ta sayfa isimlerini listeleyebiliyorum ancak bu kod tüm sayfaları ekliyor ben bir birkaçtanesini eklemesini istemiyorum nasıl bir değişiklik yapmak gerekir yardım etmenizi rica ederim
teşekkürler

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

 

[Ali]

Sayfa 1 den Sayfa3 kadar eklemek için

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


Sayfa 3 den Sayfa5'e kadar eklemek için
Private Sub UserForm_Initialize()
For A = 3 To 5
ComboBox1.AddItem Sheets(A).Name
Next
End Sub


1,3 ve 5 olarak birer atlayarak eklemek için

Private Sub UserForm_Initialize()
For A = 1 To 5 Step 2
ComboBox1.AddItem Sheets(A).Name
Next
End Sub


Rastgele kendi belirledikleriniz için 1,4 ve 5 sayfalar gibi

Private Sub UserForm_Initialize()
ComboBox1.AddItem Sheets(1).Name
ComboBox1.AddItem Sheets(4).Name
ComboBox1.AddItem Sheets(5).Name
End Sub

 

[scorpix]

Yardımın için teşekkürler

 

[scorpix]

çalışma kitabındaki sayfa isimleri GELEN ÜRÜNLER "FİRMA İSMİ" ve HESAP "FİRMA İSMİ" şeklinde sıralanıyor comboboxa sayfa isimleri eklendiğinde GELEN ÜRÜNLER ve HESAP kısmını kaldırabilirmiyiz

 

[scorpix]

Comboboxta sayfaları listeleyebildim ama Başındaki GELEN ÜRÜNLER ve ÖDEME ibaresi kaldırıla bilirmi ??
örnek ekte

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

[vb:1:b0451c0da4]Private Sub UserForm_Initialize()
For a = 1 To sheets.count
ad=sheets(a).name
if ad<>"GELEN ÜRÜNLER" and ad<>"HESAP" then ComboBox1.AddItem ad
Next
End Sub
[/vb:1:b0451c0da4]