Salvar um textbox formato "000"

Text Box, Form's, rotinas, etc.
Regras do fórum
Sua dúvida foi respondida? Marque como RESOLVIDO em seus tópicos, usando o botão com marca verde. Imagem

Salvar um textbox formato "000"

Mensagempor meujovem » Seg Ago 14, 2017 9:53 am

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)
Você não está autorizado a ver ou baixar esse anexo.
meujovem
Membro
Membro
 
Mensagens: 47
Registrado em: Qui Jul 07, 2016 10:02 pm
Has thanked: 15 times
Have thanks: 0 time

{ SO_SELECT }

Re: Salvar um textbox formato "000"

Mensagempor rjunior » Seg Ago 14, 2017 10:28 am

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".
rjunior
Membro
Membro
 
Mensagens: 5
Registrado em: Qua Abr 12, 2017 9:59 am
Has thanked: 4 times
Have thanks: 0 time

Re: Salvar um textbox formato "000"

Mensagempor meujovem » Seg Ago 14, 2017 10:34 am

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
meujovem
Membro
Membro
 
Mensagens: 47
Registrado em: Qui Jul 07, 2016 10:02 pm
Has thanked: 15 times
Have thanks: 0 time

Re: Salvar um textbox formato "000"

Mensagempor meujovem » Qua Ago 16, 2017 8:40 am

Colegas bom dia...

Ainda continuo aguardando uma ajuda...

Muito grato
Wilson (meujovem)
meujovem
Membro
Membro
 
Mensagens: 47
Registrado em: Qui Jul 07, 2016 10:02 pm
Has thanked: 15 times
Have thanks: 0 time

Re: Salvar um textbox formato "000"

Mensagempor Syrax » Qua Ago 16, 2017 10:03 am

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
Avatar do usuário
Syrax
Membro
Membro
 
Mensagens: 157
Registrado em: Sáb Fev 04, 2017 6:34 pm
Has thanked: 4 times
Have thanks: 101 times

Re: Salvar um textbox formato "000"

Mensagempor meujovem » Qua Ago 16, 2017 11:46 am

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)
Você não está autorizado a ver ou baixar esse anexo.
meujovem
Membro
Membro
 
Mensagens: 47
Registrado em: Qui Jul 07, 2016 10:02 pm
Has thanked: 15 times
Have thanks: 0 time

Re: Salvar um textbox formato "000"

Mensagempor Reinaldo » Qua Ago 16, 2017 12:16 pm

uma possibilidade
Código: Selecionar todos
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
Reinaldo
Gostou da resposta? Clique no ícone "Positivo" da mensagem!(ao lado de citar)
Avatar do usuário
Reinaldo
Expert
Expert
 
Mensagens: 3963
Registrado em: Sáb Dez 19, 2009 9:59 am
Localização: Garça - SP / SCS - SP
Has thanked: 167 times
Have thanks: 1783 times

Re: Salvar um textbox formato "000"

Mensagempor meujovem » Qua Ago 16, 2017 12:39 pm

Caro Reinaldo...

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

Mas muito grato pela sua contribuição.

Wilson...
Você não está autorizado a ver ou baixar esse anexo.
meujovem
Membro
Membro
 
Mensagens: 47
Registrado em: Qui Jul 07, 2016 10:02 pm
Has thanked: 15 times
Have thanks: 0 time

Re: Salvar um textbox formato "000"

Mensagempor Syrax » Qua Ago 16, 2017 3:13 pm

meujovem,

Se você formatar as colunas D e E como "texto" e depois tentar salvar no calendário?
calendar.jpg
Você não está autorizado a ver ou baixar esse anexo.
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
Avatar do usuário
Syrax
Membro
Membro
 
Mensagens: 157
Registrado em: Sáb Fev 04, 2017 6:34 pm
Has thanked: 4 times
Have thanks: 101 times

Re: Salvar um textbox formato "000"

Mensagempor meujovem » Qua Ago 16, 2017 4:22 pm

Caro Syrax

Nao adianta formatar na planilha
Não funciona no calendário..
Tentei novamente agora

Wilson
meujovem
Membro
Membro
 
Mensagens: 47
Registrado em: Qui Jul 07, 2016 10:02 pm
Has thanked: 15 times
Have thanks: 0 time


Voltar para Formulários

Quem está online

Usuários navegando neste fórum: Nenhum usuário registrado e 1 visitante