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

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


إذهب إلى أفضل إجابة Solved by محمد يوسف ابو يوسف,

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

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

الملف المرفق يوجد زر حفظ الخلطة به كود لحفظ ملف 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

 

  • Like 3
  • Thanks 1
رابط هذا التعليق
شارك

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

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

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

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

والله الموفق

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

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

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

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

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

حفظ 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

 

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

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

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

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

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

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

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

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

Important Information