Bagzı sayfaların comboxta görünmemesi için

[taseraydin]

1- ilk üç sayfanın veya adını belirtiğimiz sayfaların,
isimlerinin comboboxta görünmemesi için
"örneğin sayf1,sayfa2,sayfa3 görünmeyecek diğer sayfalar görünecek "
nasıl bir kod eklemeliyim
-------------------------
Private Sub ComboBox1_Change()
Sheets(ComboBox1.Text).Select
End Sub
------------------------------

- 2aynı durumda listbox içinde ne yapmalıyım
--------
Private Sub UserForm_Initialize()
For a = 4 To Sheets.Count
ListBox1.AddItem Sheets(a).Name
Next

End Sub
--------

 

[hamitcan]

Private Sub UserForm_Initialize()
    For i = 1 To Sheets.Count
       If Sheets(i).Name <> "Sayfa1" Then ComboBox1.AddItem Sheets(i).Name
    Next
End Sub

 

[taseraydin]

İLGİNİZE TEŞEKÜR EDERİM GÖNDERMİŞ OLDUĞUNUZ sAYFA1 GÖSTERMİYOR BUNU 3 SAYFA İÇİN YAPMAYA ÇALIŞTIM BU SEFER COMBOBOXTA BÜTÜN VERİLER 3.KEZ GÖRÜNÜYOR

 

[hamitcan]

Hangi dosyaların görünmesini istemiyorsanız yazın, onları koda ekleyelim.

 

[taseraydin]

Sayfa1,sayfa2,sayfa3

 

[hamitcan]

Private Sub UserForm_Initialize()
    For i = 1 To Sheets.Count
WITH Sheets(i)      
If .Name <> "Sayfa1"  OR .Name <> "Sayfa2" OR .Name <> "Sayfa3"   Then 
ComboBox1.AddItem Sheets(i).Name
END IF
END WITH   
 Next
End Sub

 

[taseraydin]

Or ile değil and ile normal çalıştı ilginize emeğinize teşekür ederim bunu listboxta duygulamaya çalışacam