القبطان محمد

قمت بعدة محاولات والحمد لله تم التعديل

السلام عليكم أحبائى وأساتذتى الأفاضل أرجو التكرم على مساعدتى فى الأتى : اثناء استرجاع فاتورة مسجلة لم يتم استرجاع عمود الخصم اريد حل المشكلة انتبه من فضلك , تـــم تعديل وتغيير عنوان المشاركة ليعبر عن طلبك ... كما تم رفع المشاركة بالقسم مباشرة بدون رفعها على مكتبة المنتدى فالملف حجمه صغير ولا يحتاج رفعها هناك فاتورة.xls

عنوان مخالف ... تـــم تعديل عنوان المشاركة ليعبر عن طلبك السلام عليكم اساتذتى الكرام أرجو التكرم على مساعدتى في تعديل كود الترحيل المشكلة هي ترحيل الصفوف الفارغة اريد حل المشكلة لو تكرمتم تصميمي.xlsm

محتاج ارحل البيانات من فاتورة المبيعات الي سجل الفواتير بدون ترحيل الصفوف الفارغة الكود اللي انا كتبته محتاج تعديل Sub mohamedsamir() Sheets(2).Activate Dim m As Integer m = [b100].End(xlUp).Row Range("b10:m28" & m).Copy Sheets(4).Activate Range("a" & [a900000].End(xlUp).Row + 18).PasteSpecial xlPasteValues Sheets(2).Activate Range("f10:f29" & m).ClearContents Range("h10:h29" & m).ClearContents Range("j10:j29" & m).ClearContents Range("g7").ClearContents Range("g5").Value = Range("g5").Value + 1 End Sub