Calcular 2 TextBox con formato numérico (miles y decimales) en VB Excel
Estoy usando un formulario en excel, en un textbox (Txt_Venta) digito 1200 y el textbox muestra 1,200.00, el cual tiene el siguiente formato:
Private Sub Txt_Venta_AfterUpdate()
Txt_Venta.Value = FormatNumber(Txt_Venta.Value, 2)
End Sub
Luego a ese numero le quiero restar el 18% con el siguiente código:
Private Sub Txt_Venta_Change()
Txt_BaseImp.Text = Format(Val(Txt_Venta.Text) / 1.18, "#,##0.00")
End Sub
Al ejecutar el formulario el Txt_BaseImp devuelve 0.85 en vez de 1,016.95 Esto se debe lógicamente a que al darle formato al Txt_Venta ya no reconoce el numero como tal y no hace bien el cálculo.
¿Alguien sabe como hacer el calculo correctamente manteniendo el formato de miles y 2 decimales en los textbox?
