كريم 201190 قام بنشر يوليو 25, 2017 مشاركة قام بنشر يوليو 25, 2017 السادة الافاضل ارجو مساعدتى فى تعديل هذا الكود حيث اريد ان يتم تسمية الصفحة الجديدة باسم "كشف رقم" بدلا من تسميتها بالوقت الحالى حيث حاولت ان اعدل بنفسى وتظهر رسالة تخبرنى ان الاسم موجود مسبقاً Sub Test() Dim ws As Worksheet Set ws = ThisWorkbook.Worksheets("معاشات استثنائية ") ws.Copy After:=Sheets(Sheets.Count) ActiveSheet.Name = Format(Time, "hhmmss") ws.Activate ws.Range("F12:H36").ClearContents MsgBox "Done ...", 64 End Sub رابط هذا التعليق شارك More sharing options...
أفضل إجابة ياسر خليل أبو البراء قام بنشر يوليو 25, 2017 أفضل إجابة مشاركة قام بنشر يوليو 25, 2017 أخي الكريم ضع الكود بين أقواس الكود ليظهر بشكل منضبط جرب التالي .. ولا يجوز تسمية أكثر من ورقة بنفس الاسم Sub Test() Dim ws As Worksheet Set ws = ThisWorkbook.Worksheets("معاشات استثنائية ") ws.Copy After:=Sheets(Sheets.Count) ActiveSheet.Name = "كشف " & Format(Time, "hhmmss") ws.Activate ws.Range("F12:H36").ClearContents MsgBox "Done ...", 64 End Sub 1 رابط هذا التعليق شارك More sharing options...
كريم 201190 قام بنشر يوليو 25, 2017 الكاتب مشاركة قام بنشر يوليو 25, 2017 شكرا على الاهتمام استاذ / ياسر وجزاك الله خيراً رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر يوليو 25, 2017 مشاركة قام بنشر يوليو 25, 2017 وجزيت خيراً أخي الكريم بمثل ما دعوت لي الحمد لله أن تم المطلوب على خير رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان