Cita:
Iniciado por Monimo 
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
hola ya lo intente de las dos formas y otras posibles pero nada me sigue con ese error, sabes ademas una cosa si me aparece el signo pero es de euro y yo quiero este signo mira "$" este es el que quiero que aparezca y que salga del lado izquiero por ejemplo.
$ 1254.156 asi quiero que salgo y ademas que deje de salir la coma
siempre sale asi mira
1,1254 quiero quitar ese coma en y que se ponga el punto.
gracias por toda tus atenciones y paciencia saludos