............ Foro Excel
Si no lo has hecho aún: REGISTRATE!!!

Control Stock por lotes (productos perecibles)

Ver el tema anterior Ver el tema siguiente Ir abajo

Control Stock por lotes (productos perecibles)

Mensaje por marista el Sáb Abr 18, 2015 3:22 pm

Buenas tardes compañeros


Esperando me puedan ayudar en este problema de Excel, lo que necesito es esto: Tengo el siguiente producto con sus respectivas fechas de vencimiento (lotes) en almacen


Descripción Und Cantidad     Cant         FV       Cant        FV        Cant       FV
 Jamon      Caj     30            10    20/05/2014   10   26/06/2014     10    01/07/2014


Como pueden ver tengo el artículo "jamon" 30 cajas pero con 3 fechas de vencimiento diferentes, si por ejemplo el día de hoy se consumieran 15 cajas deben quedar 15 cajas, pero con los lotes coprrectos(más reciente primero)


Descripción Und  Cant  Cant      FV        Cant       FV
    jamon     Caj   15     05   26/06/2014   10   01/07/2014


Espero que me puedan ayudar ... te lo agradecerá mucho

Les dejo el enlace del archivo



[Tienes que estar registrado y conectado para ver este vínculo]


[Tienes que estar registrado y conectado para ver este vínculo]

marista

Masculino Cantidad de envíos : 6
Edad : 38
Ciudad - Pais : Lima - Peru
Version de Excel : 2003
Fecha de inscripción : 03/07/2012

Volver arriba Ir abajo

Re: Control Stock por lotes (productos perecibles)

Mensaje por moises melgar el Dom Abr 19, 2015 5:10 pm

Este adfly es molestillo, sugiero usar One driver (skydriver) del outllok o Drive de Google

Realice una macro complemento el cual se ejecuta al terminar la macro "saldos"

Código:
Sub complemento()
Dim conteo, cant, diferencia, colum
      
  For Z = 4 To Hoja3.Range("B" & Rows.Count).End(xlUp).Row
      conteo = 0
      cant = Hoja3.Range("E" & Z).Value 'Hoja3.Range("E4").Value 'Resultado de la macro anterior
      fila = Z + 1 'fila en que se encuentra "codigo" en hoja 2
      
      
    For x = 16 To 6 Step -2 '
      
       If Hoja2.Cells(fila, x).Value = "" Then
       Else
       conteo = conteo + Hoja2.Cells(fila, x).Value
        
        If cant < conteo Then
        columna = x
        diferencia = Hoja2.Cells(fila, x).Value - conteo + cant
        Exit For
        End If
       End If
    Next x
        colum = 8
    For y = columna To 16 Step 2
        If y = columna Then
        Hoja3.Range("F" & Z).Value = diferencia
        Hoja3.Range("F" & Z).NumberFormat = "General"
        Hoja3.Range("G" & Z).Value = Hoja2.Cells(fila, y + 1).Value
        Else:
        Hoja3.Cells(Z, colum).Value = Hoja2.Cells(fila, y)
        Hoja3.Cells(Z, colum + 1).Value = Hoja2.Cells(fila, y + 1)
        colum = colum + 2
        End If
        
      Next y
  Next Z

Hoja2.Range("A:A").ClearContents
End Sub

y en la macro "saldos" antes de

Código:
MsgBox "Proceso Terminado", vbInformation, "Aviso..."
colocar:
Código:
Application.Run ("complemento")' <-----ejecuta la macro complemento
MsgBox "Proceso Terminado", vbInformation, "Aviso..."

Use 3 bucles para la macro complemento
un bucle principal que pasa de producto  en producto ejecutando otros 2 bucles secundarios
el primer secundario determina en que columna se encuentra el primer lote que no se uso por completo y la cantidad remanente de ese lote
el segundo bucle, al conocer en que columna comenzara a copiar y el valor del remanente del primer lote, copia los valores  sobrantes de cada lote por producto

moises melgar
Jr_Moderator

Masculino Cantidad de envíos : 512
Edad : 28
Ciudad - Pais : Coatzacoalcos - Mexico
Version de Excel : 2007 - 2010
Fecha de inscripción : 25/05/2010

Volver arriba Ir abajo

Re: Control Stock por lotes (productos perecibles)

Mensaje por marista el Dom Abr 26, 2015 6:19 pm

Hola..buen dia

Ahora lo reviso, gracias por el interes, y aun mas por el dato del google drive..

bendiciones

marista

Masculino Cantidad de envíos : 6
Edad : 38
Ciudad - Pais : Lima - Peru
Version de Excel : 2003
Fecha de inscripción : 03/07/2012

Volver arriba Ir abajo

Re: Control Stock por lotes (productos perecibles)

Mensaje por Contenido patrocinado Hoy a las 11:25 pm


Contenido patrocinado


Volver arriba Ir abajo

Ver el tema anterior Ver el tema siguiente Volver arriba


 
Permisos de este foro:
No puedes responder a temas en este foro.