تنفيذ الكود تلقائى

[۩◊۩ أبو حنين ۩◊۩]

السلام عليكم

الاخوه الاعزاء

هذا كود تصفيه نتقدمه

كيف لى ان اجعل الكود بتم تلقائى

دون الضغط على زر الكود

 

Sub Macro2()
'
' Macro2 Macro
 

'
    Sheets("Sheet2").Select
    Sheets("Sheet1").Range("A1:E27").AdvancedFilter Action:=xlFilterCopy, _
        CriteriaRange:=Sheets("Sheet1").Range("H1:I2"), CopyToRange:=Range( _
        "Sheet2!Extract"), Unique:=False
End Sub

 

شاكرا لكم تعاونكم

[حمادة عمر]

الاخ الكريم  / ۩◊۩ أبو حنين ۩◊۩

بارك الله فيك

يمكنك وضع الكود التالي في حدث  Sheet2 حيث عند اختياره وتنشيطة يعمل الكود تلقائيا

Private Sub Worksheet_Activate()
Macro2
End Sub

ولكن اخي الكريم ياريت لو ترفق ملف كمثال ليتضح الامر اكثر وتكون الاجابة اكثر دقة

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

[۩◊۩ أبو حنين ۩◊۩]

السلام عليكم

اخى العزيز حماده

الماكرو عن طريف filtir advancer

هل بمكن جعل الفلتر بين تاريخين

وهل يمكن ان يعمل الفتر الناتج عن filtir advancer

بمجر ادخال البيانات دون الضغط على زر الفلتر

شاكر للجميع

Book1.rar