Cita:
Iniciado por nauta85 
Ups perdon es que ya me estoy frustando jejej pero bueno mira de todas maneras ya lo puse pero no me quedo.
Private Sub TextBox3_Change()
Range("C7").Select
importe = FormatCurrency(TextBox3.Text, 2) esto lo marca como error
ActiveCell.FormulaR1C1 = importe
End Sub
por que sera
A ver mejor asi:
Private Sub TextBox3_Change()
Range("C7").Select
ActiveCell.FormulaR1C1 = FormatCurrency(TextBox3.Text, 2)
End Sub
Tu pruebale jaja tiene que quedar.... si no así tmb=
Private Sub TextBox3_Change()
Range("C7").Select
importe=textbox3.text
ActiveCell.FormulaR1C1 = FormatCurrency(importe, 2)
End Sub