Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Ajuda Msgbox!
 
Notifications
Clear all

Ajuda Msgbox!

 
2024 - VBA & Macros
6 Posts
1 Usuários
0 Reactions
1,439 Visualizações
RSS
Fernando Fernandes
 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 ? :D

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

 
Postado : 15/12/2010 10:07 am
Fernando Fernandes
 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
 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 ! :D

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

 
Postado : 15/12/2010 1:05 pm
Fernando Fernandes
 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
 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
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

O ...

VALEU MESMO, muito obrigado ,

Att,

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

 
Postado : 15/12/2010 1:29 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico