اذهب الي المحتوي
أوفيسنا

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


منيير

الردود الموصى بها

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

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

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

rapport journalier GO Préfas.rar

تم تعديل بواسطه 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

  • Like 6
رابط هذا التعليق
شارك

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

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

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

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

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

 

rapport journalier GO Préfas.rar

  • Like 5
رابط هذا التعليق
شارك

  • 2 weeks later...

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information