Ошибка при применении автофильтра с датой в качестве критерия

@Sweatcs · Регистрация: 19.06.2014

Author24 — интернет-сервис помощи студентам

Добрый день.
Столкнулся с такой проблемой.
При вводе даты в поле все хорошо и под отладчиком работает, присваивается значение.
Но потом на последней строке умирает.
в чем может быть проблема?
подскажите, в файле есть пустые строки, может из-за этого?

Visual Basic

Sub выгрузка()
 
Dim iLastRow, iLastRow1 As Long
Dim now, data, d As Date
Dim dd As Date
 
    dd = CDate(InputBox("Введите дату", "окно вода даты", Title))
    'If d = Format(d, "dd.mm.yyyy") Then
        If Str(dd) = "" Then
            MsgBox ("не введена дата!")
        Else
            data = Date
        If IsDate(dd) = False Then
            MsgBox ("дата введена некорректно." & Chr(13) & "формат даты: дата.месяц.год")
        Else
            now = CDate(dd)
        If data < now Then
        MsgBox "введенная дата больше текущей"
        Else
    
    
    Cells.Select
    Selection.AutoFilter
    ActiveSheet.Range("$A:$F").AutoFilter Criteria1:=dd, Operator:=xlFilterDynamic

@Sweatcs · 24.11.2014, 22:16 **[ТС]**

Прикладываю файлы.

@pashulka · 24.11.2014, 23:10

Если предположить, что [A:A] это столбец с датами, то :

Visual Basic

Private Sub Test()
    Dim iText$, iDate# 
 
    iText = InputBox("Введите дату", "Oкно вода даты", "")
    If IsDate(iText) = True Then
       iDate = CDbl(CDate(iText))
       Range("A:A").AutoFilter Field:=1, Criteria1:=iDate ', Operator:=xlFilterDynamic
    Else
       MsgBox "Не введена дата!", vbCritical, ""
    End If
End Sub

P.S. Если не прокатит, то попробуйте

Visual Basic

1	Range("A:A").AutoFilter 1, ">=" & iDate, xlAnd, "<=" & iDate

	24.11.2014, 23:10