Inventario versátil

[pedrot]

Buenos días, tarde, noche

Le presento una página para inventario (pero es muy versátil si se sabe modificar). La hice para la empresa donde trabajo (construcción de edificaciones metálicas), por eso su configuración.

En 'Inventario' tenemos el stock dela empresa y los stocks de cada obra. También se presentan la cantidad y los kg para cada tipo de material. Esto significa que se puede llevar una empresa con uno o con varios almacenes en distintos sitios. A lo mejor en lugar de kg se coloca el precio de la mercancía para cada región donde este cada almacen. Se modifica la pagina de ‘Entrada’ para cada situación. (¡¡Recuerde que la macro hay búsqueda por letras!! Cuidado al eliminar o insertar columnas) Las columnas A a D y la L están escondidas. El boton Guardar registra el histórico y actualiza el almacen.

Se puede programar para que la orden o factura sea numerada y continua . Puede colocar el logotipo de su empresa.

Si en lugar de mercancías coloca el nombre de alumnos(filas) y materias(columnas) ¿Qué tendría?

La prmera pagina está protegida (sin código) para no borrar las formulas. Macro sin protección para su modificación y mejora.

Pruébenlo y suerte.

Espero sus comentarios y sus mejoras.

Pedrot_Inventario_1.rar

[Antoni]

Pedrot:

.............La hice para la empresa donde trabajo............

Solo matizar que, todo aquello que haces en la empresa donde trabajas pertenece a la empresa donde trabajas ya que para eso te paga y no deberías publicarlo tan alegremente, salvo que dispongas de permiso para ello.

Saludos

[pedrot]

Saludos y gracias.

La planilla la elavoré por mi cuenta y para ayudar a un compañero de trabajo que llevaba esos datos a tracción de sangre.

No tendré ningún inconveniente con ello.

Gracias por la preocupación

Solo espero respuestas de su uso y mejoras.

Por ejemplo:

Tengo tres grupos de código

'-------Incerta los espacios

- en 'Hisoria'

'-------Regresa a entrada y copia datos

- en 'Entrada'

'-------pega datos en histórico

- regreso a'Hisoria'

que creo se puede reducir a y no viajar a 'Historia' luego a 'Entrada' y y regreso a 'Historia'. O sea depurando el código.

Saludos

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

Saludos a todos

Otro ejemplo de ayuda es que La matriz

Dim matrizStock(100) As Integer

no la pude hacer variable

Leí que con Dim matrizStock() As Integer (parentesis vacio) - pero da error: fuera de rango.

Coloque la declaracion asi:

NItems = Range("filas").Value

Dim matrizStock(NItems*2) As Integer - error: se espera una constante

¿Alguien puede ayudar?

Saludos

[digitalboy]

Solo matizar que, todo aquello que haces en la empresa donde trabajas pertenece a la empresa donde trabajas ya que para eso te paga y no deberías publicarlo tan alegremente, salvo que dispongas de permiso para ello.

Hace no mucho... yo tuve un problema por esta situacion con mi ultimo jefe! El me dijo que no podia distribuir las macros creadas.

"No pienso distribuirlas! pero... si rediseñarlas desde cero y ademas nunca firme ningun documento de confidencialidad o donde se estipule que todo lo desarrollado pasa a formar parte de la empresa!" -le conteste, la verdad ya habia roses entre nosotros.

Personalmente pienso que es algo ventajoso por parte de las empresas quererse adueñar en estos aspectos de lo que uno crea para ellos. En lo que si estoy de acuerdo es en no distribuir los datos de la empresa, ya que estos puede ser sensibles y te puedes meter en problemas como el caso de las instituciones bancarias. Una vez un compañero me mando un archivo de ejemplo para que le ayudara con una macro (el trabajaba en un banco), total que se dieron cuenta de lo que envio y casi lo despiden! ahi si de plano hay que andarse con cuidado! Por eso mejor nada que ver con el sector bancario y asegurador! jajaja!

Saludos!

[Antoni]

Pedrot:

Para tu ultima pregunta:

Dim matrizStock() As Integer

NItems = Range("filas").Value

ReDim matrizStock(NItems * 2)

[/CODE]

Saludos

[pedrot]

Saludos a todos

¿Como tener facturas continuas?

1- Desbloquee la hoja 'Entrada'

2- En las columnas escondidas elija, Ej: la 'L'

3- Seleccione la celda 'L3' y asignele el nombre 'contador' y escriba '0'

4- Orden N°:/Factura N°: En la celda escriba la formula '=contador + 1' y dele formato que guste Ej: 'F0000' etc. Luego bloquee la celda.

5- Esconda la columna 'L' y bloquee la hoja.

6- En la macro: insertar solo la linea en negrita

-

'-----Borra datos de la entrada

Range("E8:E52").ClearContents

Range("H8:I52").ClearContents

Range("K8:K52").ClearContents

Range("contador").Value = Range("contador").Value + 1

Range("inicio").Select

ActiveCell.Offset(1, 0).Select

Else '-----Datos incompletos

-

7 Listo

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

Saludos

En el paso 4 anterior DESBLOQUEE LA CELDA 'L3' antes de proteger la hoja

Gracias

[JoaoM]

Esta parte puede ir así

Range("E8:E52,H8:I52,K8:K52").ClearContents

[COLOR="#FF0000"]'Range("H8:I52").ClearContents

'Range("K8:K52").ClearContents[/COLOR][/CODE]

Reducimos 2 lineas al codigo

existe un amacro que me parece para imprimir pero, la hoja ("IMP C-11 CONS FRE") y ("CON") hay que crearlas ¿SI? y luego se le asigna un boton pero, como va la copia para impresion a dicha hoja?

[pedrot]

Saludos y buen día

Hay que imprimir la hoja de entrada o salida antes de Guardar. Se puede hacer macro que imprima al Guardar. Creo es mas seguro imprimir primero y luego Guardar.

[JoaoM]

La macro ya existe pero segun pude ver, tiene que existir una hoja para tal fin

Sub Imprimir()


    Sheets("IMP C-11 CONS FRE").Select 'HOJA A SELECCIONAR

    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

    Sheets("CONS").Select 'REGRESO A LA HOJA CONS

    Range("R4:S6").Select

End Sub[/CODE]

Esta macro viene en tu libro

El nombre era otro, lo cambie a Imprimir

Esas 2 hojas no existen en tu libro.

Lo imprimir al guardar, antes o despues no tengo problema de agregar esta a la macro de guardar (antes de guardar) y luego que este en la cola para imprimir, guardar

[pedrot]

Saludos y buen día

Hay que imprimir la hoja de entrada o salida antes de Guardar. Se puede hacer macro que imprima al Guardar. Creo es mas seguro imprimir primero y luego Guardar.

Buenas tardes, noche o dia a Joao y a todos

Lo de imprimir primero es por si el inventario se usa en un negocio de ventas. Si el cliente está de acuerdo se guarda.

El programa no tiene la opción de borrar lo hecho ¿Se le podría poner un boton BORRAR? Se borra por:

1- En la hoja de Historia lo guardado queda seleccionado, y se recupera el stock anterior.

2- Por busqueda de la nueva factura -1. etc.

Otra forma

Un alerta despues de imprimir. ¿Guarda lo facturado?

Saludos

[JoaoM]

Dejare el tema por aqui, con este comentario

Parece no haberes entendido lo que escribi antes:

La macro ya existe pero segun pude ver, tiene que existir una hoja para tal fin

Código:

Sub Imprimir()


    Sheets("IMP C-11 CONS FRE").Select 'HOJA A SELECCIONAR

    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

    Sheets("CONS").Select 'REGRESO A LA HOJA CONS

    Range("R4:S6").Select

End Sub[/CODE]

Esta macro viene en tu libro

El nombre era otro, lo cambie a Imprimir

[color=#FF0000][b]Esas 2 hojas no existen en tu libro[/b][/color].

Lo imprimir al guardar, antes o despues no tengo problema de agregar esta a la macro de guardar (antes de guardar) y luego que este en la cola para imprimir, guardar

Solo me refiero a las dos hojas que aparecen integradas en el codigo para Imprimir; Sheets("CONS") y Sheets("IMP C-11 CONS FRE").

Estas 2 hojas ?cual su funcion? eso fue donde quise llegar y recibir respuesta

Gracias por todo