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

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

الساده الافاضل

هل من مساعده فى

كيف لى ان اجعل ذلك الكود يعمل تلقائى عن ادخال المعطيات فى

B2 او C2

هذا الكود كود ASVANCED FILTER

 

 

Sub Macro2()
'
' Macro2 Macro
'

'
    Range("A3:AA1304").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
        Range("B1:C2"), Unique:=False
End Sub

 

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

[حمادة عمر]

ضع الماكرو المقصود في حدث الشيت المطلوب تنفيذ العملية فيه كما يلي

بين السطرين التاليين

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

End Sub

ليكون الكود كالتالي

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Range("A3:AA1304").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
         Range("B1:C2"), Unique:=False
End Sub

وان لم تضبط معك ارفق ملف كمثال للعمل عليه وتنفيذ المطلوب

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

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

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

دائما موجود فى وقت الحاجه

سلمت بداك

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

هل لك ان تشرح ماذا يعنى

Private Sub Worksheet_SelectionChange(ByVal Target As Range) 

[حمادة عمر]

السطر المقصود  :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

يعني هذا السطر  تنفيذ كود خاص علي هذا الشيت عند حدوث اي تغيير في الشيت

اي عند عمل اي عملية في الشيت المحدد ينفذ الكود والاجراء الذي يليه تلقائيا

 

ارجو ان يكون الشرح واضح

واي استفسار لا تترد في وضعه

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

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

جزالك الله خيرا اخى العزيز حماده

وصلت الفكره

سلمت يداك

[حمادة عمر]

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