Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Preencher textbox a...
 
Notifications
Clear all

Preencher textbox ao apertar enter

 
2024 - VBA & Macros
8 Posts
3 Usuários
0 Reactions
1,950 Visualizações
RSS
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Boa tarde colegas.

Preciso que no formulário em anexo quando eu não digitar nenhum outro valor as textbox sejam preenchidas com "0,00" quando for apertando a tecla enter.
E quando apertar o botão voltar, apagar tudo.

Obrigado

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 13/09/2016 10:55 am
 MPrudencio
(@mprudencio)
Posts: 2749
Famed Member
 

Tentou no evento inicializale do formulario carregar as textbox com o valor 0

E uma ideia

Marcelo Prudencio
Microsoft Excel Brasil no Facebook

"Começar já é a metade do caminho."
Autor Desconhecido

Simplifica que simples fica.
Nicole Tomazella.

"O Simples é Sempre Melhor Que o Complicado"
Jorge Paulo Lemann.

 
Postado : 13/09/2016 11:24 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Não congui. Mais alguma dica.

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 13/09/2016 1:21 pm
 MPrudencio
(@mprudencio)
Posts: 2749
Famed Member
 

Para cada text box que vc queira o valor 0 utilize esse codigo

textbox1.value = 0,00

Marcelo Prudencio
Microsoft Excel Brasil no Facebook

"Começar já é a metade do caminho."
Autor Desconhecido

Simplifica que simples fica.
Nicole Tomazella.

"O Simples é Sempre Melhor Que o Complicado"
Jorge Paulo Lemann.

 
Postado : 13/09/2016 3:23 pm
fcarlosc
 fcarlosc
(@fcarlosc)
Posts: 453
Honorable Member
 

Segue arquivo...

 
Postado : 13/09/2016 4:47 pm
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Bom dia colegas.

A dica do colega "fcarlosc" não funcionou como esperado.

A dica do colega MPrudencio para por código textbox1 = "0,00" funcionou, mas o esperado é que o campo só seja preenchido quando o cursor deixar o campo e for pro outro, não quando o cursor chegar no campo.

Grato

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 14/09/2016 5:18 am
fcarlosc
 fcarlosc
(@fcarlosc)
Posts: 453
Honorable Member
 

Tenta assim...

Private Sub Valor_Exit(ByVal Cancel As MSForms.ReturnBoolean)

If valor.Value <> "" Then
Exit Sub

Else

    Me.valor.Text = "0,00"
    
End If

End Sub
 
Postado : 14/09/2016 11:07 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Ufá. ficou perfeito, era isso mesmo.

Obrigado.

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 14/09/2016 12:25 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico