MACRO PARA EXTRAER SOLO TEXTO

 FUNCION DEFINIDA POR EL USUARIO PARA EXTRAER SOLO TEXTO

Vamos crear una función definida por el usuario para extraer solo texto, esta función lo vamos a llamar ExtraerTexto(), teniendo como un único argumento la celda que contiene el texto que deseo extraer. 

Ejemplo: Deseo extraer solo el texto que contiene el rango de celdas A2:A14, para eso hemos creado una función definida por el usuario llamado ExtraerTexto() que tiene como único argumento la celda que contiene el texto que se deseo extraer. 

Para extraer el texto que contiene la celda A2 (Rosa123) utilizamos la función ExtraerTexto(A2) y vemos que en la celda C2 se ha extraído solo el texto (Rosa) que contiene la celda A2.

Para crear la función ExtraerTexto(), vamos a copiar el siguiente código en un módulo:

Function ExtraerTexto(celda As Range) As String

    Dim texto As String

    Dim i As Long

    For i = 1 To Len(celda.Value)

        If Not IsNumeric(Mid(celda.Value, i, 1)) And _

        Mid(celda.Value, i, 1) <> ":" And _

        Mid(celda.Value, i, 1) <> "-" Then

            texto = texto & Mid(celda.Value, i, 1)

        End If

    Next

    ExtraerTexto = texto

End Function

VER VIDEO :