تعديل على كود pdf

[۩◊۩ أبو حنين ۩◊۩]

كود pdf.rarالسلام عليكم 

الاخوة الكرام 

ارجو التعديل على كود تحويل اكثر من شيت الى ملف pdf  وارساله اميل

المطلوب اضافه شرط الى الكود وهو الا يتم تحويل جميع الشيتات الى ملف pdf الا عند احتواء الخليه B5 على مدخل 

كما فى موضع الاخ الجليل ياسر خليل

    الرابط من هنا

حاولت كثير الا انى لم اوفق

النطاق المحدد لملف pdf هو ("زراعى", "صحراوى", "طائرة")

المطلوب التعديل على الكود بحيث يتم تحويل الشيتات التى محتوى الخليه B5  به مدخلات الى ملف PDF

وكذلك نفس الشرط فى كود الطباعه بالملف

 

 

 

كود pdf.rar

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

أخي الكريم أبو حنين

بصراحة معالم الموضوع غير واضحة بعض الشيء وتحتاج لمزيد من التفاصيل

عموماً جرب الكود التالي (لم أجرب الكود بشكل عملي ..)

Sub PDF_SALAM()
    Dim MyName As String
    Dim sh As Worksheet

    MyName = "D:\MANAFIST TAREK\PDF\MANAFIST TAREK TO SALAM_" & Format(Date + 1, "dd-mm-yyyy") & ".pdf"
    Range("B5").Select
    Sheets(Array("زراعى", "صحراوى", "طائرة")).Select

    For Each sh In ThisWorkbook.Windows(1).SelectedSheets
        With sh
            .Activate
            If Not IsEmpty(.Range("B5")) Then

                MyMsg = MsgBox("هل انت متاكد من اتمام عمليه الحفظ", 4, "تنبيه")
                If MyMsg = 6 Then
                    ChDir "D:\MANAFIST TAREK"
                    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
                                                    MyName, Quality:=xlQualityStandard, _
                                                    IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
                                                    False
                    If MsgBox("هل تريد إرسال الملف المرفق إيميل أم لا؟", vbYesNo, "Send Email") = vbNo Then Exit Sub
                    OutlMail_PDF MyName, "Mohamed.Tawfek@khalda-eg.com;Mohamed.Amria@khalda-eg.com;mohamed.abonour@khalda-eg.com", "مانفست حقول طارق", _
                                 vbNewLine & "مع تحيات ..إدارة الشئون الادارية بحقول طارق - 8240", False
                Else
                    MsgBox "لم يتم الحفظ"
                End If
                .Activate

                .Range("B5").Activate
            End If
        End With
    Next sh
End Sub

تقبل تحياتي

 

[۩◊۩ أبو حنين ۩◊۩]

السلام عليكم 

اخى ياسر لايضاح المطلوب 

1-  النطاق المحدد لتحويل الشيتات الى لملف pdf هو ("زراعى", "صحراوى", "طائرة")

2- المطلوب تحويل الشيتات التى بها محتوى الخليه B5 مدخل فقط الى ملف PDF

مثال .. واذا كان B5 فى شيت طائرة فارع لا يتم تحويل شيت الطائرة ويتم تحويل الشيتات التى بها مدخل فى الخلية  B5 

واذا كان B5 فى شيت طائرة وزراعى فارغ ... لا يتم الا تحويل شيت زراعى لكونه يحتوى على مدخل فى B5

جزاك الله خير .... تقبل عزرى فى عدم الايضلح بشكل صحيح

الكود الذى صممته يقوم بحفظ الثلاث شيتات حتى لو كان B5 فارغ فى احدهما

مرفق جزء من الملف الاصلى لكبر حجمه

فك الحمايه 

219161221

الاكواد

ahm219

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

 

Manafist Tarek 2016.rar

تم تعديل مايو 7, 2016 بواسطه ۩◊۩ أبو حنين ۩◊۩

[بن علية حاجي]

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

أخي الحبيب أبو حنين، تم تعديل طفيف على كود  PDF_SALAM حسب المطلوب، أرجو أن يكود يفي بالغرض.... تم إعادة تسمية الشيتات الثلاثة بالترتيب Sheet3 ، Sheet2 ، Sheet1

أخوك بن علية

Manafist Tarek 2016.rar

[۩◊۩ أبو حنين ۩◊۩]

الاخ الحبيب بن علية حاجى 

جزاك الله خيرا على الوقت والمجهود 

الشيت يعمل بشكل جيد الا فى حاله واحده

وهو عند حلو شيت الطائرة من مدخل فى B5 وباقى الشيتات بها مدخلات يتم تحزل شيت الطائرةالى PDF فقط على الرغم من خلوة من مدخلات

وعند خلو جميع الشيتات من مدخلات فى B5 يعطى Run error 13

ارجو المساعده

 

[بن علية حاجي]

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

أخي الحبيب أبو حنين، جرب الملف المرفق التالي بعد تعديل بسيط على كود PDF_SALAM... تم إضافة كود Printing إلى الملف مع تعديله الجديد...

أخوك بن علية

Manafist Tarek 2016.rar

[۩◊۩ أبو حنين ۩◊۩]

السلام عليكم

اخى الحبيب بن علية حاجى

الحمد لله تم الامر بصورة سليمه

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

سلمت يداك بكل خير