Gizli sayfa listboxta sıralanmasın

[ccumhur]

Sayfa isimlerini listboxa aldırıyorum ama gizli olan sayfayıda listeliyor gizli olan sayfaların listboxta sıralanmasını nasış engellerim.tşk

 

[Recep İpek]

Kodlarınızı ekleyebilirmisiniz?

 

[ccumhur]

Dim i As Integer
For i = 1 To Worksheets.Count
ListBox1.AddItem Worksheets(i).Name
Next i
----
ilginize tşk döngüyü 2 den baslattım oldu.ama yinede gizli sayfa olarak halledemedim

 

[Recep İpek]

Aşağıdaki kodları deneyiniz.

Private Sub CommandButton1_Click()
Dim sh As Worksheet
For Each sh In Worksheets
If sh.Visible = True Then ListBox1.AddItem sh.Name
Next
End Sub