Notifications

Clear all

Salvar um textbox formato "000"

Formulários

Post Recente por meujovem 7 anos atrás

10 Posts

4 Usuários

0 Reactions

2,928 Visualizações

RSS

meujovem

(@meujovem)

Posts: 47

Eminent Member

Topic starter

Prezados estou precisando de mais uma ajuda em VBA excel
Gostaria que as células Coluna "D" e "E" tivesse esse formato "00" e "000"
Já tentei de tudo mas não consigo...

Esse calendário peguei na internet também, mas já tentei formatar mas está complicado para mim.

Preciso que alguem me ajude, se possível.

Ficarei muito grato

Tenho o modelo abaixo mas não funcionou..
Gostaria que tanto na planilha quanto no formulário tivesse esse formato.
Quando digito 002, só aparece o 2.

'E2 = Valor do TextBox8 - não importa se digitei os zeros a esquerda
Range("E2").Value = TextBox8.Value
'Aqui formatamos a celula com os zeros a esquerda
Range("E2").NumberFormat = "000"
'Aqui transportamos o valor da celula para o Textbox1 formatando, senão ficará sem os Zeros
TextBox8.Value = Format(Range("E2"), "000")

Qualquer ajuda é bem vida
Segue o modelo anexo

Wilson (meujovem)

Postado : 14/08/2017 6:53 am

rjunior

(@rjunior)

Posts: 6

Active Member

Bom dia Wilson!

Na planilha, você pode ir em "Formatar célula", selecionar "Personalizado" e, em "Tipo", digitar 000. Assim, toda vez que digitar, por exemplo "3", aparecerá na célula "003".

Postado : 14/08/2017 7:28 am

meujovem

(@meujovem)

Posts: 47

Eminent Member

Topic starter

Bom dia Junio

Na planilha eu sei formatar, mas o problema é no textbox não aparece...

Gostaria que fosse na apresentação do formulário.
com o código VBA

Muito grato
Wilson

Postado : 14/08/2017 7:34 am

meujovem

(@meujovem)

Posts: 47

Eminent Member

Topic starter

Colegas bom dia...

Ainda continuo aguardando uma ajuda...

Muito grato
Wilson (meujovem)

Postado : 16/08/2017 5:40 am

Syrax

(@syrax)

Posts: 160

Estimable Member

meujovem,

Você precisa ser mais específico, a respeito do que você precisa

exemplo:
- qual campo que você atualiza no formulário que você precisa atualizar na planilha
- qual botão você aperta para atualizar no formulário

na sua planilha eu formatei as colunas D e E para texto e consegui salvar normalmente as informações na coluna D e E com "00" e "000"

de um exemplo detalhado do que está acontecendo, e do que deveria acontecer

Se essa resposta te ajudou e resolveu o seu problema, clique no "joinha" ao lado de citar, e não esqueça de colocar o tópico como resolvido, clicando no ✓

Postado : 16/08/2017 7:03 am

meujovem

(@meujovem)

Posts: 47

Eminent Member

Topic starter

Desculpe amigo.

Clique na data 16 de agosto, do calendário.
No campo do formulario insira em Num 1, 02 e em Num 2, 004.
Na planilha a formatação procede, mas no formulário os zeros a esquerda não funcionam.

Veja o desenho anexo.

Antecipadamente grato
Wilson (meujovem)

Postado : 16/08/2017 8:46 am

Fernando Fernandes

(@fernandofernandes)

Posts: 43750

Illustrious Member

uma possibilidade

Private Sub TextBox7_Change()
Me.TextBox7.Text = Format(Me.TextBox7.Text, "000")
End Sub


Private Sub TextBox8_Change()
Me.TextBox8.Text = Format(Me.TextBox8.Text, "000")
End Sub

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

Postado : 16/08/2017 9:16 am

meujovem

(@meujovem)

Posts: 47

Eminent Member

Topic starter

Caro Reinaldo...

Utilizei o código que voce sugeriu, mas apresenta o erro abaixo.

Mas muito grato pela sua contribuição.

Wilson...

Postado : 16/08/2017 9:39 am

Syrax

(@syrax)

Posts: 160

Estimable Member

meujovem,

Se você formatar as colunas D e E como "texto" e depois tentar salvar no calendário?

Se essa resposta te ajudou e resolveu o seu problema, clique no "joinha" ao lado de citar, e não esqueça de colocar o tópico como resolvido, clicando no ✓

Postado : 16/08/2017 12:13 pm