Hola david!!!
Mira yo necesitaba algo como te habia dicho jaf pero al reves. Osea queria sacar el texto solo
y arme esto con tu codigo. No creo que sea la forma mas profesional de hacerlo pero lo pongo por si alguien le sirve
Código:
Dim Texto As String
Dim sTexto() As String
Dim Looping As Byte
Dim textoF as string
Texto = "mi linea 30"
'Convertir la cadena en un arreglo, usando como separador el espacio " "
sTexto = Split(Texto, " ")
'Recorrer todos los elementos obtenidos
For Looping = 0 To UBound(sTexto)
'Si es numérico salir del bucle
If IsNumeric(sTexto(Looping)) Then
Exit For
else
textoF=textoF & " " & sTexto(Looping)
endif
Next Looping
MsgBox textoF
y asi saco como en este caso "mi linea" lo que si a mi me sirvio porque los caracteres especiales o los numeros estan al final, calculo que si los numeros estan en el medio del texto habria que continuar el bucle y pasar por alto los numeros. en fin
Gracias por tu codigo !!!
