Como ejecutar macro dependiendo valor de celda





En esta oportunidad te presento una macro que se ejecuta dependiendo del valor de una celda, es decir que la macro evaluará el valor de una celda determinada si coincide con el valor establecido ejecuta la macro.

Si estás trabajando con textbox quizás te interesen las macros presentadas anteriormente, una consiste en una macro que solo permite en el Textbox ingresar texto o string, otra es una macro que sólo deja ingresar números en los Textbox, otra es macro que escribe las barras automáticamente al ingresar las fechas.

Te recomiendo que leas un excelente libro sobre Excel el que te ayudará operar las planillas de cálculo, haz click acá, si quieres aprender sobre Excel, en inglés, entonces debes hacer click here. Si lo que necesitas es aprender o profundizar sobre la programación de macros con VBA este es unos de los mejores cursos on line que he visto en internet.


  

Descargando el ejemplo desde el link del final podrás observar que la macro depende del valor de la celda A1, en este caso si el valor es 1 se ejecuta la macro, si el valor es 0 se ejecuta otra macro, desde luego se puede adaptar e incluso obtener el valor de alguna fórmula y ejecutar la macro.

En el ejemplo, la macro ingresa valores desde el 4 al 16 de la columna A a la G, si el valor de la celda A1 es igual a 1 si es igual a 0 borra los valores de dicho rango. En el vídeo que sigue podrás ver su funcionamiento y explicación en forma más gráfica.

Suscribe a nuestro canal de You Tube para recibir en tu correo vídeos explicativos sobre macros interesantes, como  por ejemplo formulario que crea un listado de todas las hojas para poder luego seleccionarlas, buscar en listbox mientras escribes en textbox, ordenar hojas libro excel por su nombre, conectar Excel con Access y muchos ejemplos más.









Código que se inserta en un Formulario



Sub borra()
Range("A4:G16").Clear
End Sub

Sub llena()
For j = 1 To 7
For i = 4 To 16
Cells(i, j) = i
Next i
Next j
End Sub





Código que se inserta en el objeto hoja

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("A1") = 1 Then Call llena
If Range("A1") = 0 Then Call borra
End Sub



Si te fue de utilidad puedes INVITARME UN CAFÉ y de esta manera ayudar a seguir manteniendo la página, CLICK para descargar en ejemplo en forma gratuita.


If this post was helpful INVITE ME A COFFEE and so help keep up the page, CLICK to download free example.


Si te gustó por favor compártelo con tus amigos
If you liked please share it with your friends