¡Cómo comprobar que la celda de Excel contiene REF! error en VBA

Nuestro grupo especializado despúes de muchos días de investigación y de juntar de datos, obtuvimos la solución, nuestro deseo es que te sea de gran utilidad para tu trabajo.

Solución:

If IsError(cell.Value) Then
    If cell.Value = CVErr(xlErrName) Then
        ...
    End If
End If

El código original es incorrecto y dará un error de Mismatch de tipo si la celda no contiene un error.

If cell.Value = CVErr(xlErrRef) Then
    ...
End If

Sub CheckRef()
Dim CheckRange As Range, CheckCell As Range

    Set CheckRange = [A1:D10]                ' as per app

    For Each CheckCell In CheckRange
    If IsError(CheckCell) And _
       CVErr(CheckCell) = CVErr(2023) Then ' 2023 --> xlErrRef
            MsgBox ("#REF! in  " & CheckCell.AddressLocal)
            Exit Sub                     ' exit after first #REF! found
        End If
    Next CheckCell
End Sub

ejemplo

• ingrese “=1/0” en B2 para crear un error diferente a “#REF!”
• ingrese 1 en B4, B5
• ingrese “=B4+B5” en B7
• eliminar fila 4
• correr Sub CheckRef()

Valoraciones y comentarios

Utiliza Nuestro Buscador