طلب كود لعمل filter لتاريخ

[عبدالرحمن بدوى]

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

تحية طيبة ويعد

الرجاء المساعدة فى كود لعمل فلترة فى الجدول بناء على الخلية b8 الملونة باللون الاصفر

وبعد ذلك نسخ البيانات الملونة باللون الاخضر امام التارخ الذى تمت فلترته فى الجدول

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

 

test2.xlsm

تم تعديل مارس 12, 2018 بواسطه عبدالرحمن بدوى

[Ali Mohamed Ali]

وعليكم السلام تفضل هذا اللى توصلت اليه

طلب كود لعمل filter لتاريخ.xlsm

[عبدالرحمن بدوى]

شكرا اخى الحبيب على اهتمامك

 

[عبدالرحمن بدوى]

للرفع

اريد عمل فلترة للتاريخ فقط على الموضوع

[عبدالرحمن بدوى]

تم حل المشكلة

Sub selectdate()
Range("b8").Select
seldate = Format(ActiveCell.Value, "mm/dd/yyyy")
Selection.AutoFilter Field:=1, Operator:=xlFilterValues, Criteria2:=Array(2, seldate)
End Sub

 

test2.xlsm