Notifications

Clear all

Preencher textbox ao apertar enter

2024 - VBA & Macros

Post Recente por Fernando Fernandes 8 anos atrás

8 Posts

3 Usuários

0 Reactions

1,969 Visualizações

RSS

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

(@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)

Posts: 453

Honorable Member

Segue arquivo...

Postado : 13/09/2016 4:47 pm

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)

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