Generar Inventarios

Celest3 · el 7 de diciembre

hola amigos, tengo este archivo que el gran maestro Macro Antonio realizo en cual genera listas de inventario, lo estoy utilizando y funciona de maravilla, mientras el archivo este abierto, es aqui el problema.

pues cuando cierro el archivo y vuelvo abrir para seguir realizando los inventarios diarios estos se generan iguales al 1er listado generado.

para que lo vena mejor generen lsitad e inventario con la cantidad a inventariar impriman o guardan en otro sitio y cerra archivo.

vuelvan a abrir vuelvan a generar la misma cantidad de listas y items a inventariar y veran que son iguales al anterior.

y me gustaria pues realizar aleatoriamente estos listados asi cierre el archivo y lo vuelva abrir.

por favor si alguien me puede ayudar.

Maestro Macro Antonio de seguro tu tienes algo pensado o como debo generar estas listas sin repetir.

Garcias

Celest3

stock III (1).xls

MANIELG · el 9 de diciembre

te he modificado el archivo no elimines las hojas creadas hasta el final

no se como subir el fichero, asi que te pongo la macro modificada

Private Sub OK_Click()

Application.ScreenUpdating = False

If IsNumeric(tAlm) = False Or IsNumeric(tPro) = False Then

MsgBox "Datos erróneos"

Exit Sub

End If

Alm = CLng(tAlm)

Pro = CLng(tPro)

If Alm * Pro > k.ListCount Then

MsgBox "No hay productos suficientes"

Exit Sub

End If

cantidad_hojas = ThisWorkbook.Sheets.Count

For A = cantidad_hojas + 1 To Alm + cantidad_hojas

Sheets.Add

ActiveSheet.Name = ActiveSheet.Name & " Almacenero " & A - (cantidad_hojas)

ActiveSheet.Cells.Clear

ActiveSheet.Columns(1).NumberFormat = "@"

Sheets("Stock por Almacen (Cantidades)").Rows(1).Copy ActiveSheet.Rows(1)

ActiveSheet.Range("D1") = "Inventario"

ActiveSheet.Range("G1") = "Almacenero " & A - (cantidad_hojas)

For x = 1 To Pro

Do

n = Int((k.ListCount * Rnd))

Loop Until k.Selected(n) = False

k.Selected(n) = False

ActiveSheet.Range("A" & x + 1).Value = CStr(k.List(n, 0))

ActiveSheet.Range("B" & x + 1).Value = k.List(n, 1)

ActiveSheet.Range("C" & x + 1).Value = k.List(n, 2)

Unload Me

End Sub

- - - - - Mensaje combinado - - - - -

cantidad_hojas = ThisWorkbook.Sheets.Count

la macro que tienes genera las hojas en funcion de: la cantidad de las mismas de los almaceneros y de la cantidad de productos a inventariar.

Por lo que si borras las hojas generadas siempre empezamos en la mism. Al modificar la macro contamos las hojas que tenemos y por lo tanto no nos reperiremos al generar unas nuevas y el programa sigue funcionando.

espero que la solucón sea de tu agrado

stock III (1).xls

Celest3 · el 9 de diciembre

Mi estimado Maniel G, mil gracias por tu pronta respuesta, baje el adjunto me dio error entonces pare la aplicación volvi a ejecutar y corrio la macro , pero me volvio a repetir los listados. estoy adjuntando una imagen y el archivo con los listados que he generado,

espero que me sigas ayudando

gracias,

Saludos

Celest3

stock IV.xls