Macro que se ejecute solo el fin de año

[ikanni]

Hola,

Pues no se que puede pasar, es tan sencillo el codigo que tu mismo lo podrias reparar.

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.

[jose lopez contreras]

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

[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
...

[jose lopez contreras]

@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.

 

[jose lopez contreras]

[ikanni]

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...