Buen dia

Con el permiso de los señores expertos y como agradecimiento a todo lo aprendido y practicado de los diferentes temas, aportes y solicitudes de codigos para mi uso personal, me tomo la libertad de adjuntarles un archivo de control de Stock que fue hecho solo con la intencion de que sea usado por las personas a quienes les sea util. A quienes deseen aprender y tambien a quienes puedan evaluarlo y puedan darme su opinion ya que seguro puede tener algun detalle a corregir o incluir.

Se que en muchos casos la intencion es que las personas aprendan y se aventuren en la solcucion de los problemas que se le pueda presentar durante el aprendizaje, entre otros, pero estoy seguro que a partir de una idea, se pueden hacer volar la imaginacion y hacer muchas mas y mejores.

Gracias a todos por el honor de hacerme parte de esta comunidad y por brindarme un espacio para la participacion y apoyo a las tantas interrogantes que pueda tener.

En especial al señor Macrto Antonio a quien considero un Caballero en todo sentido.

Al señor Gerson-Pineda, al señor alucard2011 y a todos por igual....mis respetos por tan honorable labor.

Stock.2.0.zip

Stock.2.0.zip

Gracias Enigma!!! cada vez esta mejor el programilla!!! gracias en serio gracias

Voy comparando códigos y mejorando según mi interés, por ejemplo a mi no me interesa eso de pedro insertar el precio de la salida, no lo uso, lo demás si tal como el Resumen anual que también me dá el resumen mensual por años.

En futuro vere que me hace mas falta, creo que una hoja con factura o recibo diseñada (ya la tengo) para dar salidas, ventas o notas de entega y que esta a su ves, vaia dando salidas de las cantidades de productos

Hola enigma.

Dime cual la finalidad del cuadro (TextBox3) de la imagen

Hola JoaM

Ni idea. Por lo general cuando agrego un texbox, el SpecialEffect lo hago con fmSpecialEffectBump o fmSpecialEffectEtched y ese tiene el fmSpecialEffectSunken. Le has visto algun codigo especial?

Nada de código.

Recuerda que este cuadro(pantalla) lo hiciste para Pedro, yo lo cogi porque lo vi interesante

@[uSER=98799]Enigma25[/uSER] ,, si que mejoraste el archivo y me da gusto.. me sirvio de mucho para automatizar algunas cosas. aver si se podria acceder y retroalimentar a una database desde access y ya no al excel ..

Ss.

Al parecer, acces es mas poderosa que Excel?, me gustaría poder probar pero no llego hasta eso, mal se trabajar con Excel menos con acces

Access es mucho mas potente, pero es mas complicado... Yo uso a medias los dos jajaja pero siii estaría mejor si se pudiera migrar a access

Ya trate y termine por no saber hacer nada en Acess

jejejeje.. todo se aprende mi estimado @[uSER=53155]JoaoM[/uSER] y la perseverancia es optima para aprender .

Saludos.

Concuerdo con lo dicho por el amigo pajuma.

En lo personal, no uso directamente el Access para tradajar. De hecho no se nada al respecto que no sea por medio de los videos que logré ver en internet y haciendo uno que otros ejercicios. Lo empleo mas que todo para manejar informacion, solo eso.

Espero que quizas algun dia lo pueda entender mejor.

Buen dia Pedro14387

A continuacion adjunto el archivo con unas mejoras que quias sean de ayuda.

El mismo cuenta ahora en el formulario de Resumen Anual, una opcion para hacer el reportes de movimientos separados por columnas (Meses Salidas) en donde podrás ver en detalle el total saliente de Entradas asi como tambien los totales separador en columnas por Salidas.

La otra opcion es el Análisis ABC en donde se podrá clasificar por el metodo ABC los items que forman parte de tu inventario. Dandole la improtancia a aquellos que le dan mayor ingreso y controlandolos de una forma mas importante en cuanto a inventarios se refiere.

Ojalá puedas verlo y me des tus apreciaciones. De todos modos no se si me confundí nuevamente con el archivo que te habia modificado anteriormente pero si lo es, me alegraré.

Saludos.

Control de Stock.zip

Siii esta mejor aun!!! esa función esta nítida, gracias Enigma... cada vez va aun mejor!!!!

Rayos, no paras nunca y cada ves mejoras para mejor.

Voy a tratar de integrar eso en el mio, A VER SI PUEDOOOOOOOOOO, si no, ya se donde vives jejejeee.

Solo las gracias, se sabe lo insuficiente que es, y el mucho agradecer, se vuelve encontra jejejejjeej

El inconveniente de poder editar un post alarga el tema, cosa que la administración debería tomar en cuenta.

enigma, quiero decir algo sobre el libro, no este si no todos los que has subido, y echo con esfuerzo.

No tomes como critica DESTRUCTIVA,

He visto como has incrementado el peso del libnro, eso se debe a varios factores; uno es el incremento de formularios de los cuales muchos son idénticos como los de FechaF fecha I Fecha 3 ect, donde podría usarse uno solamente y ahí se ahorran 3.

Modificar Clientes y Modificar Productos, unificar por medio de algún OptionBotton en uno para que 2 optionBotton uno te lleve el form a Productos y otro Option te lleve a Clientes.

Lo mismo pasa con los Registro Proveedor y Cliente, lo mismo pienso con 2 OptionBoton.

Ya viste cuantos formularios ahorras? Y peso al libro. Lo mismo con Entrada y el de Salida.

Te doy un ejemplo que para ti no será nuevo

Claro que en cada se puede meter el Call xxxxxx para que ejecute la macro necesaria si se ve necesario

Private Sub optProEntr_Click()

Application.ScreenUpdating = True

Hoja2.Select

LC.ColumnHeads = True

LC.ColumnCount = 9

LC.ColumnWidths = "30;165;35;35;35;70;55;77;120"

    LC.RowSource = "A2:I" & Hoja3.Range("A" & Rows.Count).End(xlUp).Row

txtbusccli.SetFocus

End Sub


Private Sub optProve_Click()

Application.ScreenUpdating = True

Hoja3.Select

LC.ColumnHeads = True

LC.ColumnCount = 8

LC.ColumnWidths = "30;165;80;175;80;80;80;120"

    LC.RowSource = "A2:H" & Hoja3.Range("A" & Rows.Count).End(xlUp).Row

txtbusccli.SetFocus

End Sub[/CODE]

Otro ejemplo; form ABC, abre y solo muestra caption de ABC (Análisis ABC) y solo ABC como tal. 1 chekbox True alarga el form y Caption para ABC

Si ves los 2 formularios ABC y Resumen, Que podrias hacer? uno solo con 2 Option; 1 option o un ChekBox para alargar y recortar segun neceario para que se vea paraABC y Resumen y por lo tanto el cambio de Caption de los labels ext ext ext. Los mismos controles (que son TextBox o Labels, cambian EN TIEMPO DE EJECUCION a su función respectiva.

Este es código buscado por la WEB de la cual conseguí ayuda para hacer esto y esta en un formulario de búsqueda que busca, tanto en hoja Proveedores como en hoja Productos y desde el formulario la llamada a editar sea Proveedores o Productos.

Esto en ves de tener 2 buscadores tengo 1 solo con varias funciones, incluso desde donde puedo Eliminar sea Productos o Proveedores. con este buscador me ahorro al menos 3 formularios.

No se que pensaras, tal ves te digas a ti propio, pues hazlo tu, si pero logre esto con mucha ayuda en lña WEB con varios a ayudarme en una o otra cosa y para llegar a eso me llevo bastante tiempo y sin los conocimientos necesarios para tal fin.

Bueno, no quiero que me tomes a mal al darte esta sugerencia.

JoaoM

Te recuerdo que este archivo fue aportado hace tiempo y todo lo que se le haga ahora es una mera modificacion, pero su diseño original se mantiene. Tambien debes recordar que este aporte fué destinado con la intencion de que; Aprendan, lo usen, recuerden algunos codigos, aprovechen los que mas les guste etc.Tambien para quienes lo vean, puedan optar por una mejora de lo ya conocido de este archivo. Por tanto si cuentas con los conocimientos para plasmarlo en tus trabajos, felicidades!! y me alegra haber aportado para ello.

Buenos días, Enigma

Ante todo darte la enhorabuena por la herramienta que has creado. En muy útil! Gracias. También quería preguntarte el código que debo añadir en el código de control puesto que no quiero que sea automático:

Sub Numerador()

lblControl = Format(Application.WorksheetFunction.Max(Hoja3.Range("A:A")) + 1, "00000")

End Sub

Desde ya agradezco la atención y recibe un cordial saludo.

Hola

Gracias por tomar en cuent el archivo. En realidad,esta numeracion se hace en funcion a los registros que se guadan y con ello establezco el correlativo para la sigiente operacion.

Necesitas hacer algo en concreto? poner el numero manualmente?

Gracias por tu rápida respuesta. Sí, me gustaría poner el código de forma manual. Gracias nuevamente y felicidades por la herramienta.

Cual estas usando?

Te pregunto esto porque he de dejado en varias ocaciones las actualizaciones del que ya no sabria cual de todos estan usando..

Estoy utilizando la ultima actualización que has puesto. Como te comentaba, has puesto la formula:

Sub Numerador()

lblControl = Format(Application.WorksheetFunction.Max(Hoja3.Range("A:A")) + 1, "00000")

End Sub

(muy útil, por cierto), pero en mi caso lo tengo que poner a mano (cada cliente tiene un numero de control diferentes..).

Lo he intentado modificar pero no lo he logrado. Muchas gracias!

Hola

Lo que soliictas ya creo que lo habia contemplado con otra persona quien solicitaba que los registros se hicieran pero en diferentes hojas (Entrada y/o salidas). Esto ayuda de gran manera la numeracion del correlativo. Solo dejame ver si logro encontrarlo.

aunque...... no creo que te sirva...... tu lo requieres para cada cliente o proveedor no es asi?

sí, exacto... quiero poner yo una referencia por cada entrada o salida, pero me da errores al cambiar la formula. Muchas gracias por la ayuda.