Merhabalar,
form üzerinde 31 tane liste kutum var,
bu listedeki hangi satıra tıklarsam,
listenin column(1) satırını tanımlamış olduğum
bir Metin kutusuna göndermesini nasıl yapabilirim,
E0=List0.column(1)
gibi, 31 tane liste kutusuna kod yazmadan bunu nasıl yapabilirim.
bilgim dahilinde aşağıdakini yaptım olmadı,
Private Sub Form_Load()
Dim Ctrl As Control
For Each Ctrl In Screen.ActiveForm.Controls

If Ctrl.Name = Me.ActiveControl.Name Then

Me.E0.Value = Ctrl.Column(1)

End If

Next
End Sub