عمر الجزاوى قام بنشر ديسمبر 18, 2020 مشاركة قام بنشر ديسمبر 18, 2020 الشرح داخل الملف جدول.xlsm رابط هذا التعليق شارك More sharing options...
حسين مامون قام بنشر ديسمبر 18, 2020 مشاركة قام بنشر ديسمبر 18, 2020 ان كان ما تقصد هو نسخ الفاتورة ولصقها في اخر صف فارغ من نفس الورقة فاليك هذه التجربة المتواضعة ******تحياتي******* Sub copy_fact() Dim lr lr = Cells(Rows.Count, "g").End(3).Row + 5 Range("A1:H33").Copy Range("a" & lr) End Sub جدول.xlsm 3 رابط هذا التعليق شارك More sharing options...
عمر الجزاوى قام بنشر ديسمبر 18, 2020 الكاتب مشاركة قام بنشر ديسمبر 18, 2020 تسلم تسلم يمينك هذا هو المطلوب بالضبط 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها