اضافة شيت جديد بتاريخ اليوم من نسخة موجودة

[أبو قاسم]

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

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

تم عمل تسمية الشيت بتاريخ اليوم  ولكن لم استطع  تكملة الكود

فجزاكم الله خير لم بادر في تكملة الموجود

اضافة شيت +جديد1.rar

[أبو قاسم]

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

Sub SA()

SS = Sheets.Count

Sheets("الناسخة").Select
    Sheets("الناسخة").Copy After:=Sheets(SS)
ActiveSheet.Name = Format(Date, "DD.MM.YYYY")
    Selection.Copy
    Sheets("الناسخة").Select
    ActiveSheet.Paste Link:=True
    Application.CutCopyMode = False
End Sub

اضافة محتاج الشيت المضاف الجديد يكون تسلسلة الثالث بعد شيت الناسخة 

تم تعديل نوفمبر 25, 2016 بواسطه أبو قاسم

[أبو عبد النور]

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

تفضل اخي :

اضافة شيت_v001.rar

[أبو قاسم]

جزاك الله خير  هذا هو المطلوب ربنا يكثر من امثالك