Sub CagirOranKrs()
Dim Sayac, SW, KNT As Long
For SW = 1 To 4
Me.Controls("ORAN" & IIf(SW = 1, Null, SW)) = 0
Me.Controls("KARISIM_CINSI" & IIf(SW = 1, Null, SW)) = 0
Next SW
KNT = Me.Liste1.Column(1): SW = 0
For Sayac = 1 To Me.Liste1.ListCount
If Me.Liste1.Column(1, Sayac) = KNT Then
SW = SW + 1
Me.Controls("ORAN" & IIf(SW = 1, Null, SW)) = Me.Liste1.Column(5, Sayac)
Me.Controls("KARISIM_CINSI" & IIf(SW = 1, Null, SW)) = Me.Liste1.Column(6, Sayac)
End If
Next Sayac
End Sub
yukarıdaki kodla sorun çözüldü.liste kutusu tıklanma olayına
call CagirOranKrs
yazılarak istenilen bilgiler forma getirildi.