Llamar a una función desde otra en VBA es una tarea fácil que, además, forma parte del manual de buenas prácticas del programador. De esta manera, tendremos mejor estructurado nuestro código y evitaremos las duplicidades.
En este ejemplo, vamos a ejecutar dos funciones con un solo botón.
La primera, pondrá en negrita la primera columna, y la segunda coloreará el fondo de las celdas que contengan la palabra "a".
El código asociado botón "Formato" es el siguiente,
Sub Formato()
'Ejecutamos las funciones negrita y fondo
Call negrita
Call fondo
End Sub
Sub negrita()
'Ponemos en negrita la columna A
Range("A:A").Font.Bold = True
End Sub
Sub fondo()
'Rellenamos de azul las celdas con letra a
For i = 1 To 10
If Cells(i, 1) Like "*a*" Then
Cells(i, 1).Interior.ColorIndex = 3
End If
Next
End Sub
Sub Deshacer()
'Deshacemos los cambios realizados
Range("A:A").Font.Bold = False
Range("A:A").Interior.ColorIndex = 2
End Sub
Tal y como veis, simplemente hemos usado la función Call para hacer la llamada a las funciones que queremos ejecutar. Así de fácil.
El resultado sería el siguiente,
Espero que con este ejemplo hayas aprendido a llamar una función desde otra usando VBA. Descárgate el archivo de ejemplo y practica.
Por último, quiero invitarte a compartir tus dudas en los comentarios o en el foro. Intentaré ayudarte en todo lo que pueda, y así aprenderemos todos.
Hasta la próxima.
0 comentarios