Llamar a una función desde otra en VBA

Escrito por Administrador

19 de septiembre de 2023

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".

saber-usuarios-conectados-base-datos

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,

saber-usuarios-conectados-base-datos

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.

Si te ha servido y quieres donar





Descarga el archivo del ejemplo

0 comentarios

Enviar un comentario

Tu dirección de correo electrónico no será publicada. Los campos obligatorios están marcados con *

Este sitio usa Akismet para reducir el spam. Aprende cómo se procesan los datos de tus comentarios.

Últimas publicaciones

Categorías

junio 2024
LMXJVSD
 12
3456789
10111213141516
17181920212223
24252627282930

Debates en el foro

Avatar
guardar imagenes en carpeta
Avatar
Necesito ayuda con un formulario
Avatar
Buscar Datos en Columnas

Contacto