ترحيل بيانات الليست بوكس للشيت افقى مش عمودى

[ar.abo.hna]

عند ترحيل بيانات الليست بوكس للشيت لو الليست بوكس فيه اكتر من بيان

بتتسجل عمودى فوق بعضها

تاريخ - اسم -صنف

تاريخ - اسم -صنف

تاريخ - اسم -صنف

(كدا الفاتورة بتاخد صفوف كتير)

هل ينفع اخلى بيانات الليست بوكس  تتسجل افقى جنب بعض (تاريخ - اسم -صنف *تاريخ - اسم - صنف* تاريخ - اسم صنف)

وشكرا

New Microsoft Excel Worksheet.xlsm

[lionheart]

Private Sub CommandButton2_Click()
    Dim i As Long, ii As Long, lr As Long, c As Long
    lr = Sheet1.Cells(Rows.Count, "B").End(xlUp).Row + 1
    c = 2
    For i = 1 To Me.ListBox1.ListCount - 1
        For ii = 0 To 4
            Sheet1.Cells(lr, c + ii).Value = Me.ListBox1.List(i, ii)
        Next ii
        c = c + 5
    Next i
End Sub

 

[abohana]

جزاكم الله خيرا