تكرار الاوراق (الشيت)

[أبو وليد]

السلام عليكم

لدي ملف اكسيل به مجموعه كبيره من الأوراق وارغب في تكرارها عن طريق الكود

مثال

عندي أوراق

100 و  101  و  102

أرغب في تكرارها لتصبح

100   و   100N   و   101    و   101N     و   102    و    102N

المرفق به ملف للتجربة

 

وفقكم الله

Book1.rar

[أبو وليد]

مساء الخير

ما أحد علق

ترى خبرتي في الاكسيل قليله لا يكون طلبي غير ممكن في الاكسيل

[أبوعيد]

تفضل

sheet name.rar

[أبو وليد]

رائع

 

سلمت اياديك

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

أخي الحبيب أبو عيد

بارك الله فيك وجزاك الله خيراً

 

إثراءً للموضوع .. هذا كود آخر يفي بالغرض

Sub CreateSheets()
    Dim SH As Worksheet
    For Each SH In Worksheets
        SH.Copy After:=Sheets(Sheets.Count)
        ActiveSheet.Name = SH.Name & "N"
    Next SH
End Sub

تقبلوا تحياتي