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:
Después de leer las reglas del foro y de estar tres días viendo los temas del foro que
me han dejado boquiabierto con las cosas que haceis con Excel, me presento:
Me conecto desde la "villa Armera", estoy prejubilado y me gusta enredar con este
"cacharro".
He hecho varios trabajos puntuales con Excel y Access, pero para andar por casa.
No tengo ni idea de VB así que.... lo mas parecido para mí es el BBVA.
Ha!, ya me he visto el video del loro. Muy bueno.
Voy a revisar lo de subir archivos porque ya tengo en proyecto arreglar una hoja que
tengo. Bueno, saludos a todos los del foro, que ya he comprobado que sois geniales.