Fóruns
Microsoft Excel - 2...
Formulários
Manter texto seleci...
 
Notifications
Clear all

Manter texto selecionado em TXTbox

 
Formulários
Post Recente por wfranca 11 anos atrás
6 Posts
2 Usuários
0 Reactions
1,465 Visualizações
RSS
 wfranca
(@wfranca)
Posts: 297
Honorable Member
Topic starter
 

Boa tarde

Utilizo o seguinte código abaixo para preencher meus campos de texbox, ao inserir na minha planilha as informações gostaria que ao retornar, ao invés de usar o setfocus gostaria que o meu textcodigofornecedor ficasse selecionado pronto para uma nova digitação.

Private Sub btninserir_Click()
Dim ultimaLinha As Object

Set ultimaLinha = Plan1.Range("A300").End(xlUp)

ultimaLinha.Offset(1, 0).Value = txtNomeEmpresa.Text
ultimaLinha.Offset(1, 1).Value = txtNomeContato.Text
ultimaLinha.Offset(1, 2).Value = txtCargoContato.Text
ultimaLinha.Offset(1, 3).Value = txtEndereco.Text
ultimaLinha.Offset(1, 4).Value = txtCidade.Text
ultimaLinha.Offset(1, 5).Value = txtRegiao.Text
ultimaLinha.Offset(1, 7).Value = txtCEP.Text
ultimaLinha.Offset(1, 8).Value = txtPais.Text
ultimaLinha.Offset(1, 9).Value = txtTelefone.Text
ultimaLinha.Offset(1, 10).Value = txtFax.Text
ultimaLinha.Offset(1, 11).Value = txtHomePage.Text

MsgBox "Item inserido com sucesso..."

txtNomeEmpresa.Text = ""
txtNomeContato.Text = ""
txtCargoContato.Text = ""
txtEndereco.Text = ""
txtCidade.Text = ""
txtRegiao.Text = ""
txtCEP.Text = ""
txtPais.Text = ""
txtTelefone.Text = ""
txtFax.Text = ""
txtHomePage = ""

txtCodigoFornecedor.SetFocus

End Sub

 
Postado : 16/09/2013 10:41 am
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!

Então comente a código abaixo assim, os dados não serão limpados!

'txtNomeEmpresa.Text = ""
'txtNomeContato.Text = ""
'txtCargoContato.Text = ""
'txtEndereco.Text = ""
'txtCidade.Text = ""
'txtRegiao.Text = ""
'txtCEP.Text = ""
'txtPais.Text = ""
'txtTelefone.Text = ""
'txtFax.Text = ""
'txtHomePage = ""

, ou comente somente o que você quer, que não seja limpado!

Att

 
Postado : 16/09/2013 11:50 am
 wfranca
(@wfranca)
Posts: 297
Honorable Member
Topic starter
 

Então, eu utilizo o código assim mesmo para limpar minhas textbox, mas preciso que mantenha o texto do código selecionado

 
Postado : 16/09/2013 11:53 am
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!

E o que acontece se você deixar de limpar a TextBox que precisa ficar com a informação retida?

Ou então me.txtCodigoFornecedor.SetFocus

Att

 
Postado : 16/09/2013 2:13 pm
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Se entendi corretamente, ao clicar no btninserir, são lançadas os dados que estão nos textboxs e depois os mesmos são zerados, e o único que não aparece nesta rotina que provavelmente não vai para a planilha pelo menos através destas ações e tambem não é zerado, é o Código que se encontra no Textbox "txtCodigoFornecedor", e apos zerar os outros textbox você quer que o Foco vá para o controle "txtCodigoFornecedor" e o que estiver nele já fique Selecionado.

Se for isto, você pode utilizar Método SetFocus ou ajustar a Ordem de Tabulação, mas neste caso eu utilizaria o SetFocus mesmo, mas em conjunto com as propriedades "SelStart e SelLength", ou seja, se for isto mesmo troque a linha do final da rotina do botão btninserir :

Troque esta :
txtCodigoFornecedor.SetFocus

por esta:

With txtCodigoFornecedor
    .SetFocus
    .SelStart = 0
    .SelLength = Len(txtCodigoFornecedor.Text)
End With

Faça os testes e veja se é isto.

[]s

 
Postado : 16/09/2013 5:17 pm
 wfranca
(@wfranca)
Posts: 297
Honorable Member
Topic starter
 

Perfeito Mauro, justamente o que eu precisava.

 
Postado : 17/09/2013 6:32 am
Forum Jump:
  Tópico Anterior
Próximo Tópico