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