كود شيت جديد واعادة تسميته

[hassan rady]

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

 

انا مبتدأ في الاكواد احتاج تعديل على الكود المرفق بحيث ينسخ الشيت ويعيد تسميته برقم جديد 

جزاكم الله خيرا

661.rar

[ابراهيم الحداد]

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

استخدم هذا الكود

Sub hassan()
Dim ws As Worksheet
ActiveSheet.UsedRange.Copy
x = Val(ActiveSheet.Name) + 1
Set ws = Sheets.Add(after:=Sheets(Sheets.Count))
ws.Name = x
ws.Range("A1").PasteSpecial xlPasteValues
Application.CutCopyMode = False
ws.Range("A1").Select
End Sub

 

[hassan rady]

كل الشكر لك عزيزي 

هذا هو المطلوب تماماً