لدي مشكلة في كود advanced filter لا يعمل ولا يظهر اي خطا من الوهلة الاولى عند تشغيل الكود يعمل ولكن لايظهر اي شيء في الورقة الثانية
Sub filter()
Dim CustID As String: CustID = sheet2.[g3].Value
Dim FromDt As Long: FromDt = sheet2.[C3].Value
Dim ToDt As Long: ToDt = sheet2.[e3].Value
Application.ScreenUpdating = False
With sheet1.[A3].CurrentRegion
.AutoFilter 4, CustID
.AutoFilter 1, ">=" & FromDt, xlAnd, "<=" & ToDt
.Offset(1).EntireRow.Copy sheet2.Range("A" & Rows.Count).End(3)(2)
.AutoFilter
End With
Application.ScreenUpdating = True
End Sub