۩◊۩ أبو حنين ۩◊۩ قام بنشر مايو 6, 2016 مشاركة قام بنشر مايو 6, 2016 كود pdf.rarالسلام عليكم الاخوة الكرام ارجو التعديل على كود تحويل اكثر من شيت الى ملف pdf وارساله اميل المطلوب اضافه شرط الى الكود وهو الا يتم تحويل جميع الشيتات الى ملف pdf الا عند احتواء الخليه B5 على مدخل كما فى موضع الاخ الجليل ياسر خليل الرابط من هنا حاولت كثير الا انى لم اوفق النطاق المحدد لملف pdf هو ("زراعى", "صحراوى", "طائرة") المطلوب التعديل على الكود بحيث يتم تحويل الشيتات التى محتوى الخليه B5 به مدخلات الى ملف PDF وكذلك نفس الشرط فى كود الطباعه بالملف كود pdf.rar رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر مايو 7, 2016 مشاركة قام بنشر مايو 7, 2016 أخي الكريم أبو حنين بصراحة معالم الموضوع غير واضحة بعض الشيء وتحتاج لمزيد من التفاصيل عموماً جرب الكود التالي (لم أجرب الكود بشكل عملي ..) 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 تقبل تحياتي رابط هذا التعليق شارك More sharing options...
۩◊۩ أبو حنين ۩◊۩ قام بنشر مايو 7, 2016 الكاتب مشاركة قام بنشر مايو 7, 2016 (معدل) السلام عليكم اخى ياسر لايضاح المطلوب 1- النطاق المحدد لتحويل الشيتات الى لملف pdf هو ("زراعى", "صحراوى", "طائرة") 2- المطلوب تحويل الشيتات التى بها محتوى الخليه B5 مدخل فقط الى ملف PDF مثال .. واذا كان B5 فى شيت طائرة فارع لا يتم تحويل شيت الطائرة ويتم تحويل الشيتات التى بها مدخل فى الخلية B5 واذا كان B5 فى شيت طائرة وزراعى فارغ ... لا يتم الا تحويل شيت زراعى لكونه يحتوى على مدخل فى B5 جزاك الله خير .... تقبل عزرى فى عدم الايضلح بشكل صحيح الكود الذى صممته يقوم بحفظ الثلاث شيتات حتى لو كان B5 فارغ فى احدهما مرفق جزء من الملف الاصلى لكبر حجمه فك الحمايه 219161221 الاكواد ahm219 جزاك الله كل الخير Manafist Tarek 2016.rar تم تعديل مايو 7, 2016 بواسطه ۩◊۩ أبو حنين ۩◊۩ رابط هذا التعليق شارك More sharing options...
بن علية حاجي قام بنشر مايو 7, 2016 مشاركة قام بنشر مايو 7, 2016 السلام عليكم ورحمة الله أخي الحبيب أبو حنين، تم تعديل طفيف على كود PDF_SALAM حسب المطلوب، أرجو أن يكود يفي بالغرض.... تم إعادة تسمية الشيتات الثلاثة بالترتيب Sheet3 ، Sheet2 ، Sheet1 أخوك بن علية Manafist Tarek 2016.rar رابط هذا التعليق شارك More sharing options...
۩◊۩ أبو حنين ۩◊۩ قام بنشر مايو 7, 2016 الكاتب مشاركة قام بنشر مايو 7, 2016 الاخ الحبيب بن علية حاجى جزاك الله خيرا على الوقت والمجهود الشيت يعمل بشكل جيد الا فى حاله واحده وهو عند حلو شيت الطائرة من مدخل فى B5 وباقى الشيتات بها مدخلات يتم تحزل شيت الطائرةالى PDF فقط على الرغم من خلوة من مدخلات وعند خلو جميع الشيتات من مدخلات فى B5 يعطى Run error 13 ارجو المساعده رابط هذا التعليق شارك More sharing options...
بن علية حاجي قام بنشر مايو 7, 2016 مشاركة قام بنشر مايو 7, 2016 السلام عليكم ورحمة الله أخي الحبيب أبو حنين، جرب الملف المرفق التالي بعد تعديل بسيط على كود PDF_SALAM... تم إضافة كود Printing إلى الملف مع تعديله الجديد... أخوك بن علية Manafist Tarek 2016.rar 2 رابط هذا التعليق شارك More sharing options...
۩◊۩ أبو حنين ۩◊۩ قام بنشر مايو 7, 2016 الكاتب مشاركة قام بنشر مايو 7, 2016 السلام عليكم اخى الحبيب بن علية حاجى الحمد لله تم الامر بصورة سليمه جزاك الله كل الخير سلمت يداك بكل خير رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان