Фильтровать столбец по предыдущему и текущему году - PullRequest
0 голосов
/ 15 апреля 2019

Я пытаюсь отфильтровать столбец L, чтобы я мог получать свои данные только между прошлым годом и этим годом. Ниже мой код: Подфильтр ()

Dim LastRow As Long
Dim previousyear As Integer
Dim currentyear As Integer

currentyear = Year(Date)
previousyear = Year(Date) - 1
ldatefrom = DateSerial(previousyear, 1, 1)
ldateto = DateSerial(currentyear, 12, 31)

LastRow = Range("A1").CurrentRegion.Rows.Count
Range("A1:CA" & LastRow).Select

Selection.AutoFilter Field:=12, Criteria1:=">=" & ldatefrom, _
                    Operator:=xlFilterValues, _
                    Criteria2:="<=" & ldateto

Selection.SpecialCells(xlCellTypeVisible).Copy
Dim dest As Range
With Workbooks("data.xlsm").Worksheets(5)
Set dest = .Range("A1")
Selection.SpecialCells(xlCellTypeVisible).Copy dest

End With
End Sub

Это не дает мне никакого результата. Что с ним не так?

Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...