كيفية ترحيل بيانات الفاتورة

[حسن البدوي]

اريد ترحيل بيانات الفاتورة كما موضح عند الضغط علي زر فاتورة جديدة يتم ترحيل البيانات لشيت مخزن الفواتير

New ورقة عمل Microsoft Excel.xlsx

[lionheart]

Sub Test()
    Dim a, ws As Worksheet, sh As Worksheet, m As Long, n As Long
    Application.ScreenUpdating = False
        Set ws = ThisWorkbook.Worksheets(1)
        Set sh = ThisWorkbook.Worksheets(2)
        m = ws.Cells(Rows.Count, 3).End(xlUp).Row
        n = sh.Cells(Rows.Count, 1).End(xlUp).Row + 1
        a = Array(Format(ws.Range("H3").Value, "yyyy/mm/dd"), ws.Range("I2").Value, ws.Range("D3").Value)
        sh.Range("A" & n).Resize(m - 5, 3).Value = a
        sh.Range("D" & n).Resize(m - 5, 7).Value = ws.Range("C6").Resize(m - 5, 7).Value
    Application.ScreenUpdating = True
End Sub

 

[حسن البدوي]

شكرا جدا علي هذا المجهود الجبار