Form Com Tomada de Decisão - Sim/Não

[kedim43]

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.

[Simoa]

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.

E aí Kedin! Rapaz é muita informação e a cada dia fico mais interessado nisso, pois sou um leigo no assunto. rs

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]

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.