Featured Replies
Archivado
Este tema está ahora archivado y está cerrado a más respuestas.
A better way to browse. Learn more.
A full-screen app on your home screen with push notifications, badges and more.
Este tema está ahora archivado y está cerrado a más respuestas.
Hola a todos, espero que este recurso les sea útil.
Se trata de una función construída para extraer la parte numérica de un domiclio.
(Quise subir el archivo, pero siendo con extensión .xlsx, me lo ha rechazado)
Puede copiarse y pegarse en un módulo nuevo.
La función es la siguiente:
Function Numero(domicilio As String) As Integer
'EXTRAE DE UN DOMICILIO SU PARTE NUMÉRICA (numeración de la Calle)
Dim pos As Byte ' variable que representa cada caracter en el domicilio
Dim texto As String
texto = Replace(domicilio, " ", ",") 'Al reemplazar espacios por comas (o cualquier otro caracter)
'se evita que el nro de piso o departamento sea
'interpretado como parte del número.
For pos = 1 To Len(texto) 'Recorre el texto del domicilio con comas entre palabras
If Not (Val(Mid(texto, pos)) = 0) Then 'Cuando encuentra texto, Val es CERO
Numero = Val(Mid(texto, pos)) ' La función Val lée solamente los números
GoTo fin ' Flag para evitar que recorra el resto, y que fuera reduciéndose
' el resultado hasta alcanzar el último carácter del domicilio
End If
Next pos
fin: 'Flag
End Function
Para probarla, escribamos domicilios y en la columna inmediata derecha la fórmula: Numero(argumento)
DOMICILIO ALTURA
San Martin 510 510
523 Ashley Road 34 523
Las Américas 345 3er piso 345
Saludos!