حفظ تعديلات ورقة العمل في ورقة عمل جديدة

[ابومهندالخضري]

السلام عليكم

الملف المرفق فيه ورقة عمل واحدة 

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

مع تقديري للجميع 

1.rar

[ياسر خليل أبو البراء]

جرب الكود بهذا الشكل

Sub CopySheet()
    Dim Sh As Worksheet
    Set Sh = Sheet1
    
    Sh.Copy After:=Sheets(Sheets.Count)
    ActiveSheet.Name = "Test" & Format(Now(), "hhmmss")
End Sub

 

 

[ابومهندالخضري]

استاذي العزيز ياسر

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

ولكن وبسبب كوني مبتدأ بالاكسل فلم استطع تطبيق الكود 

رجاءا وليس امرا ان تقوم بادخال الكود في النموذج الذي تم ارفاقه

تقبل فائق تقديري 

[ياسر خليل أبو البراء]

أخي الكريم أبو مهند

لابد أن تتعلم الصيد بنفسك

الموضوع ليس صعباً للدرجة التي تتخيلها

يمكنك البدء بهذا الموضوع لتعد لك كانطلاقة .. ولو قابلتك أي مشكلة أخبرنا في الحال ..

بداية الطريق لإنقاذ الغريق

[ابومهندالخضري]

استاذي الكريم ياسر

صدقني هذا الغريق لا مجال له لتعلم السباحة الان فهو بامس الحاجة لمن يمد له يده العون الان

ولكن اعدك باني سابدأ من الان بتعلم اساسيات الاكواد وباذن الله ساعوم قريبا .

تقبل تحياتي وشكري وتقديري

[ياسر العربى]

تفضل اخي كود اخي الغالي ابو البراء

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

:)

1.rar