Saltar al contenido
jose lopez contreras

Macro que se ejecute solo el fin de año

Recommended Posts

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.

Compartir este mensaje


Enlace a mensaje
Compartir con otras webs

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

Compartir este mensaje


Enlace a mensaje
Compartir con otras webs

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

 

Presentación1.jpg

Presentación2.jpg

Presentación3.jpg

Presentación4.jpg

Compartir este mensaje


Enlace a mensaje
Compartir con otras webs

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

Compartir este mensaje


Enlace a mensaje
Compartir con otras webs

Crear una cuenta o conéctate para comentar

Necesitas ser usuario para poder dejar un comentario

Crear una cuenta

Registrarse para una nueva cuenta en nuestra comunidad. ¡Es fácil!

Registrar una nueva cuenta

Conectarse

¿Ya tienes una cuenta? Conéctate aquí.

Conéctate ahora

×

Información importante

Echa un vistazo a nuestra política de cookies para ayudarte a tener una mejor experiencia de navegación. Puedes ajustar aquí la configuración. Pulsa el botón Aceptar, si estás de acuerdo.