Ayuda, visual de excel formato de numeros.

[thenewaprentice]

Hola comunidad ba-kuna!

Pues ahora les vengo a pedir de su ayuda estoy haciendo un programa con los macros de excel, y registra las entradas de un producto, es decir para poder registrar la entrada de un producto necesita que capturemos: # de compra, Código, cantidad, precio, subtotal, iva, total, área de destino.

Y quiero que cuando yo ponga la cantidad y el precio me ponga por si solo la cantidad correspondiente en el área de subtotal, iva y total.

Ya lo hace pero no bien y tengo un problema en el formato, me cambia los puntos y decimales. es decir:
Cantidad: 1157 (ingresado por el usuario)
Precio: 1.58 (ingresado por el usuario)
Subtotal: 1.828,06 (o a veces me pone 1828,06 ó 1,82806) (Automático pone el valor)
iva: 292,49 (Automático pone el valor)
Total: 2.120,55 (Automático pone el valor)

Y yo requiero que salga

Cantidad: 1157 (Ingresado por el usuario)
Precio: 1.58 (Ingresado por el usuario)
Subtotal: 1,828.06 (Automático pone el valor)
iva: 292.49 (Automático pone el valor)
Total: 2,120.55 (Automático pone el valor)

El código para ese campo es este, no se si este mal o que opinión me den.

Private Sub Cantidad_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Cantidad <> "" And preciounit <> "" Then
Subtotal = Val(Cantidad) * Val(preciounit)
Subtotal = Format(Subtotal, "##,##0.000")
End If
End Sub
_____________________________________________________________________
Private Sub preciounit_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Cantidad <> "" And preciounit <> "" Then
Subtotal = Val(Cantidad) * Val(preciounit)
'Subtotal = Format(Subtotal, "##,##0.000")
End If
End Sub
__________________________________________________________________
Private Sub Subtotal_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Subtotal <> "" Then
iva = Val(Subtotal) * 0.16
iva = Format(iva, "##,##0.000")
End If
End Sub
__________________________________________________________________
Private Sub iva_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Subtotal <> "" And iva <> "" Then
Total = Val(Subtotal) + Val(iva)
Total = Format(Total, "##,##0.000")
End If
End Sub

Espero me puedan ayudar y de antemano se los agradezco buena tarde o noche o día cuando lo leeanunzadita:unzadita:

 

[Zephyros]

El cambio de formato o es cuestión de las opciones regionales o bien del formato como tal, me parece que en la macro puedes especificar cuál será el formato y/o aplicarlo anterior/posterior a la captura del valor.

 

[osmiguel04]

Ve a panel de control, hay ve a configuracion regional e idiomas, selecciona español mexico, mexico le das aceptar y se va a reiniciar despues en excel personalisa las celdas y ya esta

 

[thenewaprentice]

De antemano muchas gracias por sus respuestas.

Zephyros:
Es correcto se puede dar el formato en en la macro, pero como vez en el código según yo lo puse y no me da correctamente, no se si sepas la manera de hacerlo de antemano gracias.

Osmiguel04:
Ya habia hecho esas modificaciones y sigue igual no me lo cambia

 

[osmiguel04]

Que vercion de office es???????

 

[thenewaprentice]

La version es: office professional plus 2010

 

[thenewaprentice]

Alguien que me pueda ayudar???

 

[thenewaprentice]

nadie que me pueda ayudar??? porfas ayudenme

 

[thenewaprentice]

nadie que me pueda ayudar??? ;(;(;(

 

[thenewaprentice]

De plano nadie? ayuda por favor aun no encuentro como!

 

[iconmaster2008]

Lo probe dentro de un form en excel y me funciona

SUBTOTAL = Format(SUBTOTAL, "#,###.00")

es de la misma forma que en visual basic

 

[Btux]

oye ya pudiste con tu problema, porque una posible solucion es en que idioma estes manejando tu excel ya que va a variar dependiendo la zona en la que este configurado