ListBoxtan toplu kayıt

[orhanakdemir]

Listbox a aldırdığımız verilerden txtboxlara verileri listoboxu tek tıklayarak aldırıyoruz.

Bir kod olsun ki butona atayalım ve şunu yapsın
Listboxdaki veri sayısı kadar döngü çalışsın listboxtaki her veri tek tek seçilsin (her seçim textbox lara alınan verileri değiştirecek) ve istediğimiz bir sayfaya kaydedilsin.
Yani bir tıklayacağız. Listboxtaki tüm kayıtlar tek tek seçilcek ve kayıtların sayısı kadar bu işlem devam edip bitecek
i=ListBox1.ListCount
a=ListBox1.ListIndex
For a=1 To i
ListBox_ListClick
Cells(1,2))=TextBox1
a=a+1
Next
gibi birşey bu tamam ancak ListClick çalışacak veri sayısı kadar
bunu nasıl yaparız

 

[zafer]

Merhaba

Private Sub CommandButton1_Click()
For A = 0 To ListBox1.ListCount - 1

If ListBox1.Selected(A) = True Then
c = c + 1
Sheets("sayfa3").Cells(c, 1) = ListBox1.List(A, 0)
End If
Next
End Sub



Private Sub UserForm_Initialize()
ListBox1.MultiSelect = fmMultiSelectMulti
End Sub

 

[orhanakdemir]

Zarfer Arkadaşım verdiğin cevap için çok teşekkürler deneyeceğim.