(13/06/2022, 17:26)berduş yazdı: öncelikle metin kutularının ismini değiştirip, "txt" & Sayı formatına çevirdim ki döngüyle işlem yapabilsin
mesela
BIR yerine txt1
İKİ yerine txt2.... gibi
Private Sub Liste0_Click()
tmp = Me.Liste0.Column(0)
For x = 1 To 6
If tmp = Controls("txt" & x) Then Exit Sub
If Len(Controls("txt" & x) & "") = 0 Then Controls("txt" & x) = tmp: Exit Sub
Next x
End Sub
sn üstadım ilgilendiğin için teşekkür ederim,
aşağıdaki gibi bir sorun yaşıyorum,
[img]
