مشكلة بكود AutoFilter لشيت بناء على قيمة خلية فى شيت أخر

[Amr Ashraf]

السلام عليكم 

اساتذتى الافاضل اثناء بحثى وجدت هذا الكود فى منتدى اجنبى وظيفته فلترة نطاق معين فى شيت بناء على قيمة خلية فى الشيت المفتوح حاليا والكود كما يلى

Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim Crit As String
Crit = Sheets("Sheet1").Range("Cat").Value '
ActiveSheet.AutoFilterMode = False
With [A1].CurrentRegion
.AutoFilter Field:=1, Criteria1:=Crit
End With
End Sub

ولكن عند تنفيذ الكود ينتج الخطأ ... ولضعف خبرتى بالاكسيل VBA لم استطع حل المشكلة

النتيجة المرغوبة كما يلى

 

 

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

Payments Trial.xlsm

[Amr Ashraf]

للرفع .... للأهمية