Macro con distintos valores de una celda

Hola a todos, quisiera saber si es posible ejecutar 4 macros distintas de acuerdo a 4 posibles valores de un celda, esto es, por ej. Si el valor de una celda determinada es 1 se dispara una macro, si es 2 se dispara otra, etc.
Desde ya muchas gracias, y creo que demás esta aclarar que soy bastante inexperto en VB

1 respuesta

Respuesta
1
Puedes usar el siguiente procedimiento, suponiendo que en la primera celda de la primera hoja tienes el número de la macro que quieres ejecutar
Sub elegirMacro()
Worksheets(1).Select
If Cells(1, 1) = 1 Then
Call macro1
ElseIf Cells(1, 1) = 2 Then
Call macro2
ElseIf Cells(1, 1) = 3 Then
Call macro3
ElseIf Cells(1, 1) = 4 Then
Call macro4
End If
(Ojo que debes escribir las macros como MACRO1, MACRO2, MACRO3 Y MACRO4.
Estoy muy sorprendido por la rapidez de la respuesta! De cualquier manera no consigo que funcione. ¿El código que me pasas se supone que lo debo copiar en el modulo?
Aplicando este código que te paso funciona una sola macro, pero yo necesito llamar 3 más:
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Range("A1") = 1 Then Call Nombremacro
End Sub
Otra vez gracias.
Agrega lo que escribí más arriba a tu procedimiento... quedaría algo así...
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Range("A1") = 1 Then Call Nombremacro
Else if Range("A1") = 2 then Call Nombremacro2
Else if Range("A1") = 3 then Call Nombremacro3
Else if Range("A1") = 4 then Call Nombremacro4
End If
End Sub
Escribe las 4 macros: Nombremacro, Nombremacro2, Nombremacro3 y Nombremacro4, y debería funcionar sin problemas.
Muchas gracias por tu ayuda! Y nuevamente muy gratamente sorprendido por la rapidez en las respuesta. Realmente las Macros en Excel son de gran utilidad para automatizar trabajos rutinarios, pero lamentablemente para mí soy bastante ignorante en el tema, así que los estarémolestando bastante seguido.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Ejecutar "x" macro cuando cambia valor"x" columna

Soy nuevo aquí, y tengo un dilema. Todas las respuestas que he mirado hablan de ejecutar una macro cuando se cambia una celda y no me sirven. Pues bien, tengo 5 macros en una hoja, cada una asociada a una columna con sus respectivas celdas. Las...
1 respuesta

Como ejecutar una macro cuando el Valor de una celda es igual al valor de una celda de un rango

Soy nuevo en esto y no me aclaro. Quiero ejecutar tres macros diferentes si el valor de una celda coincide con el valor de cualquier celda dentro de 4 diferentes rangos. Tengo la casilla c3 que es una validación de datos en formato lista. Pues mi...
1 respuesta

Macros y los botones de opción

Tengo 5 botones de opción, todos dirigidos a la celda A1 de la hoja de nombre vetas, como puedo hacer para que si selecciona el segundo botón y de hecho en la celda se coloque un dos ejecute automáticamente la macro que corresponda, ¿Y qué si...
1 respuesta

Ejecutar macro según el valor de la celda

Que tal necesito de su valiosa ayuda tengo que ejecutar una macro en automático esto depende del valor de la celda. Estoy utilizando la siguiente macro: Private Sub Worksheet_Change(ByVal Target As Excel.Range) If Target.Address = "$S$1" And...
1 respuesta

Ejecutar macro dependiendo el valor de una celda

Pues me gustaría saber si es posible ejecutar una determinada macro dependiendo del valor que contenga una celda con lista desplegable Por ejemplo si en la celda A3 se escoge la palabra "hola" se ejecute la Macro1, si se escoge la palabra "adiós" se...
6 respuestas

¿Macro desde función? ¿Se puede?

Tengo una función más o menos así: =Si(f5>0,"run macro 1","run macro 2") Donde f5 es un número igual o mayor a cero "run macro 1" <- aquí quiero que ejecute una macro que ya existe en este libro Si es falso la circunstancia, entonces que ejecute la...
1 respuesta

Modificar código para ocultar columnas en excel

Ya había hecho una pregunta en relación: ¿Cómo puedo ocultar COLUMNAS con macros en excel? Pero seguí buscando y encontré este código que es lo que necesito, pero quiero que haga lo contrario, en este código: Private Sub Worksheet_Change(ByVal Target...
1 respuesta

Auto ejecutar una macro

Quiero que se autoejecute una macro que tengo en un libro pero no se como ya que soy muy novato, el nombre de la macro es Private Sub Worksheet_Change(ByVal Target As Range).
1 respuesta

Ejecutar macro al cambiar el valor de celda

A ver si alguien me puede ayudar por favor, que me estoy volviendo loca! Estoy intentando hacer una macro para que se ejecute otra cada vez que cambia la celda A1. El caso es que A1 está formulado, y lo que quiero es que se ejecute la macro cada vez...
1 respuesta

Ejecutar varias veces una macro en excel según valor de distintas celdas en la misma hoja

Quiero ejecutar varias veces una macro según el valor de distintas celdas de una misma hoja en la misma hoja. Private Sub Worksheet_Change(ByVal Target As Excel.Range) If Target.Address(False, False) = "K1" Then If Target.Value = 1 Then Call...
1 respuesta