• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

ListBox ile toplu kayıt

Hakan ERDOST

Destek Ekibi
Destek Ekibi
Katılım
12 Eylül 2004
Mesajlar
885
Excel Vers. ve Dili
Excel 2019 Türkçe (Ev)
Excel 2013 Türkçe (Okul)
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.
 

Ekli dosyalar

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

Rich (BB code):
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
 
Geri
Üst