إضافة ورقة جديدة باسم مرتبط بالورقة السابقة

[منيير]

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

سؤالي هو انه في المثال اسفله اريد كلما اضفت ورقة جديدة يكون اسمها مرتبط باسم الورقة التي قبلها بحيث عندما يكون مثلا اسم الورقة السابقة  08-01-2014 عندما اضيف ورقة جديدة ان يصبح اسمها اوتومتتكيا 09-01-2014 و باضافة ورقة اخرى يصبح اسمها 10-01-2014 و هكذا دواليك و عندما يتغير اسم الورقة اريد ان يصبح اسم الخلية C8 هو اسم الورقة نفسها

بارك الله فيكم         

rapport journalier GO Préfas.rar

تم تعديل فبراير 16, 2014 بواسطه marfipo

[طارق محمود]

السلام عليكم

 

أخي العزيز

تفضل هذا هو الكود

Sub add_new_sheet()
d = DateValue(ActiveSheet.Name) + 1
new_name = Format(d, "dd-mm-yyyy")
ActiveSheet.Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = new_name
[c8] = "'" & new_name
For Each ce In [G25:V36]
        If ce.HasFormula = True Then GoTo 10
    ce.ClearContents
10 Next
End Sub

 

وهذا الملف مرفق وبه الكود يعمل بالزر الأحمر

لاحظ أنني أضفت الحلقة التالية بنهاية الكود

For Each ce In [G25:V36]
        If ce.HasFormula = True Then GoTo 10
    ce.ClearContents
10 Next

وهي تقوم بمسح البيانات (وليس المعادلات) الموجودة بالنطاق G25:V36

 

rapport journalier GO Préfas.rar

[مجدى يونس]

الاخ طارق محمود

وحشتنا اكوادك عمل ممتاز فعلا

 

[حمادة باشا]

الأخ الكريم/ marfipo

السلام عليكم ورحمة الله وبركاته
أهلا وسهلا بكم في منتدانا العامر
لو تمكنت من تغيير أسم الظهور إلي العربية لكان أفضل للتواصل

وبعد إستئذان الأستاذ الفاضل/ طارق محمود

لولا أني جهزت الملف - لأحجمت عن رفعه بعد رؤية الرد الوافي للأستاذ/ طارق

لكن عسي أن تحدث منه إفادة - تقبل تحياتي

 

rapport journalier GO Préfas.rar

[مجدى يونس]

الاخ حماده

هذا الشبل من تعليم هذا الاسد

عمل رائع

[حمادة باشا]

الأستاذ الفاضل/ مجدى يونس

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

جزاكم الله خير - وشاكرا لكم

[منيير]

بارك الله فيكم 

كيف يمكنني ان اغير الاسم و شكرا جزيلا مرة اخرى

[طارق محمود]

السلام عليكم
أخي العزيز الغالي / مجدي يونس

أخي الحبيب / حمادة

مروركما وتعليقاتكم ومشاركاتكم تشريف للموضوع ولي بالطبع

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

[طارق محمود]

بارك الله فيكم 

كيف يمكنني ان اغير الاسم و شكرا جزيلا مرة اخرى

أخي العزيز

اتبع الخطوات في الصورة

[ahmedyum]

حقا انه عمل رائع

[alcodimy]

موفقين ياشباب وشكرا استفدنا من هذه