listviewdeki çoklu seçimle sayfaya kayıt

[orcunerkek54]

arkadaşlar listviewdeçi seçim kutucuğundan 5 tanesini işaretlediğimizi varsayalım bunların hepsini kaydet dediğimizde sıra numarası vererek alt alta sayfa3 e kaydetsin istiyorum.
yardımcı olabilirseniz sevinirim. teşekkürler.

 

[Recep İpek]

Peki seçtiğiniz kişileri kayıt ederken "Verilecek Malzeme" verilerini nereden alacak?

Çünkü üst bölümde sadece 1 kişi için "Verilen Malzeme" tanımlanabiliyor.

 

[orcunerkek54]

haklısınız. malzeme ismi ve miktarını listeden seçtiğim kişi sayısınca kaydettirebilirmiyiz. ekli dosyamı değiştirdim.

 

[Zeki Gürsoy]

Private Sub CommandButton1_Click()
Dim l As ListItem
Dim i As Integer

For Each l In ListView1.ListItems
    If l.Checked Then
        i = i + 1
        With Sheets("Sayfa3")
            .Cells(i + 1, 1) = i
            .Cells(i + 1, 2) = l.SubItems(1)
            .Cells(i + 1, 3) = l.SubItems(2)
            .Cells(i + 1, 4) = TextBox1
            .Cells(i + 1, 5) = TextBox2
        End With
    End If
Next
End Sub

 

[orcunerkek54]

syn zeki gürsoy yardımınız için teşekkürler
kodlarınıza bir satır ekleyerek her kayıt düğmesine basışla bir öncekilerin altına devamlılığı sağladım.inşallah doğru yere koymuşumdur.emeğinize sağlık diyerek tekrar teşekkür ediyorum.iyi akşamlar


Private Sub CommandButton1_Click()
Dim l As ListItem
Dim i As Integer

For Each l In ListView1.ListItems
If l.Checked Then
i = i + 1
With Sheets("Sayfa3")

i = Sheets("Sayfa3").[A65536].End(3).Row 'son veri olan satırı bulur

.Cells(i + 1, 1) = i
.Cells(i + 1, 2) = l.SubItems(1)
.Cells(i + 1, 3) = l.SubItems(2)
.Cells(i + 1, 4) = TextBox1
.Cells(i + 1, 5) = TextBox2
End With
End If
Next
End Sub