حفظ كملف pdf باسم من خلية معينة

[sayed darwish]

السادة الأفاضل

الملف المرفق يوجد زر حفظ الخلطة به كود لحفظ ملف pdf من الشيت الثاني ولكن اريد تعديل الكود ليكون اسم الملف هو من خلية اسم العميل بالأعلى وهي الخلية D5 لتكون اسم الملف في كل مرة  ..ويتم فتح الملف عند الحفظ ..وشكرا لكم

الخلطة.xlsm

[محمد يوسف ابو يوسف]

السلام عليكم..تفضل ...الملف ..والكود  المستخدم

 الخلطة.xlsm

Sub حفظ_بي_دي_اف()
 Dim fName As String
      Application.ScreenUpdating = False
 With Worksheets("main")
    fName = Left(ThisWorkbook.Name, (InStrRev(ThisWorkbook.Name, ".", -1, vbTextCompare) - 1))
End With
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
            "d:\" & " " & Cells(5, 4).Text & Nombre & " " & QualityxlQualityStandard, _
            IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
  Application.ScreenUpdating = True
End Sub

 

[أبو إيمان]

بعد إذن الأستاذ محمد يوسف 

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Path & "\" & [d5], Quality:=xlQualityMinimum, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False

d5 الخلية الموجود بها أسم العميل 

اقتراح للاستاذ سيد يمكن في الخلية H7  وضع رقم للفاتورة  ويتم حفظ الفاتورة باسم الشخص والرقم

والله الموفق

[sayed darwish]

السادة الأفاضل

تم تنزيل الملف المرفق ولكن الزر لا يعمل

الرجاء المراجعة مرة أخرى ومسح الكود القديم وجعل الملف جاهز حيث ليس لدي خبرة كبيرة في الأكواد وطريقة عملها

المطلوب مرة أخرى

حفظ SHEET 2 كملف PDF باسم الخلية رقم D5 بالإضافة الى الرقم الموجود في الخلية H5 بمعنى D5+H5 هو اسم الملف المحفوظ

ويتم الحفظ فى نفس مجلد الملف الأكسيل مع فتح ملف ال PDF بعد الحفظ

مع وضع تحذير رسالة تنبيه إذا كان الملف محفوظ بنفس الاسم قبل ذلك

 

 

[محمد يوسف ابو يوسف]

السلام عليكم ..كان يجب عليك ان  توضح هذا من قبل ..علي العموم -تفضل

1:يتم ترقيم الفاتورة تلقائي دون تدخل منك

2:يتم حفظ الملف في نفس المجلد

3:بالنسبة لعمل مسج تحزير باذا كان الملف موجود اما لا  .... لا يمكن عمل ذالك لاحتواء حفظ الملف برقم الفاتورة ....اتمني ان يكون تم عمل المطلوب

الملفالخلطة (2).xlsm

الكود المستخدم 

Sub حفظ_بي_دي_اف()
 Dim fName As String
    Application.ScreenUpdating = False
 With Worksheets("main")
    fName = Left(ThisWorkbook.Name, (InStrRev(ThisWorkbook.Name, ".", -1, vbTextCompare) - 1))
End With
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Path & "\" & Cells(5, 4).Text & "-رقم الخلطة" & Cells(5, 8).Text, Quality:=xlQualityMinimum, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
[h5] = [h5] + 1
  Application.ScreenUpdating = True
End Sub

 

[sayed darwish]

وعليكم السلام ...اسف على عدم التوضيح

لكن ..الورقة المطلوب طباعتها ليست التى تسمى main....قمت برفع الملف مرة أخرى وتغيير اسم الورقة المطلوبة الى  print

يعنى الزر الموجود فى ورقة main يطبع الورقة الثانية التى تسمى حاليا print..ارجو التعديل مع الغاء الترقيم التلقائي حيث انه ليست رقم فاتورة بل رقم خلطة لا يتغير الا منى

خلطة العملاء.xlsm

[محمد يوسف ابو يوسف]

تفضل ...اتمني ان تكن انتهت المهمة

الملف خلطة العملاء.xlsm

 

[sayed darwish]

جزاء الله كل خير تمت ان شاء الله بفضل مجهوداتكم ...شكرا جزيلا لك