Gizli sayfaları seçmek...

[Mehmet Şahin]

Forumda epeyce aradıktan sonra sormaya karar verdim.
UserForm_Initialize() olayında çalışma kitabındaki gizli sayfaları bir listbox'a, gizli olmayanları da bir diğerine listelemek istiyorum ve bunu yapamadım. Yardımcı olabilecek arkadaşlara şimdiden teşekkürler...

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin. Gizli olmayanlar listbox1e gizliler listbox2 ye listelenir.

[vb:1:bbad5e86e9]Private Sub UserForm_Initialize()
For a = 1 To Sheets.Count
If Sheets(a).Visible = True Then
ListBox1.AddItem Sheets(a).Name
Else
ListBox2.AddItem Sheets(a).Name
End If
Next
End Sub
[/vb:1:bbad5e86e9]

 

[Mehmet Şahin]

@Leventm arkadaş birçok yanıtta sizin adınız var ve bu kez de öyle oldu. Çok teşekkür ederim...