UserForm ile ilgili seçmeli soru

[ses]

arkadaşlar ek dosyada bir çalışmam var indirdiğinizde görürsünüz zaten makrolarda bir yerde hata yapıyorum ŞU ŞEKilde olacak çalışmam a harfine tıklandığında a harfi ile ilgili çalışmaları listeleyecek, listeden tıkladığımızda label de açıklama görünecek...şimdiden çok teşekkürler...

 

[ses]

arkadaşlar bilen varmı

 

[N.Ziya Hiçdurmaz]

Yanıt

Private Sub CommandButton1_Click()
ListBox1.Clear
For sat = 1 To 10
If Cells(sat, "a") Like "A" & "*" Then
ListBox1.AddItem
ListBox1.List(s, 0) = Cells(sat, "a")
s = s + 1
End If: Next
End Sub
Private Sub CommandButton2_Click()
ListBox1.Clear
For sat = 1 To 10
If Cells(sat, "a") Like "V" & "*" Then
ListBox1.AddItem
ListBox1.List(s, 0) = Cells(sat, "a")
s = s + 1
End If: Next
End Sub
Private Sub ListBox1_Click()
For sat = 1 To 10
If Cells(sat, "a") Like ListBox1 Then
Label1 = Cells(sat, "b")
End If: Next
End Sub

 

[ses]

çok teşekkür ederim çok saolun