Si tenemos la necesidad de extraer los números de una celda que está computas por números y letras como el siguiente ejemplo:
Lo que debemos hacer es crear la siguiente función:
Public Function ExtraeNumeros(celda)
Dim n As Long, c As String, r As String
For n = 1 To Len(celda)
c = Mid(celda, n, 1)
Select Case c
Case 0, 1, 2, 3, 4, 5, 6, 7, 8, 9
r = r & c
End Select
Next
ExtraeNumeros = r
End Function
Quedando de la siguiente manera:
Saludos
Juan A.
