VBYESNO

2024 - VBA & Macros

Post Recente por brunamv 12 anos atrás

3 Posts

3 Usuários

0 Reactions

1,999 Visualizações

RSS

Skadis

(@skadis)

Posts: 18

Active 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

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

Postado : 27/08/2012 2:54 pm