Пробелы при попытке фильтрации на предыдущую рабочую дату с использованием vba

Question

Я пытаюсь отфильтровать предыдущую рабочую дату, используя vba.Получение заготовок.

Я пытался ввести фактическую дату 30.01.19 в Criterial: и это работает, но когда я запускаю мой код, ничего не появляется.

Dim sht As Worksheet
Dim LastRow As Long
Dim xDay As String
Dim xDate As Date
Dim wb As Workbook: Set wb = ThisWorkbook

 Set sht = wb.Sheets("Open PO Raw Data")

If xDay = "Monday" Then
    xDate = Date - 3
Else
    xDate = Date - 1
End If

'
LastRow = Range("A" & Rows.Count).End(xlUp).Row + 1

  sht.Range("A1:G" & LastRow).AutoFilter field:=7, _
  Criteria1:="xdate"

Мне нужен столбецG, чтобы показать все даты для 01/30 / 19.

Answer 1

Кавычки " вокруг xdate в Criteria1:="xdate" означают, что вашим критерием фильтра является текст"xdate", а не значение переменной xDate.Удалить кавычки.

РЕДАКТИРОВАТЬ:

Судя по комментариям, это звучало так, как будто вы имели дело с текстом, а не с фактическими датами.В этом случае вы можете использовать Criteria1:=Format(xDate, "mm/dd/yy").