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 monstruos excelianos:
Aquí os dejo un calendario perpetuo en el que se pueden marcar fechas por tipología.
A cada tipo de fecha se le puede asignar el color de fondo y el color de texto.
Se pueden añadir/eliminar los tipos que se consideren oportunos
Pueden seleccionarse periodos (Desde-Hasta)
Pueden asignarse fechas fijas para todos los años (Ej: 01/01/*)
Se puede seleccionar el día festivo semanal (Cristianos, musulmanes y judíos)
Se pueden poner colores distintos a cada día de la semana.
Opcionalmente pueden señalarse el Jueves/Viernes Santo.
Seleccionar el año en la celda A2 de la hoja "Calendario".
Si teneis alguna duda, preguntais
Saludos a todos
Calendario recordatorio.xls