Macro para Resaltar "errores" en la Hoja Activa

0


 

Código:


Sub ResaltarErrores()

Dim Rng As Range

Dim C As Integer

For Each Rng In ActiveSheet.UsedRange

    If WorksheetFunction.IsError(Rng) Then

        C = C + 1

        Rng.Interior.Color = 13551615

    End If

Next Rng

MsgBox "Se han encontrado un total " & C & " error/es."

End Sub



Entradas que pueden interesarte

Sin comentarios

Etiquetas:
#aprendiendoexcel365, #josealcaldealias, #Excel, #funciones, #UDF, #Visual Basic, #VBA, #DAX, #Tips, #Basico, #Microsoft Excel, #Cursos Excel OnLine, #Aprende Excel, #Aprende Excel OnLine, #Excel 365, #Power Pivot, #Power BI, #Power Query, #Google Sheets, #Macros, #Código VBA, #Tutoriales Excel, #MTV, #Vbscript, #TypeScript, #Lenguaje M, #fórmulas, #funciones, #paso a paso, #funciones Excel, #libros, #tablas, #formatos, #hojas, #datos, #gráfico, #análisis de datos, #base de datos, #dashboards, #tablas dinámicas, #excel desde cero, #hoja de cálculo, #plantillas de Excel