Копирование при сравнении

[Luda]

Подскажите пожалуйста как сделать и в какой процедуре: есть 2 листа в excel в 5 столбце на первом листе стоят даты, если какая либо из этих дат совпадает с датой сегодняшней, то копируем строку с этой датой в первую незаполненную строчку второго листа, я только начала осваивать Vba, пока не очень успешно.
Всем спасибо

[GSerg]

Код: Выделить всё

dim i as long
for i=1 to worksheets("Лист1").usedrange.rows.count
  if worksheets("Лист1").cells(i,5).value=date then worksheets("Лист1").cells(i,5).entirerow.copy worksheets("Лист2").cells(worksheets("Лист2").usedrange.rows.count+1,1)
next

[Luda]

Что-то не получается так, не вставляет на второй лист ничего, а почему когда вместо = ставлю <= выдает ошибку Subscript out of range

[GSerg]

А точно столбец 5 содержит даты, причём именно в формате даты?

[Luda]

Да, абсоютно точно точно, когда пошагово выполняешь, то проверяет условие и сразу на Next перескакивает, и похоже зацикливается, прогоняет все записи и снова начинает проверять с первой,

[AndreyV]

попробуйте так
Dim i As Long
For i = 1 To Worksheets("Лист1").UsedRange.Rows.Count
If Worksheets("Лист1").Cells(i, 5).Value = Format(Date, "dd.mm.yyyy") Then
Worksheets("Лист1").Rows(i).Copy Worksheets("Лист2").Rows(Worksheets("Лист2").Cells.SpecialCells(xlCellTypeLastCell).Row + 1)
End If
Next

[Luda]

Все вроде работает нормально, кроме одного вставляет нужные строки куда попало, а не в первую непустую строку на листе 2

[Luda]

описка: в первую пустую строку