طلب كود ترحيل وفقا لعمود التاريخ

[عاشق الاكسيل]

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

مطلوب كود ترحيل وفقا لعمود التاريخ بحيث اذا كان التاريخ قد مضى ( اقل من تاريخ اليوم) يتم نقل الصف الى صفحة اخرى (منتهى) نقل وليس نسخ

وطلب اخر اذا كان شهر التاريخ نفس الشهر الحالى يتم تظليل البيانات بلون مختلف

مرفق ملف للعمل عليه

 

ترحيل.rar

[عاشق الاكسيل]

في انتظار مساعدة احد الاعضاء المتواجدين 

[ياسر العربى]

 تفضل اخي الغالي 

هذا ترحيل المنتهى

 

 2ترحيل.rar

تم تعديل أكتوبر 26, 2015 بواسطه ياسر العربى

[خالد الرشيدى]

السلام عليكم

إستكمالاً لما بدأه الاستاذ / يــاسر العربى ... جزاه الله خيراً

اليك الطلب الثانى

اليك المرفق

 2ترحيل.rar

تم تعديل أكتوبر 26, 2015 بواسطه خالد الرشيدى

[ياسر العربى]

اخي واستاذي الحبيب   خالد الرشيدي

بارك الله فيك

وادام عطائك هذا 

لك مني كل الشكر والتقدير

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

إخواني ياسر العربي وخالد الرشيدي

يفضل عدم استخدام أكواد التحديد في الكود بمعنى

في هذا السطر على سبيل المثال

Cells(a + 1, 1).Resize(1, 4).Select
Selection.Copy

يمكن استخدام هذا السطر مباشرةً بدون تحديد بهذا الشكل

Cells(a + 1, 1).Resize(1, 4).Copy

 

وفي هذين السطرين

sheet1.Activate
ActiveCell.EntireRow.Delete

يمكن استخدام سطر واحد فقط دون تحديد ورقة العمل لأن الكود ينفذ من ورقة العمل النشطة

Cells(a + 1, 1).EntireRow.Delete

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

[خالد الرشيدى]

السلام عليكم

الاخ الحبيب / ياسر العربى  

شكراً جزيلا على مرورك العطر وعباراتك الرائعة

خالص تحياتى وتقديرى

.......

استاذى القدير / أبو البراء

ليس جديداً عليك التميز  .. بالفعل انت على حق

ادام الله علينا عطائك استاذنا الحبيب

تقبل خالص تحياتى وتقديرى

[عاشق الاكسيل]

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

وشكرا لمساعدتكم اساتذتى الافاضل