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

[elsedik]

عندما يتم ترحيل الفاتورة الى الصحفة رقم 2

اريد يتم ترحيل بيانات الفاتورة بمقدار بنود تفاصيل الفاتورة

مرفق ملف

ترحيل فاتورة .rar

[عبدالله باقشير]

السلام عليكم

تفضل هذا الكود مختصر وبسيط

يقوم بما طلبت

Sub invoice_in()

Dim Z As Integer, Y As Integer


If Sheet5.[C12] = Empty Or Sheet5.[E12] = Empty Then

    MsgBox " من فضلك ادخل البيانات "

    Exit Sub

End If

'''''''''''''''''''''''''''''''''''''

If MsgBox("هل تريد ادخال البيانات", vbYesNo, lifesoft) = vbNo Then Exit Sub

'''''''''''''''''''''''''''''''''''''

Z = Sheet2.Range("a3500").End(xlUp).Row + 1

Y = Application.WorksheetFunction.CountA(Sheet5.[C17:C36])

'''''''''''''''''''''''''''''''''''''

Application.ScreenUpdating = False

With Sheet2

    .Range("A" & Z).Resize(Y, 6).Value = Array([C12], [C14], [E12], [E14], [I12], [I14])

    .Range("G" & Z).Resize(Y, 9).Value = Range("B17").Resize(Y, 9).Value

    .Range("P" & Z).Resize(Y, 3).Value = Array([J39], [J40], [J41])

End With

Application.ScreenUpdating = True

'''''''''''''''''''''''''''''''''''''

End Sub

في امان الله

[elsedik]

استاذ/ عبد الله باقشير جزاك الله كل خير

على هذا الكود الرائع على قدمت من معلومات لمحبي الاكسل فى هذا المنتدى الفاضل

[elsedik]

ممكن كود لاستدعاء الفاتورة وتعديلة

اسف جدا على طلباتى الكيثرة

[اسلام سيد]

اخى الكريم راجع هذا الرابط ربما يساعدك

http://www.officena.net/ib/index.php?showtopic=41982&hl=%2B%D8%AA%D8%B1%D8%AD%D9%8A%D9%84+%2B%D8%A7%D9%84%D9%81%D8%A7%D8%AA%D9%88%D8%B1%D8%A9