Llamar Sub en VBA

Presentaremos cómo llamar a un sub en otro sub con un ejemplo en VBA.

Llamar Sub en VBA

Mientras trabajamos en varios subprocedimientos, es posible que nos encontremos con una situación en la que necesitemos llamar a varios subprocedimientos para la misma función.

Algunas funciones requieren una gran cantidad de código para escribirse y hacer que este código sea fácilmente comprensible; tenemos que hacerlos en varias partes. Y necesitamos llamar a estas partes en un solo sub para asegurarnos de que todo el proceso funcione de manera optimizada.

Este tutorial nos enseñará a llamar a múltiples subs en un solo sub. Veamos un ejemplo en el que obtendremos la suma de múltiples columnas y luego la suma de las múltiples sumas, como se muestra a continuación.

Sub sumOfA()
Dim result As Double
result = WorksheetFunction.Sum(Range("A2:A8"))
Range("A11") = "Sum Of A"
Range("A12") = result
End Sub
Sub sumOfB()
Dim result As Double
result = WorksheetFunction.Sum(Range("B2:B8"))
Range("B11") = "Sum Of B"
Range("B12") = result
End Sub
Sub totalSum()
Call sumOfA
Call sumOfB
Dim result As Double
result = WorksheetFunction.Sum(Range("A12:B12"))
Range("C11") = "Total Sum"
Range("C12") = result
End Sub

Producción:

Como podemos ver en el ejemplo anterior, queríamos obtener la suma de varias columnas y, después de eso, queríamos obtener la suma de las sumas que obtuvimos. Para este propósito, dividimos el código en tres subs diferentes y llamamos a los dos subs en nuestro último sub.

Dividir el código en múltiples funciones es una buena práctica para hacerlo simple y fácil.