ترحيل من شيت لأكثر من شيت حسب التاريخ

[ابو صلاح برهومه]

بسم الله الرحمن الرحيم 

والصلاة والسلام على اشرف الخلق والمرسلين سيدناوحبيبنا وشفيعنا محمد صل الله عليه وسلم

اساتذتنا الاعزاءاريد ان اعرف هل يمكن ان ارحل بينات يومية لأكثر من شيت حسب التاريخ على سبيل المثال 

ان لدي  شيت يومي اساسي و 31 شيت يومي للمراجعه هل يمكن ان ارحل الشيت الرئيسي يوميا حسب التاريخ مثلا ان اليوم التاريخ 16/11/2016 وقمت بعمل كود ترحيل لشيت مسمى 16/11/2016  وقمت بترحيله

هل يمكن ان ارحل لتاريخ 17/11/2016 بنفس المايكرو الرئيسي لشيت17/11/2016

اعتذر على ازعاجكم احبتي واذا كان هذا ممكن اتمنى ان تعطوني الطريقة وشكرا لكم

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

جرب هذا الكود

يجب كتابة اسم الصفحة اذا كان تاريخاً بشكل 2016-11-17 لان اكسل يرفض اسم اي صفحة يحتوي على /

يجب كتابة رقم الصفحة بشكل 1,2,3,20 ,25 و هكذا

Sub taruba()
On Error Resume Next
'Write i as number between 1 and 31
 i = Application.InputBox("Get_me the sheet's name", "Excel Tell You", 1)
If IsEmpty(Len(Sheets(i & "-11-2016").Name)) Then MsgBox "this sheets not exits": Exit Sub
  Sheets(i & "-11-2016").Select
'===================================
   ' Write here your code
'================================
End Sub

 

[ابو صلاح برهومه]

this sheets not exits بارك الله فيك اخي على جهودك الطيبه معي لكن الكود يعطيني عند ادخال رقم الصفحه 

 سأقوم بإرفاق الملف لك اخي الحبيب سليم

أبو صلاح.rar

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

هذا ما انا فهمته من سؤالك

 

Exemple.rar

[ابو صلاح برهومه]

اخي الحبيب ان اعتذر جداَ على سوء شرحي للسؤال انا اريد ان اقوم بترحيل الصفحه كامله من الشيت الأول للشيت الذي يتناسب مع التاري

this sheets not exits

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

هل لك ان تدخل الكود للملف المرفق في الرساله التي ارسلتها  لك