¿Cómo supervisar los cambios realizados en las celdas de Excel?
¿Cómo podría supervisar las celdas de una hoja de cálculo si se modifican los datos en Excel? Esto puede ayudarle a identificar las celdas modificadas tan rápidamente como sea posible. En este artículo, hablaré sobre algunos métodos interesantes para realizar esta tarea en Excel.
Supervisar cambios en celdas en Excel con la función Control de cambios
Supervisar cambios en celdas en Excel con código VBA
Supervisar cambios en celdas en Excel con la función Control de cambios
Excel incluye una útil función Control de cambios que le permite marcar las celdas modificadas. Siga estos pasos:
1. Haga clic en Revisar > Control de cambios > Resaltar cambios. Consulte la captura de pantalla:
2. En el cuadro de diálogo Resaltar cambios, realice las siguientes operaciones:
(1.) Active la opción Realizar un seguimiento de los cambios mientras edita. Esto también comparte su libro.
(2.) En la sección Resaltar qué cambios, especifique los elementos Cuándo, Quién y Dónde según sus necesidades.
(3.) Por último, active la opción Resaltar cambios en pantalla.
3. Tras finalizar la configuración, haga clic en el botón Aceptar. A partir de ahora, al modificar cualquier valor de celda dentro del rango especificado, aparecerá un borde con un icono triangular alrededor de las celdas modificadas. Consulte la captura de pantalla:
Nota: Con este método, su libro se convertirá en un libro compartido.
Supervisar cambios en celdas en Excel con código VBA
El siguiente código VBA también le permite supervisar los valores de las celdas en el momento en que se modifican. Siga estos pasos:
1. Haga clic con el botón derecho en la pestaña de la hoja cuyos cambios desea supervisar y elija Ver código en el menú contextual. En la ventana abierta de Microsoft Visual Basic para Aplicaciones, copie y pegue el siguiente código VBA en el módulo:
Código VBA: Supervisar cambios en celdas en una hoja 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 desea supervisar para detectar cambios en las celdas; puede ajustarlo según sus necesidades.
2. A continuación, guarde y cierre esta ventana de código. Ahora, al modificar el valor de una celda dentro del rango limitado, aparecerá un cuadro de mensaje para avisarle. Consulte la captura de pantalla:
Las mejores herramientas de productividad para Office
Potencie sus habilidades en Excel con Kutools para Excel y experimente una eficiencia como nunca antes.Kutools para Excel ofrece más de 300 funciones avanzadas para aumentar su productividad y Ahorrar tiempo.Haga clic aquí para obtener la función que más necesita...
Office Tab aporta una interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil
- Active la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
- Abra y cree varios documentos en nuevas pestañas dentro de la misma ventana, en lugar de hacerlo en ventanas separadas.
- ¡Aumente su productividad en un 50 % y elimine cientos de clics del ratón cada día!
Todos los complementos de Kutools en un solo instalador.
Kutools for Office es la suite que incluye complementos para Excel, Word, Outlook y PowerPoint, además de Office Tab Pro, ideal para equipos que trabajan en distintas aplicaciones de Office.
- Suite integral— complementos para Excel, Word, Outlook y PowerPoint + Office Tab Pro
- Un instalador, una licencia— configuración en minutos (compatible con MSI)
- Rendimiento mejorado en conjunto— productividad optimizada en todas las aplicaciones de Office
- Prueba gratuita de 30 días con todas las funciones— sin registro ni tarjeta de crédito
- La mejor relación calidad-precio— ahorre frente a la compra individual de complementos