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:
Como ya sabeis no hay ningún evento de hoja ligado a las barras de desplazamiento.
Hay un forma de detectarlos con Apis y un módulo de clase, pero aparte de complicado, no he conseguido hacerlo funcionar.
He conseguido crear unos "falsos" eventos change de fila y columna del scroll a partir del evento Selection_Change de la hoja.
Lo de falsos viene porqué los eventos no se detectan en el momento en que se producen sino que se detectan en la siguiente selección de una celda.
Con un poco de imaginación se le puede sacar alguna utilidad.
Saludos.
¡¡ A lo que tiene que se tiene que llegar para no aburrirse !!
PseudoScrollEvents.zip