جدول متغير

[muneef]

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

كل الشكر والتقدير للقائمين على هذا الموقع المبارك 

المطلوب	تحويل كود تحويل الملف حتى آخر خليه في العمود C يوجد بها نص
	تعديل مسار حفظ الملف ليحفظ في سطح المكتب

جدول متغيير.xlsm

[عبدالفتاح في بي اكسيل]

تفضل لعله  المطلوب 

Sub SaveRange()
Dim saveLocation As String
Dim rng As Range
saveLocation = "C:\Users\سبحان الله\desktop\" & Range("B2").Value & ".pdf"
Set rng = Sheets("ورقة1").Range("A1:c12")
rng.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=saveLocation, OpenAfterPublish:=True
End Sub

جدول متغيير1.xlsm

[الرائد77]

بعد اذن  أخي عبدالفتاح في بي اكسيل .. 

حفط باسم الشركة و تاريخ الانشاء . و كذلك حفظ على سطح المكتب لأي جهاز بدون تحديد اسم صاحب الجهاز. و كذا رسالة لاستبدال اللملف اذا كان موجود سابقا و كذلك تغير ناحية الطباعة مع آخر سطر في العمود c

جدول متغيير.xlsm

[أحمد يوسف]

  muneef

أين الضغط على الإعجاب لهذه الإجابة الممتازة ؟!!!💙

[عبدالفتاح في بي اكسيل]

كود رائع  اخي  الرائد   احسن  ما فيه  يهمل الصفوف  الفارغة