حفظ ورقة عمل فى ملف مستقل

[خالد الشاعر]

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

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

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

السلام عليكم

على اسم الورقة من التبويب اضغط باليمين / نقل او نسخ

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

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

من ملف / حفظ باسم

[خالد الشاعر]

اشكرك يا استاذ خبور

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

ولكن انا خافى التبويب واريد عمل زر امر بذلك فهل ممكن

واشكرك مرة ثانية

الف شكر

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

السلام عليكم

استخدم الكود التالي:

Sub SaveAs_MySheet()
On Error GoTo 1
Dim Mybook As Workbook
Dim MyFile As String, MySheet As String
Set Mybook = ActiveWorkbook
Application.ScreenUpdating = False
With ActiveSheet
    MySheet = .Name & "  ( " & Format(Now, "hh-mm-ss") & " )"
    .Copy
End With
    MyFile = Mybook.Path & "\" & MySheet
    ActiveWorkbook.SaveAs Filename:=MyFile
    ActiveWorkbook.Close
    MsgBox "تم حفظ ورقة العمل بإسم" & Chr(10) & Chr(10) & MySheet, 524288, "الحمد لله"
Application.ScreenUpdating = True
1 End Sub

تفضل المرفق

________________________.rar

تم تعديل نوفمبر 24, 2008 بواسطه خبور خير

[علي فاهم]

تسلم يا أخي على المجهود الطيب

[خالد الشاعر]

اشكرك يا استاذى العزيز

وتسلم يدك

الف شكر وياريت ما تبخلش علينا بتعلمنا هذه المكرو

شكراًشكراًشكراًشكراًشكراًشكراًشكراًشكراًشكراًشكراًشكراًشكراًشكراً

[احمدزمان]

عمل جميل ورائع

جزاك الله كل خير استاذ خبور