Cita:
Iniciado por Monimo 
Private Sub TextBox3_Change()
Range("C7").Select
importe=cdbl(textbox3.text)
ActiveCell.FormulaR1C1 = FormatCurrency(importe, 2)
End Sub
faltaba convertirlo a numero y asegurate de que textbox3.text no este vacio asi:
msgbox(textbox3.text) a ver q te enseña
hola buenos dias como estas ya intente lo que me pusiste muestra un mensaje, con el contenido del text box3 pero aun asi sale el error.
Private Sub TextBox2_Change()
Range("B7").Select
cantidad = Val(TextBox1.Text)
PrecioU = Val(TextBox2.Text)
ActiveCell.FormulaR1C1 = TextBox2.Text
Rem aqui pongo la multiplicacion haber que pasa
importe = cantidad * PrecioU
TextBox3.Text = Val(importe) mira aqui hice esto, con esto resolvi que ya no me aparezca la coma, ahora si ya me aparece el punto
End Sub
Private Sub TextBox3_Change()
Range("C7").Select
ActiveCell.FormulaR1C1 = TextBox3.Text
End Sub
pero sigo con el problema del signo, se me presento otro ahora que ya puede quitar la coma estaba facil, es que no me aparecen los decimales que quiero por ejemplo.
pongo 1.15 x 1.15 y da como re sultado 1 nada mas no pone los decimales por lo menos que ponga dos pero no queda