koddaki seçime göre istenen sayıdaki sayfanın comboboxda görünmemesi

[Emsdmr]

Değerli Arkadaşlar aşağıdaki kod yardımıyla "DATA" isimli sayfanın combobox1'de görünmesini engelliyorum ve Diğer sayfaların görünmesini sağlıyorum.Ancak ikinci sayfa olan "DATA1" ve Üçüncü sayfa olan"DATA2"yi comboboxda gizlemek için yardımcı olabilecek bir kod bulamadım.
yardımlarınızı bekliyorum.

(Yani Çalışma Sayfamda Olan DATA,DATA1,DATA2 adlı sayfaların dışında diğer sayfalar Comboboxda görülebilsin.)

Private Sub UserForm_Initialize()
Dim i As Integer
    For i = 1 To Sheets.Count
        If Sheets(i).Name <> ["DATA"] Then ComboBox1.AddItem Sheets(i).Name
      
    Next
End Sub

 

[kulomer46]

Aşağıdaki kod çözüm olabilir..

Private Sub UserForm_Initialize()
Dim i As Integer
For i = 1 To Sheets.Count
If Sheets(i).Name <> ["DATA"] Then ComboBox1.AddItem Sheets(i).Name
If Sheets(i).Name <> ["DATA1"] Then ComboBox1.AddItem Sheets(i).Name
If Sheets(i).Name <> ["DATA2"] Then ComboBox1.AddItem Sheets(i).Name

Next
End Sub

 

[Emsdmr]

Bu kodu bende denedim ama bu kodda şöyle bir problem var ilk yazdığım DATA kodu Data sayfasını gizliyor fakat DATA1'i açıyor
İkinci kodda DATA1'i gizliyor fakat DATA'yı gösteriyor
yani bukod + ve - nin çarpılması gibi oluyor netice sürekli +

 

[meslan]

Merhaba

Private Sub UserForm_Initialize()
Dim i As Integer
    For i = 1 To Sheets.Count
        If Not Sheets(i).Name Like "DATA" & "*" Then ComboBox1.AddItem Sheets(i).Name
      
    Next
End Sub

Kolay Gelsin.