Página 1 de 1

[RESUELTO] Problemas con msgBox y vbYesNo

NotaPublicado: Vie Feb 08, 2019 7:00 pm
por VaccaTola
Buenas tardes, soy novata en el foro y en la creación de macros, asi que mis disculpas antes de nada si no es aqui donde tengo que poner mi duda.

Mi problema es el siguiente estoy creando una macro donde se pueda contestar un si o un no, esta sería la macro,... pero en vez de darme las dos opciones si o no, solo me aparece aceptar. El caso es que despues de reescribirlo y de intentarlo y volverlo a intentar me funciono, asi que la guarde y a otro cosa, al dia siguiente ya no me funciona, empece de nuevo y nada, despues de varios intento lo consegui, pero cuando salgo de Calc y vuelvo a entrar ya no me funciona,... y la verdad es que me estoy volviendo loca, y la necesitaba para otra hoja que estoy realizando, alguien me puede ayudar, le pase a alguien mas ...
Gracias de antemano..

Sub Obtener_valor_del_mensaje()
'primero pongo la pregunta
resultado = MsgBox("¿Quieres saludar?", vbYesNo, "Saludar")

'ahora manejo el resultado a mi antojo
If resultado = vbYesNo Then
msgbox "Hola"
else
msgbox "Adios"
End If

End Sub

Re: Problemas con msgBox y vbYesNo

NotaPublicado: Vie Feb 08, 2019 7:32 pm
por mauricio
El uso de la constante vbYesNo, es propia de VBA, no de LibreOffice.
Código: Seleccionar todo   Expandir vistaContraer vista
Const MB_YESNO As Integer = 4
Const IDYES As Integer = 6


Sub Main

'primero pongo la pregunta
resultado = MsgBox("¿Quieres saludar?", MB_YESNO, "Saludar")

'ahora manejo el resultado a mi antojo
If resultado = IDYES Then
    msgbox "Hola"
else
    msgbox "Adios"
End If

End Sub


Toda la información del uso de MsgBox viene en la ayuda del programa, solo presiona F1

Re: Problemas con msgBox y vbYesNo

NotaPublicado: Sab Feb 09, 2019 4:46 pm
por VaccaTola
Ahora si, muchas gracias por tu ayuda...