¿Cómo ejecutar una macro en función del valor de una celda en Excel?
Supongamos que tiene varios códigos de macro en su libro de trabajo y ahora desea ejecutarlos en función del valor de una celda. En este artículo se tratan varias situaciones que puede haber experimentado en su trabajo diario al utilizar Excel.
Ejecutar o activar una macro si la celda Valor igual a un texto específico mediante código VBA
Ejecutar o activar una macro si el valor de una celda es mayor o menor que un valor específico mediante código VBA
Por ejemplo, si el valor de la celda A1 está entre 10 y 50, ejecute la macro1; y si el valor es mayor que 50, ejecute la macro2. Para llevar a cabo esta tarea en Excel, aplique el siguiente código VBA.
1. Haga clic con el botón derecho en la pestaña de la hoja en la que desea ejecutar la macro en función del valor de una celda y, a continuación, 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 en el módulo en blanco:
Código VBA: Ejecutar macro si el valor de la celda es mayor o menor que:
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Cells.Count > 1 Then Exit Sub
If IsNumeric(Target) And Target.Address = "$A$1" Then
Select Case Target.Value
Case 10 To 50: Macro1
Case Is > 50: Macro2
End Select
End If
End Sub
Nota: En el código anterior:
A1es la celda que contiene el valor específico en función del cual desea ejecutar la macro;
Case 10 To 50: Macro1: significa que si el valor está entre 10 y 50, se ejecuta Macro1;
Case Is > 50: Macro2: significa que, si el valor es mayor que 50, se ejecuta Macro2.
Cambie los nombres de estas macros y los criterios según sus necesidades, y también puede añadir más criterios siguiendo la estructura Case.
2. A continuación, guarde y cierre esta ventana de código. Ahora, cuando introduzca un valor entre 10 y 50 en la celda A1, se activará Macro1; si el valor introducido es mayor que 50, se ejecutará Macro2.
Descubra la magia de Excel con KUTOOLS AI
- Ejecución inteligente: Realice operaciones en celdas, analice datos y cree gráficos con comandos sencillos.
- fórmulas personalizadas: Cree fórmulas a medida para optimizar sus flujos de trabajo.
- Programación en VBA: Escriba e implemente código VBA con facilidad.
- Interpretación de fórmulas: Entienda las fórmulas complejas con facilidad.
- Traducción de texto: Rompa las barreras del idioma directamente en sus hojas de cálculo.
Ejecutar o activar una macro si la celda Valor igual a un texto específico mediante código VBA
Si desea activar una macro en función de un texto específico introducido en una celda —por ejemplo, ejecutar macro1 al escribir «Delete» y macro2 al escribir «Insert»—, el siguiente código le resultará muy útil.
1. Haga clic con el botón derecho en la hoja en la que desea ejecutar la macro en función del valor de una celda y, a continuación, 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 en el módulo en blanco:
Código VBA: Ejecutar macro si el valor de la celda es un texto específico
Sub worksheet_change(ByVal target As Range)
Set target = Range("A1")
If target.Value = "Delete" Then
Call Macro1
End If
If target.Value = "Insert" Then
Call Macro2
End If
End Sub
Nota: En el código anterior, «Delete» y «Insert» son los textos de celda según los cuales desea ejecutar macros, y Macro1 y Macro2 son las macros que se ejecutarán en función del texto. Adáptelos a sus necesidades.
2. A continuación, guarde este código y cierre esta ventana. Ahora, al introducir el texto «Delete» en la celda A1, se activará macro1; si introduce el texto «Insert», se ejecutará macro2.
Artículos relacionados:
¿Cómo ejecutar una macro automáticamente al cambiar el valor de una celda en Excel?
¿Cómo ejecutar una macro automáticamente antes de imprimir 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 en 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