как вывести нужные ячейки при наступлении определеной даты

[DEsh]

Добрый день!
Подскажите пожалуйста, как правильно поправить код:
Есть колонка с датой она вводится вручную, после нажатия клавиши выполнить условие - к введенным датам нужно прибавить 10 дней и если полученная дата будет < текущей даты то вывести ячейку в форму.

например:
1) 15.11.2016 + 10 дней = 25.11.2016 - вывести эту ячейку в форму так как полученная дата меньше текущей(29.11.2016).
2) 25.11.2016 + 10 дней = 05.12.2016 - пропустить ячейку так как полученная дата больше текущей(29.11.2016).

вот код который есть

Private Sub KillTheForm()
    Unload UserForm1
End Sub

Sub ShowPerson()
    Dim i As Long
    Dim d As Date
    
'   Проверка незаполненности свойства RowSource
    UserForm1.ListBox1.RowSource = ""
    
'   Добавление опций в объект ListBox
    
     For i = 1 To Sheets("Лист1").Cells(Rows.Count, 1).End(xlUp)
    If Format(Sheets("Лист1").Cells(i, 1), "d") = Format(Now(), "d") Then
      UserForm1.ListBox1.AddItem Sheets("Лист1").Cells(i, 2)
    End If
  Next
    'UserForm1.Show
End Sub

Sub KillFill()
' автофильтр
    ActiveSheet.Range("$A$1:$B$15000").AutoFilter Field:=1, Criteria1:= _
        xlFilterToday, Operator:=xlFilterDynamic
          Call KillTheForm
End Sub





Sub formuShow()
UserForm1.Show
End Sub

[Aleksandr H.]

If CDate(Sheets("Лист1").Cells(i, 1))+10 <= Now() Then 
UserForm1.ListBox1.AddItem Sheets("Лист1").Cells(i, 2) 
End If

[DEsh]

Сообщение от Aleksandr H.

If CDate(Sheets("Лист1").Cells(i, 1))+10 <= Now() Then 
UserForm1.ListBox1.AddItem Sheets("Лист1").Cells(i, 2) 
End If

к сожалению при проверке кода выдает ошибку в этой строке

 If CDate(Sheets("Лист1").Cells(i, 1))+10 <= Now() Then

я уже по всякому пробовал править((((

[Aleksandr H.]

и так?

For i = 2 To Sheets("Лист1").Cells(Rows.Count, 1).End(xlUp).Row
        If CDate(Sheets("Лист1").Cells(i, 1)) + 10 <= Now() And Sheets("Лист1").Cells(i, 1) <> "" Then
            UserForm1.ListBox1.AddItem Sheets("Лист1").Cells(i, 2).Value
        End If
     Next

[DEsh]

Сообщение от Aleksandr H.

и так?

For i = 2 To Sheets("Лист1").Cells(Rows.Count, 1).End(xlUp).Row
        If CDate(Sheets("Лист1").Cells(i, 1)) + 10 <= Now() And Sheets("Лист1").Cells(i, 1) <> "" Then
            UserForm1.ListBox1.AddItem Sheets("Лист1").Cells(i, 2).Value
        End If
     Next

А так не пробовал) все работает, спасибо!

[Aleksandr H.]

Тут уж надо контролировать чтобы в А столбце или дата или пусто. Текст или числа вывалят макроса в ошибку.

[DEsh]

а не подскажите как теперь отфильтровать полученный результат в excel?

Sub KillFill()
' автофильтр
    ActiveSheet.Range("$A$1:$B$15000").AutoFilter Field:=1, Criteria1:= _
        xlFilterToday, Operator:=xlFilterDynamic
          Call KillTheForm
End Sub

тут фильтрует по текущей дате, а как полученный результат отфильтровать опять туплю с правильным написанием

[Aleksandr H.]

Сообщение от DEsh

как теперь отфильтровать полученный результат в excel?

Sub KillFill()
' автофильтр
    Sheets("Лист1").Range("$A$1:$B$15000").AutoFilter Field:=1, Criteria1:= _
        "<=" & CLng(Date - 10)
          Call KillTheForm
End Sub

[DEsh]

Сообщение от Aleksandr H.

Sub KillFill()
' автофильтр
    Sheets("Лист1").Range("$A$1:$B$15000").AutoFilter Field:=1, Criteria1:= _
        "<=" & CLng(Date - 10)
          Call KillTheForm
End Sub

спасибо! какой я туповатый все же