Excel - Va de nuevo + claro. Duda: Desconcatenar tx y nro.

Gracias quiene respondieron, explico mejor para ser más claro.
Tengo celdas Excel con datos alfanumèricos.
Los número están siempre al final, pero la cifra de cantidad variable.
El texto está adelante, también variable y con espacios entre medio y por lo común antes del número.
No se puede hacer EXTRAE con ENCONTRAR (" "), ya que los espacios son varios.
No se puede hacer DERECHA ya que no se sabe la cantidad de cifra a extraer.
Debería existir una funciòn que verifique en qué momento aparece el primer número y allí extraer desde ese momento lo que sigue, ya que seràn nùmeros.
Doy ejemplos:
CD 789
L PUB 3455
L PRIV 45 (este dato tiene dos " " antes del número)
L PRIV 34

espero ahora haber sido más claro.
Cómo Extraigo en una celda todo el texto y en otra todo el número?

Gracias a los conocedores. (seguro es una macro que verifica caracter por caracter)

Gustavo

Ojala esto te sirva:

http://groups.google.com.pe/group/microsoft.public.es.excel/browse_frm/thread/a4d79ccf9254c02/077c58666ed92ca1?lnk=gst&q=extraer+texto&rnum=9#077c58666ed92ca1

Abraham

Prueba ayudandote con las funciones Len(), Instr() e Instrrev(), y veras que te servira en algo

buscate en el help de vb ahi te las explican.

ESpero que te sirva

___A___________ ___B_______________ __C_____________
1] CD 789 =EXTCMP(A1;" ";"U") =IZQUIERDA(A1;HALLAR(B1;A1;1)-1)
2] L PUB 3455
3] L PRIV 45
4] L PRIV 34

La función de C1, localiza la extracción del último dato y extrae los caracteres a la izquierda de ese dato.
La función ExtCmp deberás escribirla en VB, únicamente debes asegurarte de que el último carácter no sea espacio. Límpialo antes con la función ESPACIOS.

Function ExtCmp(Celda As String, iSepCmp As String, Cmp As Variant) as String
' Extrae una cadena de otra cadena que esté comprendida entre dos identificadores
' Celda = Referencia de la celda
' iSepCmp = Caracter identificador de separación
' Cmp = Nº de Campo a extraer
'--------------------------------------------------------
Dim ClavePF As String
ClavePF = "1,P,1,PRIMERO,1,PRIMER,1,I,1,INICIO,1,INICIAL,2,F,2,FINAL,2,U,2,ULTIMO,3,N,3,NUMERO,3,C,3,CAMPOS,"
Cmp = UCase$(Cmp)
If Not (IsNumeric(Cmp)) Then
T = InStr(1, ClavePF, Cmp & ",")
T = Mid(ClavePF,T-2,1)
Select Case T
Case "1"
Cmp = 1
Case "2"
Cmp = UBound(Split(Celda, iSepCmp)) + 1
Case "3"
ExtCmp = UBound(Split(Celda, iSepCmp)) + 1
Exit Function
Case Else
ExtCmp = "Error"
Exit Function
End Select
End If
If Cmp > UBound(Split(Celda, iSepCmp)) + 1 Then
ExtCmp = ""
Else
ExtCmp = Split(Celda, iSepCmp)(Cmp - 1)
End If
End Function

Cuidado con los saltos de línea falsos.

Saludos