Gravar na planilha ...
 
Notifications
Clear all

Gravar na planilha zeros antes de números

4 Posts
2 Usuários
0 Reactions
1,206 Visualizações
(@reinaldo_silva)
Posts: 38
Eminent Member
Topic starter
 

olá caros, preciso de um código para gravar o registro em uma planilha, estou usando um userform com um txtbox para criar as matriculas porém estas matriculas tem tem zeros na frente, como de proceder? Os registros sempre são incluidos na última linha em branco...

Atenciosamente

 
Postado : 05/11/2012 8:41 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa noite!!

Poste seu arquivo modelo compactado, para que possamos ajuda-lo.

Att

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

 
Postado : 06/11/2012 4:25 pm
(@reinaldo_silva)
Posts: 38
Eminent Member
Topic starter
 

Boa noite!!

Poste seu arquivo modelo compactado, para que possamos ajuda-lo.

Att

Caro Alexandre, postei o arquivo, se puder me ajudar...gostaria também de ajuda no controle MultiPage, eu consigo mudar de aba, porém não consigo selecionar o próximo txtbox rsrs...outra coisa gostaria também de poder usar uma senha para acessar uma guia dentro do MultiPage...tenho 3 abas e gostaria de colocar senha em uma delas...

Atenciosamente

 
Postado : 07/11/2012 5:51 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Com relação a sua primeira duvida:

...matriculas tem tem zeros na frente.....

Para "salvar" nessa situação voce pode:
Se for apenas para visualização na planilha , aplicar formato personalizado 0000000000 (na planilha)
e no Textbox no evento after update (por exemplo)

Private Sub TextMatricula_AfterUpdate()
TextMatricula.Text = Format(TextMatricula.Text, "0000000000")
End Sub

Assim o valor interno "gravado" será sempre o numero inteiro (sem os zeros) porem a aparencia será com os Zeros.

Porem se desejar "gravar" o valor com os zeros, voce deve:
Alterar a formatação da Coluna Matricula (Coluna D) de Número para TEXTO . e no codigo de salvar alterar a linha:

 ....    
           .Cells(indice, colMatricula).Value = Val(Me.TextMatricula.Text)
...

Para:

...
        .Cells(indice, colMatricula).Value = Format(Me.TextMatricula.Text, "0000000000")
...

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

 
Postado : 07/11/2012 9:46 am