ayuda para macro excel vba

[nauta85]

GRACIAS MONIMO POR TU COMENTARIO

NO HE PODIDO LOGRAR TODAVIA QUE EL TEXT BOX DE COMO RESULTADO UN VALOR NUMERICO Y NO TEXTO NO SE QUE ESTE MAL O POR QUE NO LO HAGA CREO QUE HACE FALTA ALGO MAS Y NO SE QUE ES

MIRA AQUI ALGO QUE HICE CON EL EJEMPLO QUE TU ME DISTE NO ME FUNCIONA, SI HACE LA MULTIPLIZACION Y TODO POR LOS VALORES LOS DA COMO TEXTO SI LO PUEDES CHECAR Y DECIRME QUE ESTA MAL.


rivate Sub CommandButton1_Click()
Selection.EntireRow.Insert
TextBox1 = Empty
TextBox2 = Empty
TextBox3 = Empty
TextBox1.SetFocus
End Sub

Private Sub TextBox1_Change()
Range("A7").Select
ActiveCell.FormulaR1C1 = TextBox1
End Sub

Private Sub TextBox2_Change()
Range("B7").Select
Cantidad = Val(TextBox1.Text)
PrecioU = Val(TextBox2.Text)
ActiveCell.FormulaR1C1 = TextBox2
Rem aqui pongo la multiplicacion haber que pasa
Importe = Cantidad * PrecioU
TextBox3.Text = Importe
End Sub

Private Sub TextBox3_Change()
Range("C7").Select
ActiveCell.FormulaR1C1 = TextBox3
End Sub


DE ANTEMANO GRACIAS