У меня была создана книга для меня.

Я сделал ошибку и удалил целую строку из главной страницы, а теперь я получаю ошибку отладки и #REF! на листе UC-K.

Ошибка говорит об ошибке Run-Time Error '13': Type mismatch .

При отладке следующая строка выделяется желтым цветом:

If .Cells(R, NwsLastCol).Value = 0 Then

Весь код в этом разделе:

Public Sub HideRows(ByRef Ws As Worksheet)

    Dim R As Long

    ScreenAndEvents False
    With Ws
        .Rows.Hidden = False
        For R = NwsFirstRow To LastRow(NwsFirstCol, Ws)
            If .Cells(R, NwsLastCol).Value = 0 Then .Rows(R).Hidden = True
        Next R
    End With
    ScreenAndEvents True
End Sub

Пожалуйста помоги!! :) Я готов поделиться рабочей книгой, если это необходимо, но я хотел бы знать, как исправить это и сам.

1 ответ1

0

Чтобы избежать несоответствия типов

заменить:

If .Cells(R, NwsLastCol).Value = 0

с:

If .Cells(R, NwsLastCol).Text = "0"

Всё ещё ищете ответ? Посмотрите другие вопросы с метками .