makro düzeltme

[mustafa7691]

sn dostlar aşağıdaki makro bir çalışmadan aldığım ve faal bir makro.bu makro ile açılan kod exceldeki sayfa isimlerini sekmelerden alıyor.benim sorunum listbox2 de gösterilen bu sekme adlarından bazılarının görüntülenmesini engellemek istiyorum.bu mümkünmü acaba konu ile ilgili yardımcı olursanız sevinirim.saygılarımla



Private Sub UserForm_Initialize()
With Me
.StartUpPosition = 0
.Left = Application.Width - .Width
.Top = 0
End With
Dim syf As Worksheet
For Each syf In Worksheets
ListBox2.AddItem syf.Name
Next
ListBox1.ColumnCount = 3
ListBox1.ColumnWidths = "100;30;200"
End Sub

 

[Levent Menteşoğlu]

Aşağıdaki ilaveleri yapabilirsiniz.

Private Sub UserForm_Initialize()
With Me
.StartUpPosition = 0
.Left = Application.Width - .Width
.Top = 0
End With
Dim syf As Worksheet
For Each syf In Worksheets
[B][COLOR=red]if syf.name="sayfa1" or syf.name="sayfa2" then goto 10[/COLOR][/B]
ListBox2.AddItem syf.Name
[B][COLOR=red]10 [/COLOR][/B]Next
ListBox1.ColumnCount = 3
ListBox1.ColumnWidths = "100;30;200"
End Sub

 

[mustafa7691]

sn Levent bey mükemmel oldu .çok teşekkürler.saygılarımla.