Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
setfocus com criterio [RESOLVIDO]
-
- Colaborador
- Mensagens: 43
- Registrado em: Sex Jan 31, 2020 9:53 am
setfocus com criterio [RESOLVIDO]
Bom dia,
No userform1
tenho uma TEXTBOX1 que recebe a palavra Agendado e Atendido.
tenho tambem dois botoes, GRAVAR e ALTERAR.
bem: qdo a TEXBOX1 receber a palavra AGENDADO, gostaria que o Focu, fosse para o botão GRAVAR
e ado a TEXBOX1 receber a palavra ATENDIDO, gostaria que o Focu fosse para o botão ALTERAR.
Agradeço a vocês pela colaboração sempre......
No userform1
tenho uma TEXTBOX1 que recebe a palavra Agendado e Atendido.
tenho tambem dois botoes, GRAVAR e ALTERAR.
bem: qdo a TEXBOX1 receber a palavra AGENDADO, gostaria que o Focu, fosse para o botão GRAVAR
e ado a TEXBOX1 receber a palavra ATENDIDO, gostaria que o Focu fosse para o botão ALTERAR.
Agradeço a vocês pela colaboração sempre......
Editado pela última vez por rachelgdias em Seg Mar 23, 2020 8:35 am, em um total de 1 vez.
Re: setfocus com criterio
Assim?
Código: Selecionar todos
Private Sub TextBox1_Change()
If TextBox1.Text = "Agendado" Then CommandButton1.SetFocus
If TextBox1.Text = "Atendido" Then CommandButton1.SetFocus
End Sub
-
- Colaborador
- Mensagens: 43
- Registrado em: Sex Jan 31, 2020 9:53 am
Re: setfocus com criterio
Isso mesmo...... Ainda não testei. Mas é isso. Obs: na textbox=atendido será commandButton2webmaster escreveu: ↑Sáb Mar 21, 2020 1:16 pm Assim?
Código: Selecionar todos
Private Sub TextBox1_Change() If TextBox1.Text = "Agendado" Then CommandButton1.SetFocus If TextBox1.Text = "Atendido" Then CommandButton1.SetFocus End Sub
Private Sub TextBox1_Change()
If TextBox1.Text = "Agendado" Then CommandButton1.SetFocus
If TextBox1.Text = "Atendido" Then CommandButton2.SetFocus
End Sub
Vou testar na segunda, obrigada...
-
- Colaborador
- Mensagens: 43
- Registrado em: Sex Jan 31, 2020 9:53 am
Re: setfocus com criterio [RESOLVIDO]
Obrigada, testei e funcionou perfeitamente.rachelgdias escreveu: ↑Sáb Mar 21, 2020 1:38 pmIsso mesmo...... Ainda não testei. Mas é isso. Obs: na textbox=atendido será commandButton2webmaster escreveu: ↑Sáb Mar 21, 2020 1:16 pm Assim?
Código: Selecionar todos
Private Sub TextBox1_Change() If TextBox1.Text = "Agendado" Then CommandButton1.SetFocus If TextBox1.Text = "Atendido" Then CommandButton1.SetFocus End Sub
Private Sub TextBox1_Change()
If TextBox1.Text = "Agendado" Then CommandButton1.SetFocus
If TextBox1.Text = "Atendido" Then CommandButton2.SetFocus
End Sub
Vou testar na segunda, obrigada...
-
- Colaborador
- Mensagens: 43
- Registrado em: Sex Jan 31, 2020 9:53 am
Re: setfocus com criterio [RESOLVIDO]
rachelgdias escreveu: ↑Sáb Mar 21, 2020 9:02 am Bom dia,
No userform1
tenho uma TEXTBOX1 que recebe a palavra Agendado e Atendido.
tenho tambem dois botoes, GRAVAR e ALTERAR.
bem: qdo a TEXBOX1 receber a palavra AGENDADO, gostaria que o Focu, fosse para o botão GRAVAR
e ado a TEXBOX1 receber a palavra ATENDIDO, gostaria que o Focu fosse para o botão ALTERAR.
Agradeço a vocês pela colaboração sempre......