Crear Funciones Personalizadas en Excel con VBA

Vamos a usar un poco del poder de Visual Basic for Applications y lo que haremos en este video será crear una función Nueva y personalizada, con un nombre totalmente adecuado a lo que nosotros queramos, esto lo hice por que a veces queremos cumplir ciertos “caprichos” y con lo que nos entrega Excel a veces no es suficiente. Si quieres profundizar en este excelente mundo del VBA a continuación te dejo unos enlaces que te ayudarán a ser todo un experto.

En este caso vamos a crear una función que nos ayudará a Extraer Números de Cadenas de texto y Texto de cadenas combinadas con números. A Continuación un video Explicativo.

----------------CÓDIGO DE LA FUNCIÓN ----------------------

Function EXTRAER_WILMER(cadena As String, Optional extrae_solo_numeros As Boolean = True) As String

    Dim caracter As Long

    Dim resultado As String

    Dim caracter_encontrado As String

    resultado = ""

    For caracter = 1 To Len(cadena)

        caracter_encontrado = Mid(cadena, caracter, 1)

        If extrae_solo_numeros = True And IsNumeric(caracter_encontrado) = True Then

            resultado = resultado & caracter_encontrado

        ElseIf extrae_solo_numeros = False And Not IsNumeric(caracter_encontrado) Then

            resultado = resultado & caracter_encontrado

        End If

    Next caracter

    EXTRAER_WILMER = resultado

End Function