¿Cómo ejecutar una macro automáticamente al cambiar el valor de una celda en Excel?
Normalmente, en Excel podemos pulsar la tecla F5 o hacer clic en el botón Ejecutar para llevar a cabo un código VBA. Pero, ¿ha probado alguna vez a ejecutar una macro específica automáticamente al cambiar el valor de una celda? En este artículo le mostraré algunos trucos rápidos para lograrlo en Excel.
Ejecutar o llamar a una macro cuando cambia el valor de una celda específica con código VBA
Ejecutar o llamar a una macro cuando cambia el valor de una celda específica con código VBA
Para ejecutar una macro automáticamente al modificar el valor de una celda, puede utilizar el siguiente código VBA. Siga estos pasos:
1. Haga clic con el botón derecho en la pestaña de la hoja donde desea que se ejecute la macro al cambiar el valor de una celda y, a continuación, seleccione Ver código en el menú contextual. En la ventana abierta de Microsoft Visual Basic para Aplicaciones, copie y pegue el siguiente código en el módulo en blanco:
Código VBA: Ejecutar macro cuando cambia el valor de una celda:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
Call Mymacro
End If
End Sub
Nota: En el código anterior, A1 es la celda específica en la que se basará la ejecución del código, y Mimacro es el nombre de la macro que desea ejecutar. Cámbielos según sus necesidades.
2. A continuación, guarde y cierre la ventana de código. Ahora, cada vez que introduzca o modifique un valor en la celda A1, el código específico se activará inmediatamente.
Ejecutar o llamar a una macro cuando cambia el valor de cualquier celda dentro de un rango con código VBA
Si desea ejecutar o activar una macro cada vez que cambie el valor de cualquier celda dentro de un rango, el siguiente código le será de gran ayuda.
1. Haga clic con el botón derecho en la pestaña de hoja donde desea ejecutar la macro si cambia el valor de una celda y, a continuación, elija Ver códigoen el menú contextual. En la ventana abierta de Microsoft Visual Basic para Aplicaciones, copie y pegue el siguiente código en el módulo en blanco:
Código VBA: Ejecutar macro cuando cambia el valor de cualquier celda en un rango:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1:B100")) Is Nothing Then
Call Mymacro
End If
End Sub
Nota: En el código anterior, A1:B100 son las celdas específicas en las que se basará la ejecución del código, y Mimacro es el nombre de la macro que desea ejecutar. Cámbielos según sus necesidades.
2. A continuación, guarde y cierre la ventana de código. Ahora, cada vez que introduzca o modifique un valor en cualquier celda del rango A1:B100, el código específico se ejecutará inmediatamente.
Eliminar todas las macros de varios libros de trabajo
Kutools para Excel's Eliminar todas las macros en bloquepuede ayudarle a Eliminar todas las macros de varios libros de trabajo según sus necesidades.¡Descargue y pruébelo gratis ahora!
Kutools para Excel: con más de 300 complementos útiles para Excel, pruébelos gratis sin limitaciones durante 30 días.¡Descargue y pruébelo gratis ahora!
Artículos relacionados:
¿Cómo ejecutar una macro automáticamente antes de imprimir en Excel?
¿Cómo ejecutar una macro en función del valor de una celda en Excel?
¿Cómo ejecutar una macro según el valor seleccionado en una lista desplegable de Excel?
¿Cómo ejecutar una macro al hacer clic en un hipervínculo en Excel?
¿Cómo ejecutar una macro al seleccionar una hoja de un libro de trabajo?
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