Página 1 de 1
setfocus com criterio [RESOLVIDO]
Enviado: Sáb Mar 21, 2020 9:02 am
por rachelgdias
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......
Re: setfocus com criterio
Enviado: Sáb Mar 21, 2020 1:16 pm
por webmaster
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
Re: setfocus com criterio
Enviado: Sáb Mar 21, 2020 1:38 pm
por rachelgdias
webmaster 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
Isso mesmo...... Ainda não testei. Mas é isso. Obs: na textbox=atendido será commandButton2
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...
Re: setfocus com criterio [RESOLVIDO]
Enviado: Seg Mar 23, 2020 8:29 am
por rachelgdias
rachelgdias escreveu: ↑Sáb Mar 21, 2020 1:38 pm
webmaster 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
Isso mesmo...... Ainda não testei. Mas é isso. Obs: na textbox=atendido será commandButton2
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...
Obrigada, testei e funcionou perfeitamente.
Re: setfocus com criterio [RESOLVIDO]
Enviado: Seg Mar 23, 2020 8:31 am
por rachelgdias
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......