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......