31/Ene/07 17:08
Re: EXTRAER VALORES DE UN TEXTO MEZCLADO CON VALORES Y LETRA
con esta función separas los numeros de las letras:
[code:1:c3855dd671]Function SacaNro(celda As String)
Dim nro As Long, i As Integer, Nros As String
Nros = ""
If IsNumeric(Trim(celda)) Then
nro = Val(Trim(celda))
Else
For i = 1 To Len(celda)
celda = Replace(celda, " ", "")
Next
For i = 1 To Len(celda)
If IsNumeric(Mid(celda, i, 1)) Then
Nros = Nros + Mid(celda, i, 1)
End If
Next
nro = Val(Nros)
End If
SacaNro = nro
End Function[/code:1:c3855dd671]
Celda A1 [u:c3855dd671]LOTE 10375[/u:c3855dd671], Celda B1 [u:c3855dd671]=SacaNro(A1), [/u:c3855dd671]Resultado es [u:c3855dd671]10375[/u:c3855dd671]
«Antes que cambien los reinos, los hombres deberán cambiar»
═╬═