Использование переменной в качестве критерия фильтра в VBA - PullRequest
Новая
       29

Использование переменной в качестве критерия фильтра в VBA

0 голосов
/ 04 июня 2019

Я пытаюсь отфильтровать до даты, используя VBA, я записал макрос в качестве базы для добавления переменных.

SDatesel - это переменная, содержащая объединение "<" & sDate SDate - это начальная дата, определенная пользователем в AC продажи на вкладке "Base Sheet"

. 
sDate = Worksheets("Base Sheet".Range("A2")

Строки в порядке, так как в режиме отладки они отображаются правильно

Он падает на линии 

Inspections.Range("A:S").AutoFilter Field:=3, Criertia1= _

   sDateSel, Operator:=xlAnd

Dim sDate As Date
Dim eDate As Date

sDate = Worksheets("Base Sheet").Range("A2")
eDate = Worksheets("Base Sheet").Range("C2")

Dim sDateSel As String
Dim eDateSel As String
'Dim Qot As String

sDateSel = "<" & sDate
eDateSel = ">" & eDate

Inspections.Range("$A:$S").AutoFilter Field:=3, Criteria1:= _
    sDateSel, Operator:=xlAnd
Rows("2:2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Delete Shift:=xlUp
Range("C1").Select
Inspections.Range("$A:$S").AutoFilter Field:=3, Criteria1:= _
    eDateSel, Operator:=xlAnd
Rows("2:2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Delete Shift:=xlUp
Selection.AutoFilter

Я получаю ошибку 424 - Требуется объект

Я полагаю, что это связано с использованием переменных, так как это работает, когда sDateSel или eDateSel на необработанных цифрах, таких как "<20/05/2019"

...