Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
VBYESNO
 
Notifications
Clear all

VBYESNO

 
2024 - VBA & Macros
Post Recente por brunamv 12 anos atrás
3 Posts
3 Usuários
0 Reactions
1,987 Visualizações
RSS
 Skadis
(@skadis)
Posts: 18
Eminent Member
Topic starter
 

Boa Tarde!

Pessoal, segue abaixo a sequencia que tenho no VBA do excel 2007. Não está dando certo. o que preciso é que.... Quando colocar YES (sim) ele limpe todas as caixas de mensagem do fomulario (até ai tudo bem) o problema que quando coloco NO (não) eu preciso que ele feche a planilha, mas não funciona. Alguem me ajuda.

Sheets("TI").Select
MsgBox "Deseja inserir novo chamado?", vbYesNo, "Atenção"
If Yes Then
'Limpar as caixas de texto
txtNome.Value = Empty
txtDescrição.Value = Empty
TextBox1.Value = Empty
txtNumeroChamado = Empty
'Limpar as caixas de combinação
ComboBox1.Value = Empty
'Limpar os botões CheckBox e OptionButton
optChamadoTI.Value = False
optIntegração.Value = False
Sheets("TI").Select
End If
If No Then
ActiveWorkbook.Close savechanges:=True

Att

Thales

 
Postado : 27/08/2012 2:08 pm
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Experimente assim:

Dim Response
Sheets(1).Select
Response = MsgBox("Deseja inserir novo chamado?", vbYesNo, "Atenção")
Select Case Response
Case 6
txtNome.Value = Empty
txtDescrição.Value = Empty
TextBox1.Value = Empty
txtNumeroChamado = Empty
'Limpar as caixas de combinação
ComboBox1.Value = Empty
'Limpar os botões CheckBox e OptionButton
optChamadoTI.Value = False
optIntegração.Value = False
'Limpar as caixas de texto
Sheets("TI").Select
Case 7
ActiveWorkbook.Close savechanges:=True
End Select
 
Postado : 27/08/2012 2:54 pm
 brunamv
(@brunamv)
Posts: 6
Active Member
 

Não testei, mas tenta assim:

Sheets("TI").Select
MsgBox "Deseja inserir novo chamado?", vbYesNo, "Atenção"
If Yes Then
'Limpar as caixas de texto
txtNome.Value = Empty
txtDescrição.Value = Empty
TextBox1.Value = Empty
txtNumeroChamado = Empty
'Limpar as caixas de combinação
ComboBox1.Value = Empty
'Limpar os botões CheckBox e OptionButton
optChamadoTI.Value = False
optIntegração.Value = False
Sheets("TI").Select

ElseIf No Then
ActiveWorkbook.Close savechanges:=True

End if

 
Postado : 29/08/2012 11:06 am
Forum Jump:
  Tópico Anterior
Próximo Tópico