for döngüsü ile comboboxta sayfa gizleme

[sirkülasyon]

Dim i As Integer

    For i = 1 To Sheets.Count
       If Sheets(i).Name = "Sayfa1" Then
      
        Else
            ComboBox1.AddItem Sheets(i).Name
            ComboBox1.Value = ActiveSheet.Name
        End If
    Next
End Sub

Yukarıda ki kod ile Sayfa1 comboboxta çıkmıyor. "Sayfa2" ve "Sayfa3" ünde comboboxta çıkmaması için ne yapılmaması lazım?
teşekkür ederim

 

[YUSUF44]

If satırını aşağıdaki gibi deneyin:

If Sheets(i).Name = "Sayfa1" or Sheets(i).Name = "Sayfa2" or Sheets(i).Name = "Sayfa3" Then

Ancak eğer sayfa1, 2 ve 3 için ayrı bir işleminiz yoksa if/else döngüsüne gerek yok. Sadece if kısmıyla halledebilirsiniz:

Dim i As Integer

For i = 1 To Sheets.Count
If Sheets(i).Name <> "Sayfa1" And Sheets(i).Name <> "Sayfa2" and Sheets(i).Name <> "Sayfa3" Then
ComboBox1.AddItem Sheets(i).Name
ComboBox1.Value = ActiveSheet.Name
End If
Next
End Sub

 

[sirkülasyon]

Yusuf abi
Comboboxta seçilen sayfayı "a3:aa aralığını" listboxta nasıl gösterebilirim.

 

[Orion1]

Buyurun.

Private Sub ComboBox1_Click()
ListBox1.RowSource = ComboBox1.Value & "!A3:A" & _
    Sheets(ComboBox1.Value).Cells(Rows.Count, "A").End(xlUp).Row
End Sub