اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

الردود الموصى بها

قام بنشر

كود 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

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

 

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

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

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

Important Information