ارجو المساعدة فى هذا الكود

[كريم 201190]

السادة الافاضل 

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

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

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

أخي الكريم ضع الكود بين أقواس الكود ليظهر بشكل منضبط

جرب التالي .. ولا يجوز تسمية أكثر من ورقة بنفس الاسم

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

 

[كريم 201190]

شكرا على الاهتمام استاذ / ياسر وجزاك الله خيراً

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

وجزيت خيراً أخي الكريم بمثل ما دعوت لي

الحمد لله أن تم المطلوب على خير