Quisiera ver si es posible que una macro se ejecute solo el día 30 de diciembre de cada año siempre y cuando no sea domingo, ahora si es domingo que se ejecute un día antes es decir el sábado, 30 de diciembre.

Hace 1 hora, ikanni dijo:

Yo pondria un punto de interrupción en el If ...... y ver que datos esta pasando y actuar en consecuencia, es que el codigo no tiene mas complicación. No se me ocurre otra cosa.

No entendí podrías ser mas especifico por favor @ikanni

Sino pasa es que esta igualdad es falsa. Por lo tanto ahí es donde esta el problema. Haz seguimiento a los datos que recojen las variables  y vete depurando. Si sabes usar debug úsalos y sino ponte msgbox para ver que valor cojen.

por ejemplo

No sé ayudar más.

...
msgbox VBA.Format(CDate(fecha), "yyyy") + 1 & "/" & VBA.Format(Date, "yyyy")
If VBA.Format(CDate(fecha), "yyyy") + 1 = VBA.Format(Date, "yyyy") Then
...

@ikanni seguí tu recomendación y usando el debug obtuve la siguiente información que te anexo en la siguiente imagenes y como veras si se cumple el If pero no se ejecuta la macro para guardar la hoja en otro libro. te comento que dicha macro para guardar la hoja en otro libro si a ejecuta sola si funciona. algo esta raro no creen.

 

Hola Jose,

No veo las imagenes, pero da igual si cumple la condición eso significa que lo que te puse funciona., pero el código para hacer la copia pues parece que no te funciona. Ahora no tengo tiempo ayudarte....

Doy por hecho que te crea la nueva hoja con el año nuevo y te hace el resto, entonces parece ser que te falla :

....
        Workbooks("Control JOLOCO Almacenes V 9.9.4.xlsm").Worksheets("Salidas").Copy _
                  After:=Workbooks("Reporte anual de Salidas.xlsm").Sheets(1) ' copiar hoja en otro libro
.......

Sigue el codigo Paso a Paso y mira a ver porque no te hace la copia, seguro que encuentras la solución. Si luego sí tengo teimpo me paso y veo...