Notifications

Clear all

Ajuda Msgbox!

2024 - VBA & Macros

Post Recente por Fernando Fernandes 14 anos atrás

6 Posts

1 Usuários

0 Reactions

1,434 Visualizações

RSS

Fernando Fernandes

(@fernandofernandes)

Posts: 43750

Illustrious Member

Topic starter

Boa tarde a todos,

alguem poderia me dizer, tem a posibilidade de criar estruturas de Decisão no MSGBOX?

Exemplo:
MSGBOX " Voce deseja continuar?", VBYESNO+VBQUESTION,"Atenção"

VBYESNO+VBQUESTION

Nesse intervalo é a onde preciso de ajuda!
Então,

Quando eu ativar a macro ela vai me perguntar Voce deseja continuar?, gostaria que quando selecionar Sim ela continuar o processo e quando selecionar Não ser regeitado o processo !

Alguem pode me ajudar ?

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

Postado : 15/12/2010 10:07 am

Fernando Fernandes

(@fernandofernandes)

Posts: 43750

Illustrious Member

Topic starter

Incluí o ElseIf apenas por didática, porém, dependendo do que pretende, é desnecessário:

Sub Executar()

x = MsgBox("Deseja continuar?", vbYesNo)

If x = 6 Then
Call Macro1
ElseIf x = 7 Then
Exit Sub
End If

End Sub

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

Postado : 15/12/2010 11:07 am

Fernando Fernandes

(@fernandofernandes)

Posts: 43750

Illustrious Member

Topic starter

Olha ... para voce entender melhor!

Sub macro_ACP_MENU()
'
' macro_ACP_MENU Macro
' Essa macro esta refente a planilha ACP

Worksheets("ACP").Visible = True
Sheets("ACP").Select
Range("B2").Select

End Sub

Gostaria de ultilizar nessa macro !

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

Postado : 15/12/2010 1:05 pm

Fernando Fernandes

(@fernandofernandes)

Posts: 43750

Illustrious Member

Topic starter

ve se eu entendi...

x = MsgBox("Deseja continuar?", vbYesNo)

If x = 6 Then
Se X for = 6
(Essa parte que eu não entendi)
Call Macro1

ElseIf x = 7 Then
Senão X é = 7
Exit Sub
Ele fechara a macro
End If

...

Sem mais ,

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

Postado : 15/12/2010 1:20 pm

Fernando Fernandes

(@fernandofernandes)

Posts: 43750

Illustrious Member

Topic starter

Veja se é isso:

Sub Executar()

x = MsgBox("Deseja continuar?", vbYesNo)

If x = 6 Then 'Opção pelo Sim
Worksheets("ACP").Visible = True
Sheets("ACP").Select
Range("B2").Select
ElseIf x = 7 Then 'Opção pelo Não
Exit Sub
End If

Exit Sub

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

Postado : 15/12/2010 1:27 pm