ترحيل من لست بوكس للشيت

[AhmedSaeed01]

السلام عليكم ورحمة الله وبركاته

أرجو من الأساتذة الكرام تكملة اليوزرفورم المرفق

المطلوب فى قورم المبيعات SalesFrm

اضافة كود ترحيل من اللست بوكس إلى شيت (الصادر) فى الزر ذو اللون الأخضر - تأكيد البيع

والزر الأحمر الذي يرمز له بالحرف اكس أن يقوم بحذف السطر المحدد فى لست بوكس، أو اذا قمت بالضغط على السطر دبل كليك يقوم بحذف السطر أيهما اسهل فى التنفيذ

المطلوب فى الفورم الأخير ReportFrm

ايجاد فترة البيع اللى تمت فى شيت (الصادر) بين التاريخين المحددين فى المدة من/ إلى

 فى خانة الإجمالى جمع كل المبالغ التى تم ايجادها وإذا الامر معقداً يمكن تجاهل هذا الطلب

شكراً لحضراتكم، اسأل الله لكم الصحة والعافية.

مشاركة مكررة ... تـــم بالفعل حذف المشاركة الأخرى

Sales.xlsm

[AhmedSaeed01]

لقد وجدت هذا الكود للترحيل إلى الشيت ولكن المشكلة انه يرحل كل محتوى الليست بوكس بدون الصف الأول . لذا أرجو تعديله ليرحل كل محتويات الليست بوكس 

Private Sub CommandButton2_Click()
Dim i As Long
For i = 1 To Me.ListBox1.ListCount - 1

Sheet1.Range("A" & Rows.Count).End(xlUp).Offset(1, 0) = Me.ListBox1.List(i, 0)
Sheet1.Range("A" & Rows.Count).End(xlUp).Offset(0, 1) = Me.ListBox1.List(i, 1)
Sheet1.Range("A" & Rows.Count).End(xlUp).Offset(0, 2) = Me.ListBox1.List(i, 2)
Sheet1.Range("A" & Rows.Count).End(xlUp).Offset(0, 3) = Me.ListBox1.List(i, 3)
Sheet1.Range("A" & Rows.Count).End(xlUp).Offset(0, 4) = Me.ListBox1.List(i, 4)
Sheet1.Range("A" & Rows.Count).End(xlUp).Offset(0, 5) = Me.ListBox1.List(i, 5)
Next i

End Sub

 

[محي الدين ابو البشر]

Private Sub CommandButton2_Click()
Dim i As Long
For i = 0 To Me.ListBox1.ListCount - 1
Sheets("الصادر").Range("A" & Rows.Count).End(xlUp).Offset(1, 0) = Me.ListBox1.List(i, 0)
Sheets("الصادر").Range("A" & Rows.Count).End(xlUp).Offset(0, 1) = Me.ListBox1.List(i, 1)
Sheets("الصادر").Range("A" & Rows.Count).End(xlUp).Offset(0, 2) = Me.ListBox1.List(i, 2)
Sheets("الصادر").Range("A" & Rows.Count).End(xlUp).Offset(0, 3) = Me.ListBox1.List(i, 3)
Sheets("الصادر").Range("A" & Rows.Count).End(xlUp).Offset(0, 4) = Me.ListBox1.List(i, 4)
Sheets("الصادر").Range("A" & Rows.Count).End(xlUp).Offset(0, 5) = Me.ListBox1.List(i, 5)
Next i
End Sub

 

[AhmedSaeed01]

يعنى المشكلة كلها طلعت فى الصفر 😂 

انا شاكر لحضرتك جداً على اهتمامك ومساعدتك، أسأل الله لك الصحة والسلامة من كل سوء 💙