كود حفظ pdf بعد اجراء تصفيه

[خير الايمان]

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

 

في الملف المرفق

 

يوجد فورم به كود لحفظ البيانات بعد اجراء تصفيه لها بملف على D باسم PRINT

 

بصيغة PDF وعند تنفيذ الماكرو يتم تنفيذ الامر وعند التنفيذ من خلال زر الفورم تحدث مشكله ولا يقوم بعملة رجاء جعل الزر يقوم بتنفيذ الماكرو

 

تقديري

[خير الايمان]

لله الامر .. 

[ياسر خليل أبو البراء]

وعليكم السلام

لله الأمر من قبل ومن بعد ..

أين الملف المرفق أخي الكريم خير الإيمان؟ بالملف المرفق تجد استجابة أسرع

وفقك الله

[خير الايمان]

استاذنا المحترم

ياسر خليل أبو البراء

دائما سباق بالخير

جزاك الله عنا كل الخير

والى حضرتك الملف

 

•  
•  

Book1.rar

[ياسر خليل أبو البراء]

أخي الكريم

ضع الكود التالي في موديول عادي

من هنا

Sub Test()
    Dim myFile  As String
    Dim lRow    As Long

    Sheets("Sheet1").Range("A5:E25").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Sheets("Sheet1").Range("C1:C2"), CopyToRange:=Sheets("Sheet2").Range("A6:E6"), Unique:=False

    myFile = "D:\Print\" & Sheets(2).Range("G4").Text & "-" & Sheets(1).Range("L3").Text & ".pdf"
    lRow = Sheets(2).Range("A" & Rows.Count).End(xlUp).Row + 1

    Sheets(2).ExportAsFixedFormat Type:=xlTypePDF, Filename:=myFile

    MsgBox "Done...", 64
End Sub

ثم ضع الكود التالي في حدث الفورم

Private Sub CommandButton1_Click()
    Test
End Sub

تقبل تحياتي

 

[خير الايمان]

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

استاذي

دمت ودام عطائك .. وجعل في ميزان حسناتك

تقديري واحترامي

[ياسر خليل أبو البراء]

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

مشكور على كلماتك الطيبة ودعائك الطيب يا خير الايمان

والحمد لله أن تم المطلوب على خير