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 to2 to2....
Aquí os dejo otra elocubración.
Se trata de un pequeño formulario que permite navegar por la hoja modificando los valores del scroll.
Eventos:
ThisWorkbook.Open: Ejecuta la macro VerScroll
Click en flechas: Desplazan scroll filas/columnas a derecha/izquierda en función de los valores introducidos en Filas y Columnas.
Doble Click en flechas Arriba/Izquierda: Mueve scroll a fila 1/columna 1 respectivamente
Click y arrastrar en aspa roja: Mueve el formulario a voluntad
Doble click en aspa roja: Descarga el formulario
Macro VerScroll: Muestra el formulario
Enjoy it ! o tíralo
Salu2
Scrollador 2003.zip