Experimente no salvamento dos Txt's numericos algo similar à

ActiveCell.Value = cdbl(TextBox4)

https://msdn.microsoft.com/pt-br/library/s3dfa3sx%28v=vs.110%29.aspx?f=255&MSPPError=-2147217396
https://social.msdn.microsoft.com/Forums/pt-BR/695f4f0e-3b5c-4ec8-99cc-93f39cb1b26c/urgente-salvar-valor-de-textbox-como-nmero-na-planilha?forum=vbapt
https://www.youtube.com/results?search_query=vba+listview

https://msdn.microsoft.com/pt-br/library/s3dfa3sx%28v=vs.110%29.aspx?f=255&MSPPError=-2147217396
https://social.msdn.microsoft.com/Forums/pt-BR/695f4f0e-3b5c-4ec8-99cc-93f39cb1b26c/urgente-salvar-valor-de-textbox-como-nmero-na-planilha?forum=vbapt
https://www.youtube.com/results?search_query=vba+listview

amigo nao consegui , de jeito nenhum fazer armazenar como numero vc pode me ajudar???

Fagner, não sei o que não conseguiu, mas se utilizou corretamente a dica do Reinaldo, não é para ter problemas:

Troque :

ActiveCell.Value = TextBox4

por

ActiveCell.Value = CDbl(TextBox4)

Faça isto em todas as instruções que irão ter valores numericos.

[]s

Mauro Coutinho

Amigo fiz igual vc me disse mais agr so da erro e nao salva... vc pode baixar a planilha e so dar uma olhada pra mim aonde errei o meu codigo??

Private Sub CommandButtonSALVAR_Click()
Sheets("DADOS2").Select
'1

Range("F1").Select
Range("F1048576").End(xlUp).Offset(1, 0).Select
ActiveCell.Value = ComboBox2.Value

'2
Range("B1").Select
Range("B1048576").End(xlUp).Offset(1, 0).Select
ActiveCell.Value = ComboBox4.Value

'3
Range("C1").Select
Range("C1048576").End(xlUp).Offset(1, 0).Select
ActiveCell.Value = ComboBox5

'4
Range("D1").Select
Range("D1048576").End(xlUp).Offset(1, 0).Select
ActiveCell.Value = CDbl(TextBox1.Text)

'5
Range("E1").Select
Range("E1048576").End(xlUp).Offset(1, 0).Select
ActiveCell.Value = CDbl(TextBox2.Text)


'6
Range("a1").Select
Range("a1048576").End(xlUp).Offset(1, 0).Select
ActiveCell.Value = CDbl(TextBox3.Text)

'7
Range("G1").Select
Range("G1048576").End(xlUp).Offset(1, 0).Select
ActiveCell.Value = CDbl(ComboBox6.Text)

'8
Range("H1").Select
Range("H1048576").End(xlUp).Offset(1, 0).Select
ActiveCell.Value = CDbl(TextBox4.Text)

Range("I1").Select
Range("I1048576").End(xlUp).Offset(1, 0).Select
ActiveCell.Value = CDbl(TextBox5.Text)


Range("J1").Select
Range("J1048576").End(xlUp).Offset(1, 0).Select
ActiveCell.Value = CDbl(TextBox6.Text)

Range("K1").Select
Range("K1048576").End(xlUp).Offset(1, 0).Select
ActiveCell.Value = CDbl(TextBox7.Text)
 

Range("L1").Select
Range("L1048576").End(xlUp).Offset(1, 0).Select

ActiveCell.Value = TextBoxCALCULO


TextBoxCALCULO = TextBox4 * TextBox5 * TextBox6 * 7854 / 1000 / 100

 TextBoxCALCULO = Format(TextBoxCALCULO, "###0.000")






Range("M1").Select
Range("M1048576").End(xlUp).Offset(1, 0).Select

ActiveCell.Value = TextBoxCALCULO2

 
 TextBoxCALCULO2 = TextBox4 * TextBox5 * TextBox7 * 7854 / 1000 / 100
TextBoxCALCULO2 = Format(TextBoxCALCULO2, "###0.000")
 
 
 
 TextBox3 = ""
 TextBox4 = ""
TextBox5 = ""
TextBox6 = ""
TextBox7 = ""
TextBoxCALCULO2 = ""
TextBoxCALCULO = ""


TextBox3.SetFocus






End Sub

Fagner, peço a gentileza de não se manifestar com letras maiúsculas, isto da a impressão que está gritando.

Quanto ao seu modelo eu já havia baixado e fiz o teste conforme foi indicado e não teve erro, mas você tem de prestar atenção e como eu citei, somente implementar os textbox que recebem numeros, por exemplo :
Em seu formulário, o TextBox1 recebe o valor DATA, então se usar :
desta forma - ActiveCell.Value = CDbl(TextBox1.Text) terá erro devido ao tipo ser uma data e não número inteiro.
Verifique as alterações que fez, ese o erro persistir, informe qual a mensagem de erro está dando.

[]s

Mauro Coutinho

muito obrigado amigo conseguir resolver o meu problema e agr sim esta indo como numero para a planilha.

FAGNERIBAS

amigo consegui resolver o problema.. muito obg pela atençao