تكرار جدول

[عمر الجزاوى]

الشرح داخل الملف

جدول.xlsm

[حسين مامون]

ان كان ما تقصد هو نسخ الفاتورة ولصقها في اخر صف فارغ من نفس الورقة فاليك هذه التجربة المتواضعة

******تحياتي*******

Sub copy_fact()
Dim lr
lr = Cells(Rows.Count, "g").End(3).Row + 5
    Range("A1:H33").Copy Range("a" & lr)
End Sub

جدول.xlsm

[عمر الجزاوى]

تسلم تسلم يمينك هذا هو المطلوب بالضبط