Soru Labeldeki isme göre sütundan Listboxa liste getirme

[sirkülasyon]

Ekli dosyamın Sayfa1 B1:Q1 aralığında sınıf adları mevcut. Userformda da labellere sınıf adları alınmış.
1 - Labellerde hangi sınıf seçilince o sınıfa ait listenin Lİstboxa gelmesi için yardımcı olabilir misiniz?

 

[Haluk]

Private Sub Label1_Click()
    ListBox1.List = Range("B2:B" & Range("B" & Rows.Count).End(xlUp).Row).Value
End Sub

Diğer Label nesneleri için de benzer şekilde yapabilirsiniz....

.

 

[sirkülasyon]

Reis, Yardımcı olduğunuz için teşekkür ederim. Saygılarımla