تعيين زر واحد لتنفيذ أكثر من ماكرو

[Ali994m]

السلام عليكم 

أرجو المساعدة في تعيين زر ليتم تنفيذ 2 ماكرو 

وجزاكم الله كل خير

‫‫Daily order - نسخة.xlsm

[Ali994m]

Sub PrintAllFirstPage()
Dim xWs As Worksheet
Set xWs = Sheets("report")
    xWs.PrintOut from:=1, To:=1
End Sub

Sub Export_PDF_in_OneAll()
Application.ScreenUpdating = False
Sheets(Array("Report")).Select
mypath = "D:\USP41 - NF36\" & Range("C8").Value
If Dir(mypath, vbDirectory) = "" Then MkDir mypath
ActiveSheet.Range("A1:D33").ExportAsFixedFormat xlTypePDF, mypath & "\" & Range("p12").Value & ".pdf", xlQualityStandard
Worksheets("Report").Select
Application.ScreenUpdating = True
MsgBox "Done"
End Sub

 

‫‫Daily order - نسخة.xlsm

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

حسب فهمى لطلبك تم دمج الامرين مع بعض بالصورة  الثالتة 

__Daily order - نسخة.xlsm

[abouelhassan]

يمكنك استخدام هذا الكود اخى

Sub towmacro()
Application.ScreenUpdating = False
PrintAllFirstPage
Export_PDF_in_OneAll
Application.ScreenUpdating = True
MsgBox "Done"
End Sub

 

تم تعديل أغسطس 31, 2020 بواسطه abouelhassan