ترحيل وفتح ورقة جديدة تحمل اسم خليه معينة

[محمد عبدالله المسعودي]

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

رمضان كريم اعاده الله علينا وعليكم  بالخير والبركات

الموضوع مكرر انا جدا اسف الانترنت ضعيف وحسبت ان الملف لم يرفع  

شكرا لكم وتقبلوا اعتذاري

تم تعديل يونيو 10, 2016 بواسطه محمد عبدالله المسعودي

[محمد عبدالله المسعودي]

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

رمضان كريم اعاده الله علينا وعليكم  بالخير والبركات

يوجد شيت باسم astimara  هل يمكن فتح شيت جديد طبق الاصل من هذا الشيت ASTIMARA  تاخذ الاسم من خلية G5 ثم مسح البيانات من V300:C9 بعدالترحيل

وكلما غيرنا الاسم الذي في الخلية G5 واردنا ان نفتح شيت جديد يفتح  شيت جديد ,  الا اذا كان الاسم مكرر تظهر رسالة بان الاسم مكرر

اعانكم الله لعمل الخير ومساعدة الاخرين في هذا الشهر الكريم

ولكم وافر الاحترام والتقدير

ترحيل الى ورقة تأخذ اسم خلية.rar

[ابوحمزه المصرى]

 

جرب الكود التالى

Sub NEWSH()
On Error Resume Next
        ActiveSheet.Copy After:=ActiveSheet
        ActiveSheet.Range("C9:V300").ClearContents
        ActiveSheet.Name = [G5]
End Sub

 

[محمد عبدالله المسعودي]

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

اخي العزيز ابو حمزه المصري جزاكم الله خيرا 

جعله الله في ميزان حسناتكم

كود اكثرمن رائع وفقكم الله 

يمكن تعديل بسيط على الكود  حيث اني لم اوصل الفكرة بالشكل الصحيح

ارجو مسح البيانات في ورقة astimara وليس الورقة الجديدة التي تحمل اسم جديد من الخلية G5

وارجو ان لايقوم بنسخ الورقة اذا وجد ورقة تحمل نفس الاسم حاليا الكود اذا كررته على نفس الاسم يقوم بادراج ورقة تحمل اسمastimara1 وastimara2

وافر احترامي و تقديري لجهودكم الكبيرة .. وفقكم الله واحسن اليكم

 

تم تعديل يونيو 10, 2016 بواسطه محمد عبدالله المسعودي

[محمد عبدالله المسعودي]

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

اخي العزيز ابو حمزه المصري جزاكم الله خيرا 

جعله الله في ميزان حسناتكم

كود اكثرمن رائع وفقكم الله 

يمكن تعديل بسيط على الكود  حيث اني لم اوصل الفكرة بالشكل الصحيح

ارجو مسح البيانات في ورقة astimara وليس الورقة الجديدة التي تحمل اسم جديد من الخلية G5

وارجو ان لايقوم بنسخ الورقة اذا وجد ورقة تحمل نفس الاسم حاليا الكود اذا كررته على نفس الاسم يقوم بادراج ورقة تحمل اسمastimara1 وastimara2

وافر احترامي و تقديري لجهودكم الكبيرة .. وفقكم الله واحسن اليكم

Sub NEWSH()
On Error Resume Next
        ActiveSheet.Copy After:=ActiveSheet
        ActiveSheet.Sheet Range("C9:V300").ClearContents
        ActiveSheet.Name = [G5]
End Sub

 

تم تعديل يونيو 10, 2016 بواسطه محمد عبدالله المسعودي

[محمد عبدالله المسعودي]

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

الاخ العزيز ابو حمزه المصري وفقكم الله وجزاكم الله خيرا

انا عدلت شوية على الكود واعتقد اصبح يمسح البيانات التي في ورقة ASTIMARA 

يبقى لدينا تغيير الكود حيث لايقبل نسخ ورقة مكررة ولا يضيفها باسم ASTMARA2 و  ASTIMARA3

تعبتك معايه لكم احترامي وتقديري

Sub NEWSH()
On Error Resume Next
        ActiveSheet.Copy After:=ActiveSheet
        Sheets("astimara").Range("C9:V300").ClearContents
        ActiveSheet.Name = [G5]
        
End Sub

 

[محمد عبدالله المسعودي]

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

الاخ العزيز ابو حمزه المصري وفقكم الله وجزاكم الله خيرا

انا عدلت شوية على الكود واعتقد اصبح يمسح البيانات التي في ورقة ASTIMARA 

يبقى لدينا تغيير الكود حيث لايقبل نسخ ورقة مكررة ولا يضيفها باسم ASTMARA2 و  ASTIMARA3

تعبتك معايه لكم احترامي وتقديري

Sub NEWSH()
On Error Resume Next
        ActiveSheet.Copy After:=ActiveSheet
        Sheets("astimara").Range("C9:V300").ClearContents
        ActiveSheet.Name = [G5]
        
End Sub

 

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

جرب هذا الملف

copy sheet.rar

[محمد عبدالله المسعودي]

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

الاستاذ سليم حاصبيا وفقكم الله وجزاكم الله خيرا

كود اكثر من رائع  جعله الله في ميزان حسناتكم

الشكروالتقدير موصول للاستاذ ابو حمزه المصري جزاه الله خيرا

تقبلوا وافر احترامي وتقديري وشكرا لجهودكم الكبير لمساعدة الاخوة

حفظكم الباري عز وجل ورزقكم