اذهب الي المحتوي
أوفيسنا

تعديل على كود 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

تم تعديل بواسطه ۩◊۩ أبو حنين ۩◊۩
رابط هذا التعليق
شارك

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

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

أخوك بن علية

Manafist Tarek 2016.rar

رابط هذا التعليق
شارك

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

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

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

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

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

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

 

رابط هذا التعليق
شارك

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

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

أخوك بن علية

Manafist Tarek 2016.rar

  • Like 2
رابط هذا التعليق
شارك

السلام عليكم

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

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

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

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

رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information