حفظ الاسم المكرر

[عبدالله صباح]

السلام عليكم - رمضان مبارك

عندي كود يتم تحويل الوصل الى PDF على اساس الاسم

في حالة تكرار حفظ الوصل لنفس الاسم اكثر من مرة - يتم الحفظ ويلغي القديم وأني عندي أكثر من وصل لنفس الاسم 

المطلوب - يرحم والديكم

الحفظ على اساس الاسم ورقم المستند معا لان رقم المستند لا يتكرر ولكن الاسماء تكرر

حفظ الوصل.xlsm

تم تعديل أبريل 17, 2021 بواسطه عبدالله صباح

[حسين مامون]

جرب هذا الكود 

يخزن نسخة في نفس فولدر  لي فيه الملف

Sub RectangleRoundedCorners222_Click()
'On Error Resume Next
'Sheets("ÍÓÇÈ").Range("A1:h10").ExportAsFixedFormat xlTypePDF, Filename:="e:\pdf\" & Sheets("ÍÓÇÈ").Range("b3").Value & Sheets("ÍÓÇÈ").Range("a3").Value, openafterpublish:=True
Dim sh As Worksheet
Dim R
Dim fil_name
Set sh = ThisWorkbook.Worksheets("حساب")
fil_name = sh.Range("b3") & " " & sh.Range("a3")
Set R = sh.Range("a1:h10")
R.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Path & "\" & fil_name

sh.Range("a1:h29").PrintOut

End Sub

 

[عبدالله صباح]

السلام عليكم

حياك الله استاذ حسين

جزيت خيرا - الكود يعمل

 

 

[حسين مامون]

جربته ويعمل 100/100

وهذه نسخة من التخزين

حسين 91.pdf

[عبدالله صباح]

اعتذر

لان ذهب الى فولدر E ولم اجد الحفظ

ولكن وجدته على سطح المكتب

ممكن يكون الحفظ على نفس المسار 

فولدر E - ملف PDF

 

[حسين مامون]

تفضل

Sub RectangleRoundedCorners222_Click()
'On Error Resume Next
'Sheets("ÍÓÇÈ").Range("A1:h10").ExportAsFixedFormat xlTypePDF, Filename:="e:\pdf\" & Sheets("ÍÓÇÈ").Range("b3").Value & Sheets("ÍÓÇÈ").Range("a3").Value, openafterpublish:=True
Dim sh As Worksheet
Dim R
Dim fil_name
Set sh = ThisWorkbook.Worksheets("حساب")
fil_name = sh.Range("b3") & " " & sh.Range("a3")
Set R = sh.Range("a1:h10")
R.ExportAsFixedFormat Type:=xlTypePDF, Filename:="e:\pdf\" & "\" & fil_name

sh.Range("a1:h29").PrintOut

End Sub

 

[عبدالله صباح]

جزيت خيرا

تمام