سؤال حول فلتر في اكسل

[838383mohamed]

السلام عليكم

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

المهم ان هذا الفلتر يشمل اكثر من صفحة لنفس العمود

يعني اريد اعمل فلتر لعمو مثلا A  في صفحة منفصلة تماما .... فيعمل فلتر في شيت توصيلات و خطوط و خطوط مياه  لنفس العمود  وهو تاريخ التنفيذ

http://im32.gulfup.com/tmMBq.png

 

 

اوفسنا.rar

تم تعديل ديسمبر 14, 2013 بواسطه 838383mohamed

[838383mohamed]

يا جماعه حد يرد

[838383mohamed]

لو سمحتو حد يرد ان امحتاج الموضوع في حاجه ضروري

[اسلام سيد]

للاسف يا استاذ / محمد

 

الفلتر والجداول على حد علمى لا يقبل العمل الجماعى لابد من كل شيت على حدى

 

ولا ادرى إذا كان هناك كود لذالك ام لا

 

ربنا يوفقك الى كل خير

[احمدزمان]

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

 

للاسف يا استاذ / محمد

 

الفلتر والجداول على حد علمى لا يقبل العمل الجماعى لابد من كل شيت على حدى

 

ولا ادرى إذا كان هناك كود لذالك ام لا

 

ربنا يوفقك الى كل خير

 

كلام صحيح 100×100

ولكن ممكن نعمل كود VB يعمل التصفية للأوراق الى تبغاها

[838383mohamed]

الاستاذ 

إسلام الشيمي

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

[838383mohamed]

الاستاذ 

احمدزمان

كيف نعمل هذا الكود الله يدزيك الخير

ممكن حضرتك تتكرم وتعمله بالشيت المرفق

[حمادة عمر]

السلام عليكم

الاخ الكريم / 838383mohamed

بارك الله فيك

بعد اذن استاذي القدير / احمد زمان ... جزاه الله خيرا

جرب الكود التالي لتنفيذ المطلوب ( ان شاء الله )

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

Sub sama()
Dim LastR, LastR1, LastR2, LastR3 As Long
Dim StDate, xx As Date
Application.ScreenUpdating = False
'****************************************************
LastR = Sheet1.Cells(Rows.Count, 2).End(xlUp).Select
xx = ActiveCell.Value
[c1].Value = xx
SText = Sheet1.Range("c1")
'==== شيت توصيلات
LastR1 = Sheet2.Cells(Rows.Count, 2).End(xlUp).Row
    Sheet2.Range("b3:q" & LastR1).AutoFilter Field:=2, Criteria1:=SText
'==== شيت خطوط
LastR2 = Sheet4.Cells(Rows.Count, 2).End(xlUp).Row
    Sheet4.Range("b3:q" & LastR2).AutoFilter Field:=2, Criteria1:=SText
'==== شيت خطوط مياه
LastR3 = Sheet10.Cells(Rows.Count, 2).End(xlUp).Row
    Sheet10.Range("b3:q" & LastR3).AutoFilter Field:=2, Criteria1:=SText
'****************************************************
Application.ScreenUpdating = True
End Sub

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

 

 

اوفسنا.rar

 

[838383mohamed]

جزالك الله خيرا اخي الكريم حماده عمر ... لكن لم يعمل الشيت بشكل جيد ... يعمل فلتر ولا اجد اي بيانات في العمود المفلتر ... حتي البيانات المفلتره لا تكون موجوده ... لكنه يعمل فلتر لكل الاعمده وهذه خطوه جيده جداجزاك الله خيرا لو تكمل جميلك ... وبارك الله فيك

[احمدزمان]

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

بعد اذن اخي الكريم حمادة عمر

جزاه الله خيرا على الكود الجميل الذي ارفقه

 

=========================

 

اخي محمد

لاحظ :

 - ان الكود يأخذ التاريخ من قيمة الخلية الحالية

اذا يجب عند تنفيذ الكود ان يكون المؤشر على خلية بها تاريخ يعني خلية من العمود B

 - و كما ذكر الأستاذ حمادة {** ولكن يجب ملاحظة ان يكون تنسيق التاريخ في كل اعمدة التواريخ في كل الشيتات بتنسيق واحد للجميع}

 

تحياتي وتقديري

[حمادة عمر]

السلام عليكم

الاستاذ القدير / احمدزمان

بارك الله فيك

يزيدني شرفا ان الكود قد اعجبك

تقبل خالص تحياتي

[حمادة عمر]

السلام عليكم

الاخ الكريم / 838383mohamed

بارك الله فيك

هل جربت الكود علي المرفق المرفق مني ام قمت بنسخ الكود وتنفيذه علي ملف آخر

تقبل خالص تحياتي

[838383mohamed]

جزاك الله خيرا يا ا حماده وبارك فيك

[حمادة عمر]

بارك الله فيك

تقبل خالص تحياتي