كتبت الكود هكذا
Private Sub Worksheet_Change(ByVal Target As Range)
Sheets("Main").Range("A13:z213").AdvancedFilter Action:= _
xlFilterCopy, CriteriaRange:=Range("C9:C10"), CopyToRange:=Range("B13", "C13", "T13"), _
Unique:=False
اعطى مشكلة فى كلمة Range
Range("B13", "C13", "T13"),
فهل التصفية المتقدمة يجب ان يكون الاعمدة جنب بعض
شكرا