walid0alex قام بنشر يوليو 3, 2021 مشاركة قام بنشر يوليو 3, 2021 اريد ترحيل بيانات كل فاتورة بمجرد طباعتها و افراغ البيانات من الفاتورة .. وشكرا لكم برنامج الفواتير.xlsx رابط هذا التعليق شارك More sharing options...
أفضل إجابة عبدالفتاح في بي اكسيل قام بنشر يوليو 3, 2021 أفضل إجابة مشاركة قام بنشر يوليو 3, 2021 ملفك يجب اعادة تنسيقه خصوصا الغاء دمج الخلايا هذه الاكواد تعمل معي ان لم تعمل معك بسبب الخلايا المدمجة ثم انك ارفقت ملف دون ان توضح اي شيء هل علينا فك الغاز لحل هكذا مواضيع بعد هذه المقدمة هذاين كودين للطباعة والترحيل مع مراعة تسمية الاوراق بالانجليزي الفاتورة INVOICE والورقة المرحل اليها DATA Sub CCTO() Dim LR As Long, i As Long, cls cls = Array("a10", "b11", "b13", "b14") With Sheets("data") LR = WorksheetFunction.Max(2, .Range("A" & Rows.Count).End(xlUp).Row + 1) For i = LBound(cls) To UBound(cls) .Cells(LR, i + 1).Value = Sheets("invoice").Range(cls(i)).Value Next i End With With Sheets("INVOICE") .Range("A10").ClearContents .Range("A16:A25").ClearContents .Range("B11").ClearContents .Range("B13").ClearContents .Range("B14").ClearContents .Range("B16:B25").ClearContents End With End Sub Sub PPRINT() ActiveSheet.PageSetup.PrintArea = "$A$1:$E$31" ActiveSheet.Range("A1:E31").PrintOut End Sub 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان