Bonito tutorial Mr Sergio. @SergioAlejandroCampos He intentado que se ejecute este código, lo llamo desde otra macro, aparece la ventanita pero nunca se cierra automáticamente, hasta que presiones el botón SI, y continúa en el mismo formulario (de páginas) .. De otro tutorial, usando CASE, tampoco me funciona el cierre automático a los segundos programados. Ambos códigos de MACRO, no son difíciles. Utilizo la versión de Off 2021 LTSC ... será algún otro problemita?
@@SergioAlejandroCampos Para poder utilizar una caja de mensaje en Modal False uso una Api de Windows, pero sería interesante revisar si con este método es posible, ya que las cajas de mensaje son muy útiles, pero la propiedad Modal True por defecto resulta algo incómodo en algunos casos.
Hola Sergio, yo también estaba buscando esta macro. Mi consulta es si es pocible una macro que haga una captura de pantalla de una ventana SAP y que la guarde en una hoja excel?. Agradecido si puedes ayudarme. Saludos desde Valparaíso en Chile.
Sergio, me gustaría saber cómo hacer para que un libro de Excel se abra, se ejecuten las macros y cuando finalicen se cierre automáticamente. Intenté con una extensión .bat pero no fue posible.
Hola Sergio, he incorporado este código y después de un tiempo en el libro, el mensaje ya no desaparece, tienes que pulsar Si o No siempre, parece que el wscript.schell deja de funcionar. Saludos desde Tarragona (España).
Joaquín, le comento que la macro funciona correctamente, y no va a desaparecer el mensaje a los 5 segundos, porque exactamente así fue programado cuando no se presiona ningún botón. Si necesitas que el mensaje desaparezca cuando no se presione nada, entonces omite esa condición, tal como te muestro en la siguiente subrutina: ⬇ 'Nota: corrige el argumento("####") de la función CreateObject de la subrutina que te propongo, por el argumento que se indica el video. Yo no lo puedo poner en el código porque ‘Youu_Tubee& no me permite ingresar el comentario. Sub MensajeTemporal() Dim Mensaje As Integer Mensaje = CreateObject("############").popup(">> Dos segundos 2", 2, "Mensaje Temporal", 4 + 64) If Mensaje = 6 Then MsgBox "Presionaste Si" ElseIf Mensaje = 7 Then MsgBox "Presionaste No" End If End Sub
No funciona correctamente el script. O sí o no, pero si no haces nada, el mensaje no desaparece a los 5 segundos. Una pena. Hay que revisar qué puede pasar ahí.
Ivan, le comento que la macro funciona correctamente, y no va a desaparecer el mensaje a los 5 segundos, porque exactamente así fue programado cuando no se presiona ningún botón. Si necesitas que el mensaje desaparezca cuando no se presione nada, entonces omite esa condición, tal como te muestro en la siguiente subrutina: ⬇ 'NOTA: corrige el argumento ("####") de la función CreateObject de la subrutina que te propongo, por el argumento que se indica el video. Yo no lo puedo poner en el código porque ‘Youu_ Tubee& no me permite ingresar el comentario. Sub MensajeTemporal() Dim Mensaje As Integer Mensaje = CreateObject("#############").popup("Dos segundos 2", 2, "Mensaje Temporal", 4 + 64) If Mensaje = 6 Then MsgBox "Presionaste Si" ElseIf Mensaje = 7 Then MsgBox "Presionaste No" End If End Sub