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
necesito saber si existe la formula para que no cambien el codigo o la formula.
el archivo esta configurado por varias hojas
- La 1° hoja se llama VER (Donde muestro todas las celdas de fechas de las hojas)
- La 2° Segunda es enero, hasta diciembre. donde seleccionan reservado.
-----------------------
A la hoja VER le puse un codigo para q me muestre la posicion de la celda
Si haces doble click muestra la formula
=enero!M11
es posible ? cuando haga click que se vaya a la hoja enero y se ponga en la misma posicion
y bloquear la hoja VER, para que no modifiquen.
Y en la hoja enero y febrero, bloquar celdas, para que no dañen el codigo, solo les permita usar el boton del lado derecho del mouse.
{gracias
ReservasfULL2.rar