كود يقوم بنسخ الورقة مع الاحتفاض بالنسخة ااصلية

[عامر ياسر]

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

اضع هذا الملف كي يستفاد منه البعض 

aamir.xlsm

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

ربما هذا الكود اكثر دقّة

Sub RoundedRectangle1_Click()
    Dim Sh As Worksheet
    Set Sh = Sheet1
    Dim x, Y As Date
    Dim d, m, yy
    Sh.Copy After:=Sheets(Sheets.Count)
    Y = Date
    d = Day(Y): m = Month(Y): yy = Year(Y)
    x = Format(Time, "h mm ss AM/PM")
     ActiveSheet.Name = "aamir On " & d & " " & m & " " & yy & "(" & x & ")"
End Sub

 

[عامر ياسر]

11 دقائق مضت, سليم حاصبيا said:

ربما هذا الكود اكثر دقّة

Sub RoundedRectangle1_Click()
    Dim Sh As Worksheet
    Set Sh = Sheet1
    Dim x, Y As Date
    Dim d, m, yy
    Sh.Copy After:=Sheets(Sheets.Count)
    Y = Date
    d = Day(Y): m = Month(Y): yy = Year(Y)
    x = Format(Time, "h mm ss AM/PM")
     ActiveSheet.Name = "aamir On " & d & " " & m & " " & yy & "(" & x & ")"
End Sub

 

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