كيف انسخ ورقة عمل الى مصنف جديد

[ياسر الصبحي]

السلام عليكم وكل عام وانتم بخير

ابغى اسوي ماكرو اذا ضغطت عليه يقوم بإنشاء مصنف جديد بورقة عمل موجودة لدي ويكون اسم المصنف الجديد متغير على حسب محتوى الخلية في المصنف القديم

أريد عندما اضغط على زر حفظ ملف العميل، يتم حفظ نفس الورقة في مصنف جديد واسم المصنف الجديد هو نفسه كما في الخلية [B3]

تجرÙ_بÙ_.xlsb

[ياسر الصبحي]

رفعت ملف آخر 

test.xlsb

[أ / محمد صالح]

في مثل هذه الحالات يمكنك تسجيـل ماكرو 

وتفعل ما تريد وستحصل على الكود 

وتعدله كما تشاء 

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

جرب هذا  الماكرو 

لا تنسى  بانشاء  مجلد  backup   في  درايف  c

Sub savefile()
Dim Path As String
Dim Filename As String

Path = "C:\backup\"
Filename = Range("B3")
ThisWorkbook.Sheets.Copy
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:=Path & Filename & ".xlsx", FileFormat:=51
Application.DisplayAlerts = True
ActiveWorkbook.Close True
End Sub

 

[ياسر الصبحي]

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

الله يعطيك العافية ماقصرت....

تحياتي لك...