ترقيم فاتورة واريد زر يكون في الاكسل يحفظ الفاتورة مباشرة

[alahdal7777]

DG Inv Empty.xlsx

[Ali Mohamed Ali]

اهلا بك فى المنتدى-تفضل

 

DG Inv Empty.xlsm

[alahdal7777]

استاذي لو ابغى اطبع الفاتورة مرة ثانية كيف 

 

 

[Ali Mohamed Ali]

يمكنك استخدام هذا الكود فسوف يتم عمل ملف منفصل برقم الفاتورة عند الضغط على ترحيل فبذلك يمكنك طباعة اى فاتورة تريدها

Sub Splitbook()
Dim xPath As String
ActiveSheet.Name = ActiveSheet.Range("AP2") & " NO" & Range("E6")
xPath = Application.ActiveWorkbook.Path
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For Each xWs In ThisWorkbook.Sheets
    xWs.Copy
    Application.ActiveWorkbook.SaveAs Filename:=xPath & "\" & xWs.Name & ".xlsx"
    Application.ActiveWorkbook.Close False
Next
Application.DisplayAlerts = True
Application.ScreenUpdating = True
Range("E6") = ([E6]) + 1
End Sub

 

Invoice.xlsm

[alahdal7777]

مشكور وما قصرت وبيض الله وجهك استاذي القدير