Fóruns
Microsoft Excel - 2...
Formulários
Limpar textbox
 
Notifications
Clear all

Limpar textbox

 
Formulários
7 Posts
2 Usuários
0 Reactions
3,348 Visualizações
RSS
 Charlie-81
(@charlie-81)
Posts: 290
Reputable Member
Topic starter
 

Olá pessoal, to aqui novamente. Bom, pesquisei muito na net antes de vir aqui. Utilizei várias dicas e nenhuma deu certo.

Bom, tenho um userform para inserir alguns dados e depois serem salvos em determinada planilha. Até aí tudo bem, acontece que, neste form eu inseri algumas textbox (normal, já que devo informar os dados). Pois bem, nestes textbox eu coloquei uma mensagem para orientar no que deve ser feito. O que quero é que após abrir o form e clicar sobre a textbox, o que eu escrevi seja limpo.

Então, é isso. Caso tenha ficado confuso, na imagem em anexo fica fácil identificar o que quero.

 
Postado : 14/09/2012 12:18 pm
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Vc deve inclui um evento (enter talvez) e "limpar" o valor do seu txt. Porem creio ser melhor utilizar apropriedade : ControlTipText

 
Postado : 14/09/2012 1:37 pm
 Charlie-81
(@charlie-81)
Posts: 290
Reputable Member
Topic starter
 

em pensei em utilizar o ControlTipText, acontece que muitas vezes passa despercebido. Então, como seria esse evento? Eu não tenho idéia.

 
Postado : 14/09/2012 2:54 pm
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa noite!!

Não sei se entendi mas, veja se te ajuda.

Private Sub TextBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
TextBox1.Value = ""
End Sub
 
Postado : 14/09/2012 3:50 pm
 Charlie-81
(@charlie-81)
Posts: 290
Reputable Member
Topic starter
 

opa... verei agora. Logo volto para dizer se funfou.

 
Postado : 14/09/2012 4:02 pm
 Charlie-81
(@charlie-81)
Posts: 290
Reputable Member
Topic starter
 

alevba??? funfou belezinha cara. Uma questão? Tem como limpar textbox ao selecioná-lo, ao invés de ter que dar duplo clique?
De qualquer forma vou dar o tópico como finalizado e agradecer pela resposta.

 
Postado : 14/09/2012 4:11 pm
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa noite!!

Não se esqueça da mãozinha!!!

Private Sub TextBox1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
TextBox1.Value = ""
End Sub

Att

 
Postado : 14/09/2012 4:31 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico