عدم اجرای دستور

[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