kemal turan
Altın Üye
- Katılım
- 10 Haziran 2011
- Mesajlar
- 1,677
- Excel Vers. ve Dili
- Excel 2010 32 bit
Merhaba,
Aşağıdaki kod ile userformda listbox a aldığım verilerin 1 nci sutununu textboxlara aktarmak istiyorum.
Biraz araştırdım. Aşağıdaki kod ile ek resimde görüldüğü gibi ilk satırdaki verileri bütün textboxlara aktarıyor.
isteğim
textbox4= 151
textbox5 = 152
textbox6= 153
Private Sub CommandButton2_Click()
For sat = 1 To ListBox1.ListCount
For sut = 4 To 9
If Controls("TextBox" & sut) = "" Then
Controls("TextBox" & sut) = ListBox1.List(sat - 1)
End If
Next: Next
MsgBox " Aktarma İşlemi Tamamdır"
End Sub
Aşağıdaki kod ile userformda listbox a aldığım verilerin 1 nci sutununu textboxlara aktarmak istiyorum.
Biraz araştırdım. Aşağıdaki kod ile ek resimde görüldüğü gibi ilk satırdaki verileri bütün textboxlara aktarıyor.
isteğim
textbox4= 151
textbox5 = 152
textbox6= 153
Private Sub CommandButton2_Click()
For sat = 1 To ListBox1.ListCount
For sut = 4 To 9
If Controls("TextBox" & sut) = "" Then
Controls("TextBox" & sut) = ListBox1.List(sat - 1)
End If
Next: Next
MsgBox " Aktarma İşlemi Tamamdır"
End Sub
