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

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)

Next

ActiveSheet.Cells.EntireColumn.AutoFit

Next

Sheets("Stock por Almacen (Cantidades)").Select

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

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

Amigos, alguna alternativa a este archivo.

todo concejo es bueno. espero me puedan ayudar.:chuncky:

Saludos

Celest3