امل المساعدة بالتعديل على الكود اريد حفظ نطاق معين فقط بصيغة pdf

[ابوعلي الحبيب]

           Range("A2:z999" & Cells(Rows.Count, 1).End(xlUp).Row).ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
    ThisWorkbook.Path & "\" & " " & Range("AA1").Value _
    & " " & Format(Now, "yyyy-mm-dd,hh.mm"), Quality _
    :=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False
If a = vbNo Then End

 

السلام عليكم 

 

ياكرام  امل المساعدة بالتعديل على الكود اريد حفظ نطاق معين فقط بصيغة pdf

يوجد كتابة اسفل z1000  لا اريدها ان تظهر 

فقط يحفظ الموجود بينن نطاق z2 الى z 999

ولكم جزيل الشكر

 

 

 

[عبدالله بشير عبدالله]

السلام عليكم 

كان من الافضل ارفاق الملف

 ولكن على كل حال اليك ملف يقوم بالحفظ في D

DFP1.xlsb

[ابوعلي الحبيب]

اشكرك استاذ عبدالله

 اشكرك على الرد ولكن 

اريده يحفظ الصفوف الموجودة فقط 

الان يحفظ ;كل شي الى z999 حتى لوكانت فارغة 

عند الفرز

احتمال يكون لدي معلومات في النطاق الى 30 صف فقط

وارغب بحفظها 

وبعد مدة تزيد

او يتم الفرز 

واحتاج حفظ المفروز

 

وللمعلومية يوجد بيانات اسفل الصف  999

لذالك اعتقد الحل هو في استخدام

z2:z999.End(xlUp).Row)

ولم استطع اضافتها بالكود بالشكل الصحيح

 

ولك جزيل الشكر

تم تعديل الأربعاء at 16:55 بواسطه ابوعلي الحبيب