Hola @RubenDario
Faltaría que en cada línea dentro del With le pongas un punto al inicio
With Hoja1
.Range("B6:B18,F6:F18,J6:J18").Select
.Range("J6").Activate
With Selection.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
.Selection.ClearContents
.Range("A1").Select
End With
Sin embargo, lo que yo haría (si fuese mi proyecto)... te ofrezco varias soluciones.
No asignarlo a una combinación de teclas, mejor ponerlo en una forma o botón.
Modificar tu libro con la app Custom UI Editor o similar y adicionar un botón en el Ribbon, estará visible solo cuando el libro esté activo.
Al principio de tu código pondría algo como: If Thisworkbook.Name <> ActiveWorkbook.Name Then Exit sub
Por
DiegoPC, · publicado
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!