Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
TexBox com 5 digito...
 
Notifications
Clear all

TexBox com 5 digitos (zero à esquerda)

 
2024 - VBA & Macros
Post Recente por arthurvvm 10 anos atrás
3 Posts
2 Usuários
0 Reactions
835 Visualizações
RSS
 arthurvvm
(@arthurvvm)
Posts: 16
Active Member
Topic starter
 

Pessoal, boa tarde!

Tenho um textbox que se refere ao código do registro, ele está com uma métrica de buscar o último registro da coluna e somar +1, porém se o último registro da coluna for 5 o textbox me mostra o número 6, e gostaria que ele mostrasse 00006 (cinco dígitos com zeros à esquerda).

Como faço isso? Grato...

Obs.: na planilha a coluna já está formatada em Personalizado com 00000 (cinco zeros).

 
Postado : 20/03/2015 11:44 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!

Tente..

Private Sub TextBox1_Change()
Me.TextBox1.Text = Format(Me.TextBox1.Text, "00000")
End Sub

Não testado!!

Att

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

 
Postado : 20/03/2015 12:55 pm
 arthurvvm
(@arthurvvm)
Posts: 16
Active Member
Topic starter
 

Deu certo!

Muito obrigado...

 
Postado : 24/03/2015 11:42 am
Forum Jump:
  Tópico Anterior
Próximo Tópico