Как указано в заголовке, я пытаюсь использовать фильтр через VBA, чтобы скрыть все записи с датами из отфильтрованной таблицы, которые находятся в будущем, и подсчитать их, но код просто не работает любым способом, который я пробовал.
Мой текущий подход заключается в следующем:
Dim wbkPlanning As Workbook
Dim wksPlanning As Worksheet
Dim FilterValue as Integer
Workbooks.Open (.... Some Path...) 'this works as i have several other Autofilters in this macro that do the job just fine)
Set wbkPlanning = Workbooks("NAMEOFWORKBOOK.xlsx")
Set wksPlanning = wbkPlanning.Worksheets("NameOfWorksheet")
wksPlanning.Range("$A$4:$AS$600").AutoFilter Field:=24, Criteria1: = "=<" & CDbl(Date)
FilterValue = wksPlanning.AutoFilter.Range.Columns(1).SpecialCells(xlCellTypeVisible).Cells.Count - 1
MsgBox FilterValue
Когда я настраиваю фильтр вручную в рабочем листе, результаты просто отличные, но когда я настраиваю его таким образом, я получаю нулевые результаты...
Я в некотором замешательстве и буду очень признателен за советы.
Спасибо!
Другой фильтр в рабочем листе не позволил фильтру даты отобразить правильный результат. Критерий CDbl(Date) сработал.