Olá Meus Amigos.
Estou de volta! Espero que o assunto anterior tenha ajudado e vou aproveitar para mais um assunto bem legal e fácil de desenvolver em vba.
Mostrarei a vocês uma seleção atravez de perguntas e respostas e o que acontece em cada uma decisão.
Vamos colocar as mãos no código.
Vamos Lá.
Quem sabe você sempe quiz desenvolver uma aplicação que ao clicar no botão Salvar e entre tantos outros fatos, fosse lhe perguntado pela aplicação o que fazer.
- Deseja Salvar Seus Dados?
- Sim?
- Não?
Para este exemplo, usarei o mesmo codigo deixado antes.
Ao clicar no botão salvar, ele executa a rotina de verificação do textbox2 que estava vazio e emite a mensagem de campo vazio e retorna o foco para a caixa.
Agora vamos executar a rotina de (Sim e Não), antes de gravar os dados e só depois realizar a verificação dos textboxs.
Tchan!
Basta copiar o código abaixo em um form vazio, insira 03 textboxs, 02 comandbuttonn e vejam o resultado
Private Sub CommandButton1_Click()
Dim cod
' Adicionar dados na planilha com tomada de decisão, (sim / Não)
'Pergunta:
Reposta = MsgBox("deseja gravar os arquivos?", vbYesNo, "Meu Aplicativo - Gravando Dados")
'Aqui está a tomada de decisão (Resposta = Sim)
If Reposta = vbYes Then
'Aqui começa o campo obrigatório!
'Este campo não pode ser gravado vazio
'Caso necessite, insira mais campos obrigatorios
'Basta copiar o codigo abaixo e mudar o textbox2 para o seu textbox.
If TextBox2.Text = "" Then
MsgBox ("Campo Obrigatório 'Nome do campo'"), vbOKOnly, ("Seu Aplicativo - Gravando Dados")
TextBox2.SetFocus
Exit Sub
End If
'Apos o campo ser preenchido, a rotina continua a sua gravação.
'Seleciona a Plan1
Sheets("Plan1").Select
Range("A60000").End(xlUp).Offset(1, 0).Select
'Celulas que serão gravadas - Note 0;1;2 = Plan1= Linha 1 - Celulas A;B e C;
ActiveCell.Offset(0, 0).Value = Me.TextBox1.Value
ActiveCell.Offset(0, 1).Value = Me.TextBox2.Value
ActiveCell.Offset(0, 2).Value = Me.TextBox3.Value
'Mensagem ao final da rotina
MsgBox ("Gravado Com Sucesso"), vbOKOnly, ("Meu Aplicatico - Gravando Dados")
'Limpar os campos digitados
Me.TextBox2 = Empty
Me.TextBox3 = Empty
End If
'Fim da Resposta Sim
'Inicio da resposta Não
'Caso a resposta seja Não, a rotina terá seu inicio aqui
If Reposta = vbNo Then
'Limpa os campos digitados...
Me.TextBox2 = Empty
Me.TextBox3 = Empty
'Mensagem após limpar os campos
MsgBox ("Seus Dados Não Foram Gravados"), vbOKOnly, ("Seu Aplicativo - Gravando Dados")
'Aqui o foco para o textbox que quero que o curso retorne automaticamente.
TextBox2.SetFocus
End If
' Atualiza a auto-numeração
cod = Range("A60000").End(xlUp).Offset(0, 0).Value
Me.TextBox1 = cod + 1
End Sub
Private Sub UserForm_Activate()
Dim cod
' Ativa a auto numeração no Form
Sheets("Plan1").Select
cod = Range("A60000").End(xlUp).Offset(0, 0).Value
Me.TextBox1 = cod + 1
End Sub
Private Sub UserForm_Initialize()
' inicializa no campo de deve ser digitado
Me.TextBox2.SetFocus
End Sub
'Códido do Botão Finalizar
Private Sub CommandButton2_Click()
Unload Me
End Sub
Fácil demais!
Bom espero ter respondido algumas duvidas quanto a tomada de decisão em VBA.
Podem se sentir a vontade para modificarem como quiserem e desejarem.
Até nosso proximo post com outro assunto bem facil de desenvolver e muito curioso! O Botão Pesquisar
Iremos por partes até nosso pequeno aplicativo ficar totalmente completo e você será capaz de desenvolver seus forms de forma bem detalhada, bem pessoal, com rotinas de perguntas e respostas e um detalhe sem erros na execução da sua aplicação.
Até Breve.
Valeu galera.
Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
Form Com Tomada de Decisão - Sim/Não
Re: Form Com Tomada de Decisão - Sim/Não
E aí Kedin! Rapaz é muita informação e a cada dia fico mais interessado nisso, pois sou um leigo no assunto. rskedim43 escreveu:Olá Meus Amigos.
Estou de volta! Espero que o assunto anterior tenha ajudado e vou aproveitar para mais um assunto bem legal e fácil de desenvolver em vba.
Mostrarei a vocês uma seleção atravez de perguntas e respostas e o que acontece em cada uma decisão.
Vamos colocar as mãos no código.
Vamos Lá.
Quem sabe você sempe quiz desenvolver uma aplicação que ao clicar no botão Salvar e entre tantos outros fatos, fosse lhe perguntado pela aplicação o que fazer.
- Deseja Salvar Seus Dados?
- Sim?
- Não?
Para este exemplo, usarei o mesmo codigo deixado antes.
Ao clicar no botão salvar, ele executa a rotina de verificação do textbox2 que estava vazio e emite a mensagem de campo vazio e retorna o foco para a caixa.
Agora vamos executar a rotina de (Sim e Não), antes de gravar os dados e só depois realizar a verificação dos textboxs.
Tchan!
Basta copiar o código abaixo em um form vazio, insira 03 textboxs, 02 comandbuttonn e vejam o resultado
....................
'Códido do Botão Finalizar
Private Sub CommandButton2_Click()
Unload Me
End Sub
Fácil demais!
Bom espero ter respondido algumas duvidas quanto a tomada de decisão em VBA.
Podem se sentir a vontade para modificarem como quiserem e desejarem.
Até nosso proximo post com outro assunto bem facil de desenvolver e muito curioso! O Botão Pesquisar
Iremos por partes até nosso pequeno aplicativo ficar totalmente completo e você será capaz de desenvolver seus forms de forma bem detalhada, bem pessoal, com rotinas de perguntas e respostas e um detalhe sem erros na execução da sua aplicação.
Até Breve.
Valeu galera.
O botão 2 não estava executando o comando de sair então susbtituí a linha (que na verdade peguei de outro tutorial seu), ficando assim.
'Códido do Botão Finalizar
Private Sub CommandButton2_Click()
ThisWorkbook.Close SaveChanges:=True
End Sub
Como estava, clicando nele o mesmo acessava o VBA para "modificá-lo".
Outra coisa, é que tanto antes como agora, quando acessamos o arquivo ele não vem com a UseForm para executarmos as ações. Assim tenho que entrar no desenvolvedor e acessá-la.
É isso, ou estava certo e fiz algo errado?
- kedim43
- Colaborador
- Mensagens: 45
- Registrado em: Dom Fev 05, 2012 3:12 pm
- Localização: Goias
- Contato:
Re: Form Com Tomada de Decisão - Sim/Não
Blz. Amigão.
Ando meio sumido devido uma Grande aplicação que estou desenvolvendo em SQL.
Peço desculpas a todos.
Olha só.
No post, bastava você seguir as instruções do mesmo que tudo sairia certinho.
Se você mudou a instrução do botão de comando para: ThisWorkbook.Close SaveChanges:=True
este comando finaliza toda a apliacção e finaliza até o Excel.
Uma boa pratica e você buscar a colocar o seu form para iniciar juntamente com o Excel.
Agora, se voice quer mesmo, aprender VBA ou outra linguagem que eu conheça, basta deixar um post que vou estar sempre acompanhando e ensinando tudo o que sei, gosto muito de compartilhar aqui com todos, gosto do nosso Amigo Tomas, que nus deu este espaço para troca de conhecimento e informações.
Ando meio sumido devido uma Grande aplicação que estou desenvolvendo em SQL.
Peço desculpas a todos.
Olha só.
No post, bastava você seguir as instruções do mesmo que tudo sairia certinho.
Se você mudou a instrução do botão de comando para: ThisWorkbook.Close SaveChanges:=True
este comando finaliza toda a apliacção e finaliza até o Excel.
Uma boa pratica e você buscar a colocar o seu form para iniciar juntamente com o Excel.
Agora, se voice quer mesmo, aprender VBA ou outra linguagem que eu conheça, basta deixar um post que vou estar sempre acompanhando e ensinando tudo o que sei, gosto muito de compartilhar aqui com todos, gosto do nosso Amigo Tomas, que nus deu este espaço para troca de conhecimento e informações.