Google entiende la información de direcciones muy bien cuando tiene este formato:
calle numero, colonia, municipio, estado, país
Por ejemplo
Hidalgo 28, Centro, Cuauhtemoc, CDMX, México
Pero a veces puede estar de la siguiente forma, o muchas otras:
Hidalgo 28 Centro, Cuauhtemoc, CDMX, México
Hidalgo Num 28 Centro, Cuauhtemoc, CDMX, México
Etc.
Esto requiere un proceso de limpieza.
El siguiente código permite que estando la información en Excel, insertemos la necesaria coma, es decir:
CIRCUITO LAS MISIONES 219
Pase a
CIRCUITO LAS MISIONES 219,
El código es este
Sub InsertarComasLuegoDeNumero()
'
Palabra = ActiveCell.Value
largo = Len(Palabra)
PrimerNumero = "NO"
NuevaPalabra = ""
Numeros = 0
For n = 1 To largo
letra = Mid$(Palabra, n, 1)
If letra = "0" Or letra = "1" Or letra = "2" Or letra = "3" Or letra = "4" Or letra = "5" Or letra = "6" Or letra = "7" Or letra = "8" Or letra = "9" Then
Numeros = Numeros + 1
If Numeros = 1 Then
NuevaPalabra = NuevaPalabra + ", "
End If
End If
NuevaPalabra = NuevaPalabra + letra
Next
ActiveCell.Value = NuevaPalabra
ActiveCell.Offset(1, 0).Range("A1").Select
End Sub
Evidentemente si lo quisieramos hacer para un solo renglón no tendría ningun caso, pero supongamos que lo queremos hacer para muchos renglones, digamos 100, solo encerramos el codigo en un for-next, como sigue:
Sub InsertarComasLuegoDeNumero()
'
for m=1 to 100
Palabra = ActiveCell.Value
largo = Len(Palabra)
PrimerNumero = "NO"
NuevaPalabra = ""
Numeros = 0
For n = 1 To largo
letra = Mid$(Palabra, n, 1)
If letra = "0" Or letra = "1" Or letra = "2" Or letra = "3" Or letra = "4" Or letra = "5" Or letra = "6" Or letra = "7" Or letra = "8" Or letra = "9" Then
Numeros = Numeros + 1
If Numeros = 1 Then
NuevaPalabra = NuevaPalabra + ", "
End If
End If
NuevaPalabra = NuevaPalabra + letra
Next
ActiveCell.Value = NuevaPalabra
ActiveCell.Offset(1, 0).Range("A1").Select
next
End Sub
