تنفيذ الماكرو تلقائيا دون الحاجة للضغط على زر تشغيل

[bachiri401]

activate macro (call).xlsm

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

هل يمكن جعل الماكرو يشتغل اليا دون الحاجة للضغط على اي زر تشغيل

في المثال المرفق استعنت بالامر CALL  لكن لم يعمل معي

هل من توضيح او دروس شرح بارك الله فيكم

[سليم حاصبيا]

هذا الماكرو

 

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim My_rg As Range
    Dim Cret As Range
    Dim Rg_to As Range
Const i = 2
    Set My_rg = Range("B2:F13")
    Set Cret = Range("L3:L4")
    Set Rg_to = Range("J6:M6")

Application.EnableEvents = False
  
  If Target.Address(0, 0) = "L4" _
    And Target.Count = 1 Then
    
    My_rg.AdvancedFilter i, Cret, Rg_to

  End If

Application.EnableEvents = True
End Sub

تم الشرح الماكرو  بالتفصيل للتمكن من متابغتة مع امكانية  احتصاره الى

Private Sub Worksheet_Change(ByVal Target As Range)
 
Application.EnableEvents = False
  
  If Target.Address(0, 0) = "L4" _
    And Target.Count = 1 Then
    
    Range("B2:F13").AdvancedFilter 2, _
    Range("L3:L4"), Range("J6:M6")

  End If

Application.EnableEvents = True
End Sub

 

Bachiri.xlsm

[bachiri401]

بارك الله فيك اخي على هذه الإجابة الرائعة