Realice un Userform para que pase los datos a celdas de Excel, y en este userform en algunos TextBox utilice formulas manejando la funcion Change, el problema es que al colocar los datos en el userform todo lo hace bien y de hecho lo pasa a las celdas que corresponden pero detiene la macro al final, mandando error
"Se ha produciod el error 13 en tiempo de ejecucion: No coinciden los tipos y me ilumina en amarillo la primer linea de la siguiente macro:
Buenas tardes, tengo el siguiente problema:
Realice un Userform para que pase los datos a celdas de Excel, y en este userform en algunos TextBox utilice formulas manejando la funcion Change, el problema es que al colocar los datos en el userform todo lo hace bien y de hecho lo pasa a las celdas que corresponden pero detiene la macro al final, mandando error
"Se ha produciod el error 13 en tiempo de ejecucion: No coinciden los tipos y me ilumina en amarillo la primer linea de la siguiente macro:
Private Sub Gravamen_Change()
TextBox2.Text = (Format((Ingr.Text) * (Gravamen.Text) / 100, "#,##0.00"))
TextBox3.Text = (Format((Ingr.Text) + ((Ingr.Text) * (Gravamen.Text) / 100), "#,##0.00"))
TextBox4.Text = (Format((Ingr.Text) - Val(RetIVA.Text) - Val(RetISR.Text) + ((Ingr.Text) * (Gravamen.Text) / 100), "#,##0.00"))
End Sub
Espero me puedan ayudar, de antemano gracias por su atencion