listbox yardımı

[s.çakır]

selam excel forumun değerli üyeleri benim yapmaya çalıştığım programda kayıt yaptığım personeli listbox lara alamıyorum ben denedim olmadı bana bu konuda yardımcı olur musunuz ilginize şimdiden teşekkürler dosyam ektedir. dosyayı görünce daha iyi anlaşılacaktır umarım.

 

[Korhan Ayhan]

Aşağıdaki kodu formunuza ekleyip deneyin.

Private Sub MultiPage1_Change()
    ListBox1.Clear
    ListBox2.Clear
    
    For Each Sayfa In ThisWorkbook.Worksheets
        If Sayfa.Name <> "izin" And Sayfa.Name <> "Sablon" Then
            ListBox1.AddItem Sayfa.Name
            ListBox2.AddItem Sayfa.Name
        End If
    Next
End Sub

 

[s.çakır]

hocam eline yüreğine sağlık çok teşekkürler