Private Sub Liste0_Click()
tmp = Me.Liste0.Column(0)
For x = 1 To 6
If tmp = Controls("txt" & x) Then Exit Sub
Next x
For x = 1 To 6
If Len(Controls("txt" & x) & "") = 0 Then Controls("txt" & x) = tmp: Exit Sub
Next x
End Sub
kodu aşağıdaki gibi düzenleyip dener misiniz?
