¿Cómo monitorear los cambios en las celdas en Excel?

¿Cómo podría monitorear las celdas de una hoja de cálculo si los datos cambian en Excel? Esto puede ayudarte a identificar las celdas modificadas tan rápido como puedas. En este artículo, hablaré sobre algunos métodos interesantes para abordar esta tarea en Excel.

Monitorear cambios en las celdas en Excel con la función Rastrear Cambios

Monitorear cambios en las celdas en Excel con código VBA

Monitorear cambios en las celdas en Excel con la función Rastrear Cambios

Excel tiene una útil función Rastrear Cambios que puede ayudarte a marcar las celdas modificadas; por favor, sigue estos pasos:

1. Haz clic en Revisar > Rastrear Cambios > Resaltar Cambios, ver captura de pantalla:

2. En el cuadro de diálogo Resaltar Cambios, realiza las siguientes operaciones:

(1.) Marca Rastrear cambios mientras se edita. Esto también compartirá tu libro de trabajo.

(2.) En la sección Resaltar qué cambios, especifica los elementos Cuándo, Quién y Dónde según sea necesario.

(3.) Por último, marca la opción Resaltar cambios en pantalla.

3. Después de finalizar la configuración, haz clic en el botón Aceptar. Ahora, cuando cambies cualquier valor de celda en las celdas especificadas, aparecerá un borde con un ícono triangular alrededor de las celdas modificadas, ver captura de pantalla:

Nota: Con este método, tu libro de trabajo se convertirá en un libro de trabajo compartido.

Monitorear cambios en las celdas en Excel con código VBA

El siguiente código VBA también puede ayudarte a monitorear los valores de las celdas cuando se modifican; por favor, sigue estos pasos:

1. Haz clic derecho en la pestaña de la hoja donde deseas monitorear los cambios en las celdas y selecciona Ver Código desde el menú contextual. En la ventana abierta de Microsoft Visual Basic para Aplicaciones, copia y pega el siguiente código VBA en el Módulo:

Código VBA: Monitorear cambios en las celdas en la hoja de cálculo de Excel:

Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice 20160728
    Dim xrng As Range
    Set xrng = Range("A1:E7")
    If Not Application.Intersect(xrng, Range(Target.Address)) _
           Is Nothing Then
        MsgBox "Cell " & Target.Address & " has changed.", vbInformation, "Kutools for Excel"
    End If
End Sub

Nota: En el código anterior, A1:E7 es el rango de datos que deseas monitorear si hay cambios en las celdas; puedes cambiarlo según tus necesidades.

2. Luego guarda y cierra esta ventana de código, y ahora, cuando cambies el valor de la celda en el rango especificado, aparecerá un cuadro de mensaje para recordártelo, ver captura de pantalla: