extraer numeros

Function PruebaEsto(Rg As Range) As Variant
Dim X As Integer
Dim Solución As String

If Rg.Cells.Count > 1 Then
PruebaEsto = "Selecciona una sola Celda"
Exit Function
End If

For X = 1 To Len(Rg.Value)
If IsNumeric(Mid(Rg, X, 1)) = True Then
Solución = Solución & Mid(Rg, X, 1)
Else
Solución = Solución & " "
End If
Next
PruebaEsto = Application.WorksheetFunction.Trim(Solución)
End Function

Sub MacroPruebaEsto()
Dim X As Integer
Dim Solución As String, Palabra As String
Dim Rg As Range
Set Rg = Application.InputBox("Selecciona la celda que contiene
informacion", "Andoni dice:", Range("A1").Address, , , , , 8)
On Error Resume Next
If Rg.Cells.Count > 1 Then
MsgBox "Selecciona una única celda", vbInformation, "ATENCIÓN:" ' =
"Selecciona una sola Celda"
Exit Sub
End If

Dim Y As Integer
Palabra = Application.WorksheetFunction.Trim(Rg.Value)
For X = 1 To Len(Palabra)
If IsNumeric(Mid(Palabra, X, 1)) = True Then
Solución = Solución & Mid(Palabra, X, 1)
Else
If IsNumeric(Mid(Palabra, X - 1, 1)) = True Then
Y = Y + 1
ActiveCell.Offset(, Y) = Solución
Solución = ""
End If
End If
Next
End Sub



"Max" escribió en el mensaje
news:

Hola
Mi consulta es la siguiente , como extraer numeros de una celda que
contiene tambien texto: Ej A1 = Resultado 1500 personas online 600
como obtener 1500 en una celda y 600 en otra celda sin textos.
La celda A1 contiene datos obtenidos de la Web (datos externos).

Muchisimas gracias.