Удаление строк по дате, ранее заданной

[strannick]

Странно ведет себя макрос.


Sub vvv()
Dim sh As Worksheet
Dim iLastrow As Long
Dim i As Long
Set sh = Sheets("Финансы")
iLastrow = sh.Cells(Rows.Count, 1).End(xlUp).Row
For i = iLastrow To 12 Step -1
If sh.Cells(i, 1) = [c3] Then
ElseIf sh.Cells(i, 1) < [c3] Then
sh.Cells(i, 1).EntireRow.Delete (xlShiftUp)
sh.Cells(i - 1, 1).EntireRow.Delete (xlShiftUp)
End If
Next i
End Sub

Иногда удаляет строки с датой в ячейках столбца А меньших или равных дате, заданной в ячейке С3, иногда только меньшие, а иногда промежуточные. Где я накосячил? (файл приложил на всякий случай).

[IgorGO]

а что надо-то удалять?

[strannick]

Удалять строки, если в ячейках столбца А начиная с А11, стоят даты, меньшие или равные дате в ячейке С3.

[IgorGO]

а так?

Sub vvv()
  Dim sh As Worksheet, i As Long
  Set sh = Sheets("Финансы")
  For i = sh.Cells(Rows.Count, 1).End(xlUp).Row To 11 Step -1
    If sh.Cells(i, 1) <= sh.[c3] Then sh.Cells(i, 1).EntireRow.Delete (xlShiftUp)
  Next i
End Sub

[strannick]

Спасибо, Игорь. Вроде работает. У меня был и такой вариант, и несколько других (с автофильтром), но почему-то то срабатывает, то нет. Сейчас погоняю, там посмотрим.