Experimente assim:
Private Sub DATA_Exit(ByVal Cancel As MSForms.ReturnBoolean)
DATA = Format(DATA, "dd.mm.yyyy")
Cancel = False
End Sub
Private Sub NTESTE_Exit(ByVal Cancel As MSForms.ReturnBoolean)
NTESTE = Format(NTESTE, "000")
Cancel = False
End Sub
Private Sub ok_Click()
Sheets("Plan1").Select
Range("B3").Select
linha = 0
Selection.End(xlDown).Select
linha = ActiveCell.Row + 1
Cells(linha, 2).Select
Cells(linha, 2) = Val(NTESTE)
Cells(linha, 3) = DATA
Cells(linha, 5) = Val(NOTA)
Range("B3").Select
limpar
NTESTE.SetFocus
End Sub
Nota: as formatações das celulas na planilha devem seguir o mesmo criterio
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 02/11/2012 12:23 pm