Удаление строк по значению ячеек диапазона

[strannick]

Добрый день уважаемые форумчане!
Будьте добры, подскажите по этому коду:

Sub test()
Application.ScreenUpdating = False ' отключаем обновление экрана
Dim sh As Worksheet: Set sh = ActiveSheet
Dim FirstCell As Range: Set FirstCell = sh.Range("W2") ' первая ячейка
' берем диапазон до последней заполненной
Dim ra As Range: Set ra = sh.Range(FirstCell, FirstCell.End(xlDown))
ra.Value = ra.Value ' преобразуем формулы в значения
ra.Replace "0", vbNullString, xlWhole ' очищаем ячейки с нулями
On Error Resume Next
ra.SpecialCells(xlCellTypeBlanks).E ntireRow.Delete ' удаляем строки, которые были с нулями

sh.UsedRange.Value = sh.UsedRange.Value ' преобразуем формулы в значения на всем листе

End Sub

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

sh.UsedRange.Value = sh.UsedRange.Value ' преобразуем формулы в значения на всем листе

И тогда, я так понимаю, строчка

ra.Value = ra.Value ' преобразуем формулы в значения

не нужна?

[Hugo121]

А Вы попробовать боитесь?
Думаю, вместо
ra.Value = ra.Value
нужно поставить строку
sh.UsedRange.Value = sh.UsedRange.Value
а в конце её убрать - уже лишняя.

[strannick]

Большой привет профессионалам!
Вот, как раз вместо той строчечки и не пытался. Я думал, что ее в начало надо поставить, а потом уже определять диапазон. Понятное дело, что в конце она уже не нужна. Сейчас попробую.

[kuklp]

Sub test()
    With ActiveSheet.Range([W2], [W2].End(xlDown))
        .Parent.UsedRange.Value = .Parent.UsedRange.Value
        .Replace "0", vbNullString, xlWhole    ' очищаем ячейки с нулями
        On Error Resume Next
        .SpecialCells(xlCellTypeBlanks).EntireRow.Delete    ' удаляем строки, которые были с нулями
    End With
End Sub

[Hugo121]

Ну можно и в начало, после
Set sh = ActiveSheet
Но строка ra.Value = ra.Value тогда тоже лишняя. Т.е. одну переносим выше, другую стираем - так проще одну другой заменяем и всё

[strannick]

Не сработало. Формулы преобразовались в значения, а всего остального, то есть удаления строк с нулевым значением в столбце W, не произошло.

[kuklp]

Не сработало что?

[strannick]

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

Sub test()
    With ActiveSheet.Range([W2], [W2].End(xlDown))
        .Parent.UsedRange.Value = .Parent.UsedRange.Value
        .Replace "0", vbNullString, xlWhole    ' очищаем ячейки с нулями
        On Error Resume Next
        .SpecialCells(xlCellTypeBlanks).EntireRow.Delete    ' удаляем строки, которые были с нулями
    End With
End Sub

Ситуация аналогичная, преобразование прошло, удаление - нет.

[kuklp]

Давайте Ваш пример, где не сработало.

[strannick]

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

Давайте Ваш пример, где не сработало.

Прикрепил. Мой код в 12 модуле, Ваш в 14. Тут вот еще какое дело. До этой операции работает макрос из 13 модуля (собирает данные с листов в папке). Может преобразование формул в значения туда поставить, в конце? И объединить в один с сохранением в отдельный файл с именем-текущей датой?
И еще заодно такой вопрос, раз уж файл приложил. В столбце T часы. Как сделать, чтобы удаление строк происходило не только при нулевом значении в столбце W, но и если часы попадают в диапазон от 0 часов до 9 часов (нерабочее время, простой все равно)?