مساعدة فى شيت الفواتير

[walid0alex]

اريد ترحيل بيانات كل فاتورة بمجرد طباعتها و افراغ البيانات من الفاتورة   .. وشكرا لكم

برنامج الفواتير.xlsx

[عبدالفتاح في بي اكسيل]

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

هذه  الاكواد  تعمل  معي  ان  لم  تعمل  معك  بسبب  الخلايا  المدمجة  ثم  انك  ارفقت  ملف  دون  ان  توضح  اي  شيء  

هل علينا  فك  الغاز لحل   هكذا  مواضيع  

بعد  هذه  المقدمة  هذاين  كودين  للطباعة  والترحيل  مع  مراعة  تسمية  الاوراق  بالانجليزي  الفاتورة 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