[ RESUELTO ] Establecer fecha para ejecutar macro

Discute sobre la aplicación de hojas de cálculo

[ RESUELTO ] Establecer fecha para ejecutar macro

Notapor TheBatman96 » Mié Ene 30, 2019 7:56 pm

Buenas tardes compañeros :bravo:

Escribo con el fin de aclararme una gran duda, he leído el libro de Mauricio, he leído muchos temas del foro, pero sigo sin respuesta.

Estoy haciendo una prueba, y requiero que el último día del mes ( Ej: 28 de Febrero ) se ejecute la macro, la macro la utilizo para recopilar la información de las respuestas de la prueba que las personas han hecho ( Es algo que aún estoy haciendo, pero sé que el tema ya está en el foro )

Agradezco si pueden aclararme la duda, ya que no he visto éste tema en el foro, en caso tal de que esté, me disculpo.

Gracias
Última edición por TheBatman96 el Jue Feb 07, 2019 8:34 pm, editado 2 veces en total
" Un acto positivo, desencadena millones de actos positivos "

Xubuntu 16.04 - LibreOffice 6.0.3.2
TheBatman96
 
Mensajes: 8
Registrado: Mié Ene 30, 2019 5:55 pm

Re: Establecer fecha para ejecutar macro

Notapor PepeOooSevilla » Mié Ene 30, 2019 8:36 pm

Hola.

Te damos la bienvenida al Foro de OpenOffice/LibreOffice y, por favor, no dejes de leer la Guía de supervivencia.

Así, a bote pronto, se me ocurre que podrías asignar al suceso "Iniciar aplicación" en "Herramientas > Personalizar... > Sucesos" una macro que compruebe la fecha del sistema y si es 28 de febrero (u otra fecha) que llame a otra macro que será la encargada de recopilar la información que necesites.

Un ejemplo:
Código: Seleccionar todo   Expandir vistaContraer vista
Sub Hola()
   MsgBox "Hola, ¿qué tal?", 64, "¡HOLA!"
   If Format(Now(), "DD/MM/YYYY")="30/01/2019" Then
      MsgBox "Hoy es 30 de enero de 2019.", 64, "¡HOLA!"
   End If
End Sub

Si asignas esta macro al suceso que he citado, sales de LibreOffice y vuelves a iniciarlo, te saludará con "Hola, ¿qué tal?" y si hoy es 30/01/2019 (que lo es) te saltará el mensaje que puedes ver en el código. Haz pruebas ...

Saludos cordiales.
LibreOffice 6.1.5 en Windows 7 / 10
Por favor, utiliza el Foro para tus consultas, no los mensajes privados
Avatar de Usuario
PepeOooSevilla
 
Mensajes: 1038
Registrado: Sab Abr 04, 2009 6:10 pm
Ubicación: Sevilla (España)

Re: Establecer fecha para ejecutar macro

Notapor TheBatman96 » Mié Ene 30, 2019 9:23 pm

PepeOooSevilla escribió:Hola.

Te damos la bienvenida al Foro de OpenOffice/LibreOffice y, por favor, no dejes de leer la Guía de supervivencia.

Así, a bote pronto, se me ocurre que podrías asignar al suceso "Iniciar aplicación" en "Herramientas > Personalizar... > Sucesos" una macro que compruebe la fecha del sistema y si es 28 de febrero (u otra fecha) que llame a otra macro que será la encargada de recopilar la información que necesites.

Un ejemplo:
Código: Seleccionar todo   Expandir vistaContraer vista
Sub Hola()
   MsgBox "Hola, ¿qué tal?", 64, "¡HOLA!"
   If Format(Now(), "DD/MM/YYYY")="30/01/2019" Then
      MsgBox "Hoy es 30 de enero de 2019.", 64, "¡HOLA!"
   End If
End Sub

Si asignas esta macro al suceso que he citado, sales de LibreOffice y vuelves a iniciarlo, te saludará con "Hola, ¿qué tal?" y si hoy es 30/01/2019 (que lo es) te saltará el mensaje que puedes ver en el código. Haz pruebas ...

Saludos cordiales.



Muchas gracias Pepe tanto por la bienvenida como por el código, hasta el momento ha funcionado, en mi trabajo no puedo cambiar la fecha del sistema por motivos de administrador, sin embargo, espero ensayarlo ésta noche con algunas modificaciones y estaré comentando el resultado. Cuándo quede listo, estaré adjuntando el archivo y pondré el tema como [RESUELTO]
" Un acto positivo, desencadena millones de actos positivos "

Xubuntu 16.04 - LibreOffice 6.0.3.2
TheBatman96
 
Mensajes: 8
Registrado: Mié Ene 30, 2019 5:55 pm

Re: Establecer fecha para ejecutar macro

Notapor TheBatman96 » Jue Feb 07, 2019 2:06 pm

En efecto Pepe, me ha servido de gran ayuda tu respuesta. No adjunto el archivo, porque con tu código está súper explicado, y es sencillo de hacer. Junto al libro de Mauricio y tu respuesta, puedo decir que he culminado casi a su totalidad el proyecto.

! Muchas gracias !

:bravo:
" Un acto positivo, desencadena millones de actos positivos "

Xubuntu 16.04 - LibreOffice 6.0.3.2
TheBatman96
 
Mensajes: 8
Registrado: Mié Ene 30, 2019 5:55 pm


Volver a Calc

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 9 invitados