Notifications
Clear all

Mudar o local do msgbox clicando no botão sim

2 Posts
2 Usuários
0 Reactions
1,055 Visualizações
valdecirrk
(@valdecirrk)
Posts: 230
Estimable Member
Topic starter
 

bom dia

gostaria de saber como é feito uma macro aonde faço algumas perguntas usando o msgbox, mas quando clicar no sim a janela muda de posição na tela e só aceita não como resposta.
como faço para isso acontecer, gostaria de saber como funciona, quando clicar no sim ele muda a janela de lugar.

 
Postado : 18/04/2017 6:17 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Eu não saberia dizer como reposicionar o MsgBox para fazer esse comportamento tão irritante... mas eu sugiro que vc coloque o msgbox num loop que só sairá do loop qdo a resposta for Não, ou seja, a msgbox apareceria no mesmo lugar, e qdo o cara clica em sim, ela é exibida novamente, até clicar em não ...

Assim;

Public Sub MsgBox_Chata()
Dim mbrResult As VbMsgBoxResult
    Do
        mbrResult = VBA.Interaction.MsgBox("Clique no NÃO!", vbYesNo + vbExclamation, "MSGBOX CHATA")
    Loop Until mbrResult = vbNo
End Sub

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 18/04/2017 6:48 am