Macro para actualizar existencias de productos
Tengo este codigo
'Actualización de las existencias
For Fila = 3 To 150
If Hoja2.Cells(Fila, 1) = Hoja12.Cells(Final, 1) Then
Existencia = Hoja2.Cells(Fila, 3)
TotalExistencia = Val(Me.cantidad.Text) + Existencia
Hoja2.Cells(Fila, 3) = TotalExistencia
Exit For
End If
Next
En userform frm_Entradas ingreso las compras que se guardan en la hoja Entradas(hoja12)
Los productos estan en la hoja Productos(hoja2)
Al ingresar un producto en Entradas quiero que esa cantidad la sume a la cantidad que ya tiene en la hoja Productos.
La hoja Productos esta en formato tabla.
La idea es que cada vez que compre las existencias se actualicen.
1 respuesta
si, pero no me suma nada
sin tengo en existencia 10 manzanas
y compro otras 10
no me suma esas 10
siempre me siguen apareciendo las mismas 10 en existencias.
¿Qué tienes en el textbox cantidad?
¿Tienes formato en el textbox cantidad?
Cambia esta línea:
TotalExistencia = Val(Me.cantidad.Text) + Existencia
Por estas:
If cantidad.Value <> "" And cantidad.Value > 0 And IsNumeric(cantidad) Then TotalExistencia = CDbl(cantidad.Value) + Existencia End If
Prueba y me comentas
