ListBox ile toplu kayıt

[Hakan ERDOST]

Herkese merhaba ekteki dosyada userform üzeriden ders ve öğrenci comboboxlardan seçerek optionbutonlar aracılığı ile veri girişi yapabiliyorum. Ancak tek tek veri girişi dışında bazı derslerde toplu veri girişi daha kolay ve işlevsel olduğu için formun sağına eklediğim Listboxu da kullanarak toplu veri girişi yapmak istiyorum.
Ancak listboxu döngüye dahil edemedim.Dosya ektedir.

 

[halit3]

Verileri nasıl aktarılacağını bilmediğim için kod büloğunuz böyle bir döngü olması lazım

Private Sub CommandButton4_Click()

Application.ScreenUpdating = False
Application.DisplayAlerts = False

Dim i As Integer
son = 0
For i = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(i) = True Then
son = 1
Exit For
End If
Next

If son = 0 Then
MsgBox "Sayfa seçimi yapmadınız"
Exit Sub
End If

For i = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(i) = True Then

'kodlarınız burada olacak

End If
Next

MsgBox "İşlem Tamam", vbInformation, " U Y A R I "

End Sub