[حل شده] عدم اجرای دستور

[pishraw]

با سلام .دوستان عزیز خصوصا جناب iranweld عزیز اگر زحمتی نیست فایل ضمیمه را نگاهی کنند که چرا دستور فیلتر کردن در تیبل اجرا نمی شود.
با تشکر

[iranweld]

چون ستون دیتای خود را به تیبل تبدیل کردید بنابر این دستور فیلتر نیز بایستی به تیبل ارجاع داده شود

ماکر را بدین صورت اصلاح بفرمایید

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Me.Range("C1")) Is Nothing Then


 ActiveSheet.ListObjects("Table1").Range.AutoFilter Field:=1, Criteria1:=Range("C1").Value
 
 End If

End Sub