Hola pido de su ayuda ya que me estoy atorando con la separación de miles y decimales en una macro.

estoy haciendo un programa para administrar una carnicería, el cual el ejemplo que traigo para que me ayuden es el siguiente.

"quiero aclarar que no tengo conocimientos exagerados en programación de VBA, y siempre combinó formulación de Excel y Macros."

 

mi petición de ayuda es la siguiente:

tengo un listado de productos y un formulario para poder actualizar los precios de los producto.

 

cuando ingreso algún dato numérico con algún punto decimal y doy click en el botón calcular me devuelve datos asi:

dato correcto: $38.20  y el dato que me devuelve es el siguiente $382.00

 

adjunto mi ejemplo ya que no soy muy bueno explicando y no quiero revolver 

 

gracias anticipadas.

 

 

 

 

 

ejemplo1.xlsm

Un tetxbox, como su nombre indica, es una caja de texto, por lo tanto debe convertirse a número. si así lo requiere el receptor de dicho texto:

    If Not b Is Nothing Then
        h1.Cells(b.Row, "B") = CDbl(PRODUCTO)
        h1.Cells(b.Row, "C") = CDbl(COSTOKG)
        h1.Cells(b.Row, "D") = CDbl(PORCENTAJE)
        h1.Cells(b.Row, "E") = CDbl(UTILIDAD)
        h1.Cells(b.Row, "F") = CDbl(GASTOS)
        h1.Cells(b.Row, "G") = CDbl(PRECIOP)
    End If

El formato numérico concreto debes dárselo en la hoja.