Bazı sayfaların listelenmesini engelleme

[oerbas]

Selamlarımla;

Arkadaşlar aşağıdaki kodlar ComboBox1 de sayfa isimlerinin listelenmesini sağlıyor. Bu sayfa isimleri aslında bir cari kart ( Müşteri Cari Kartları ) ismi olarak kullanılıyor. stok toplam ana sayfa gibi diğer sayfaların ComboBox1 de listelenmesini istemiyorum. liste açılınca sadece şirket isimlerinin listelenmesi gerekiyor. Kısacası listelenmesi gerekmeyen sayfa isimlerine kısıtlama getirmek istiyorm. Bu konuda sayın raider aşağıdaki Kodda bir düzenleme yapmıştı ama sorun giderilememişti.

And LCase(Sheets(i).Name) <> LCase("toplam stok") Then
ComboBox1.AddItem Sheets(i).Name

Sayın Raider yukarıdaki satırları yazmıştı ama bu yeterli olmadı

Private Sub UserForm_Activate()
 Dim i As Integer
    Dim j As Integer
    Label1.Caption = ""
    If Worksheets.Count = 1 Then Exit Sub
        For i = 1 To Worksheets.Count
        Sheets(i).Name = LCase(Sheets(i).Name)
            For j = i + 1 To Worksheets.Count
                If LCase(Worksheets(j).Name) < LCase(Worksheets(i).Name) Then
                    Worksheets(j).Move Before:=Worksheets(i)
                End If
            Next j
        Next i
    For i = 1 To Sheets.Count
        If LCase(Sheets(i).Name) <> LCase("ana sayfa") _
            And LCase(Sheets(i).Name) <> LCase("toplam stok") Then
            ComboBox1.AddItem Sheets(i).Name
        End If
                  
    Next
  Sheets("ana sayfa").Move Before:=Sheets(2)

Yardımcı olacak arkadaşa şimdiden teşekkür ederim.

 

[ALPEN]

listelenmesini istemediğiniz sayfaların TAM OLARAK isimleri?

 

[oerbas]

Alpen bey demişki

listelenmesini istemediğiniz sayfaların TAM OLARAK isimleri?

sayfa isimleri aşağıdaki gibidir

toplam
stok
sayfa1
ana sayfa

 

[ALPEN]

[vb:1:89fe893d0d]Private Sub UserForm_Activate()
Dim i As Integer
Dim j As Integer
Label1.Caption = ""
If Worksheets.Count = 1 Then Exit Sub
For i = 1 To Worksheets.Count
Sheets(i).Name = LCase(Sheets(i).Name)
For j = i + 1 To Worksheets.Count
If LCase(Worksheets(j).Name) < LCase(Worksheets(i).Name) Then
Worksheets(j).Move Before:=Worksheets(i)
End If
Next j
Next i
For i = 1 To Sheets.Count
If LCase(Sheets(i).Name) <> ("ana sayfa") _
And LCase(Sheets(i).Name) <> ("toplam") _
And LCase(Sheets(i).Name) <> ("stok") _
And LCase(Sheets(i).Name) <> ("sayfa1") Then
ComboBox1.AddItem Sheets(i).Name
End If

Next
Sheets("ana sayfa").Move Before:=Sheets(2) [/vb:1:89fe893d0d]

 

[oerbas]

Alpen bey verdiğiniz bilgiler için çooook teşekkürler

Sağlıcakla kalınız.