Показать и подсчитать записи в отфильтрованной таблице до сегодняшнего дня с помощью EXCEL VBA

Показать и подсчитать записи в отфильтрованной таблице до сегодняшнего дня с помощью EXCEL VBA
Показать и подсчитать записи в отфильтрованной таблице до сегодняшнего дня с помощью EXCEL VBA - xiao_mao38 @ Unsplash

Как указано в заголовке, я пытаюсь использовать фильтр через 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) сработал.


NevaDev, 5 марта 2023 г., 00:07