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
Buenos dias como estan?
Tengo un documento de excel google docs y quisiera que las celdas cambiaran de color comparando con la hora actual.
EJEMPLO:
SON LAS 12:00 Y LA CELDA MARCA 13:00 - AMARILLO. CUANDO SEAN LAS 12:30 - ROJO
SON TICKETS QUE DEBEN EJECUTARSE ANTES DE LA HORA QUE INDICA, POR LO QUE NECESITO CREAR ALGUNA ALERTA.
INTENTE CON FORMATO CONDICIONAL PERO NO SE LA FORMULA PARA COMPARAR CON LA HORA ACTUAL.
SI PUEDEN AYUDARME, LES AGRADEZCO DE ANTEMANO.