ar.abo.hna قام بنشر مايو 23, 2022 مشاركة قام بنشر مايو 23, 2022 عند ترحيل بيانات الليست بوكس للشيت لو الليست بوكس فيه اكتر من بيان بتتسجل عمودى فوق بعضها تاريخ - اسم -صنف تاريخ - اسم -صنف تاريخ - اسم -صنف (كدا الفاتورة بتاخد صفوف كتير) هل ينفع اخلى بيانات الليست بوكس تتسجل افقى جنب بعض (تاريخ - اسم -صنف *تاريخ - اسم - صنف* تاريخ - اسم صنف) وشكرا New Microsoft Excel Worksheet.xlsm رابط هذا التعليق شارك More sharing options...
أفضل إجابة lionheart قام بنشر مايو 24, 2022 أفضل إجابة مشاركة قام بنشر مايو 24, 2022 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 1 رابط هذا التعليق شارك More sharing options...
abohana قام بنشر مايو 24, 2022 مشاركة قام بنشر مايو 24, 2022 جزاكم الله خيرا 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها