iyi çalışmalar arkadaşlar userform üzerinde bulunan listboxdan textboxlara butonla veriyi aktarıyorum levent hocamın aşağıdaki kodları gönderdi sağ olsun b ve c sütündaki verileri aktarıyor.
Private Sub CommandButton1_Click()
Dim inds As Byte, i As Long, say As Long
say = 1
If ListBox1.ListCount < 1 Then Exit Sub
For i = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(i) = True Then
Controls("Textbox" & say).Text = ListBox1.List(i, 0)
Controls("Textbox" & say + 1).Text = ListBox1.List(i, 1)
say = say + 2
End If
Next
End Sub
Private Sub UserForm_Initialize()
Dim sat As Long
sat = Sheets("PERSONELBİLGİLERİ").Cells(65536, "C").End(xlUp).Row
ListBox1.ColumnCount = 4
ListBox1.ColumnHeads = True
ListBox1.MultiSelect = fmMultiSelectMulti
ListBox1.ListStyle = fmListStyleOption
If sat < 3 Then Exit Sub
ListBox1.RowSource = "PERSONELBİLGİLERİ!C2 : D " & sat
End Sub
benim sorum c satırının yerine b ile y satırını aktarmasını istiyorum uğraştım ama beceremedim.nereyi değiştirmem gerekiyor
Private Sub CommandButton1_Click()
Dim inds As Byte, i As Long, say As Long
say = 1
If ListBox1.ListCount < 1 Then Exit Sub
For i = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(i) = True Then
Controls("Textbox" & say).Text = ListBox1.List(i, 0)
Controls("Textbox" & say + 1).Text = ListBox1.List(i, 1)
say = say + 2
End If
Next
End Sub
Private Sub UserForm_Initialize()
Dim sat As Long
sat = Sheets("PERSONELBİLGİLERİ").Cells(65536, "C").End(xlUp).Row
ListBox1.ColumnCount = 4
ListBox1.ColumnHeads = True
ListBox1.MultiSelect = fmMultiSelectMulti
ListBox1.ListStyle = fmListStyleOption
If sat < 3 Then Exit Sub
ListBox1.RowSource = "PERSONELBİLGİLERİ!C2 : D " & sat
End Sub
benim sorum c satırının yerine b ile y satırını aktarmasını istiyorum uğraştım ama beceremedim.nereyi değiştirmem gerekiyor
Son düzenleme: