gnaga
Well-known Member
- Joined
- Jul 9, 2002
- Messages
- 748
- Office Version
- 365
- 2016
- 2013
- Platform
- Windows
VBA Code:
Public Sub MyFilter()
Dim lngStart As Long, lngEnd As Long
Dim Rng As Range
Application.ScreenUpdating = False
Worksheets("Data").Activate
lngStart = Range("R1").Value
lngEnd = Range("R2").Value
Worksheets("R_Data").Activate
Range("B2:B" & Range("B2").End(xlDown).Row).NumberFormat = "mm/dd/yyyy"
Set Rng = Range("B2:AA" & Range("B2").End(xlDown).Row).AutoFilter field:=2, Criteria1:"=>"&lngStart, Operator:=xlAnd, Criteria2:="<=" & lngEnd
Worksheets("Data").Activate
Rng.Copy
Range("AA1").PasteSpecial xlPasteAll
End Sub
I am getting an error in the following line
Set Rng = Range("B2:AA" & Range("B2").End(xlDown).Row).AutoFilter field:=2, Criteria1:"=>"&lngStart, Operator:=xlAnd, Criteria2:="<=" & lngEnd
specifically it is not accepting field:=2
I am using Excel Version 2019. I could not figure out the mistake. Your help on this is much appreicated.