Use ao cadastrar datas e valores as funções de conversão de dados do VBA
Private Sub BOTÃO_ENTRADA_Click()
TOTALREGISTRO = Worksheets("ENTRADAS").UsedRange.Rows.Count + 1
Worksheets("ENTRADAS").Select 'comando para que o program selecione a planilha na qual vai lançar os dados inseridos
Cells(TOTALREGISTRO, 1) = VBA.CDate(CAIXA_DATA.Text)
Cells(TOTALREGISTRO, 2) = CAIXA_MOVIMENTO
Cells(TOTALREGISTRO, 3) = VBA.CDbl(CAIXA_VALOR.Text)
Cells(TOTALREGISTRO, 4) = CAIXA_ESPECIFICAÇÃO
Cells(TOTALREGISTRO, 5) = CAIXA_ORIGEM....
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 02/02/2017 8:29 am