ارجو مساعدتى فى كود الترحيل

[waleedsh3alan]

ارجو من الاساتذه الكرام مساعتدى فى هذا الملف

wsh.rar

[ابراهيم الحداد]

السلام عليكم ورحمة الله

انظر الى هذا الملف ربما هذا ما تقصده

 

wsh.rar

[waleedsh3alan]

10 ساعات مضت, زيزو العجوز said:

وعليكم السلام  ورحمه الله وبركاته

اشكركم لاهتمام سيادتكم بموضوعى 

ولكن لى بعض الملاحظات

لم يتم تفريغ الفاتوره بعد الترحيل

ويكون رقم الفاتوره تلقائى

وارجو من سيادتكم كود لطباعه الفورم

ولكم جزيل الشكر

 

 

[ابراهيم الحداد]

السلام عليكم ورحمة الله وبركاته
الكود التالى للطباعة اربطه بالزر الموجود فى كل ورقة تريد طباعتها

Sub Print_Invoice()
ActiveSheet.PrintPreview
y = ActiveSheet.[E2].Value
z = MsgBox("هل حقا تريد طباعة الفاتورة رقم : " & y, vbYesNo)
If z = vbYes Then
ActiveSheet.PrintOut from:=1, to:=1, Copies:=1
Else
Exit Sub
End If
End Sub

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

Loop

ws.Range("A7:E26").ClearContents
x = x + 1

  هذا وبالله التوفيق
 

 

[waleedsh3alan]

شكرا استاذى العزيز زيزو على الاهتمام

وتقبل الله منكم صالح الاعمال

الاستاذ الفاضل زيزو

اشكرك على كود تفريغ الفاتوره

ولكن هل من الممكن تفريغ الفاتور مع الحفاظ على المعادلات الموجوده بالفاتوره