Depuração Visual Basic no Excel

Question

Eu tinha uma pasta de trabalho criada para mim.

Eu cometi um erro e excluí uma linha inteira da Página Mestra e agora estou recebendo um erro de depuração e #REF! na planilha do UC-K.

O erro diz Run-Time Error '13': Type mismatch .

Quando eu depurar a seguinte linha é destacada em amarelo:

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

O código inteiro nessa seção é:

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

Por favor ajude !! :) Estou disposto a compartilhar a pasta de trabalho, se necessário, mas gostaria de saber como corrigi-lo também.

    

Answer 1

Para evitar tipo incompatibilidades

substituir:

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

com:

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