Buenas noches, Colegas. Espero se encuentren bien de salud.

Antes que todo disculparme por estar ausente todo este tiempo, pero a mi amigo, el cual uso su ordenador, se volvió a romper y todo parece indicar que es un problema con la Board y eso por acá está a un precio de alrededor de $ 50 000.00 pesos cubanos, o sea, inalcanzable y un vecino que comenzó un negocio me pidió que le ayudara con algo para llevar sus inventarios y cuentas y me prestó su LapTop (muy vieja, lenta y con teclas que no funcionan) y en eso estoy. También los apagones por acá son de más de 12 horas al día todos los días y se hace muy difícil de trabajar, entre otras cosas.

Voy al tema; en este Proyecto que apenas comienzo se me presenta un problema y es que al insertar un nuevo registro en el FrmProducto me da el error ' 1004' . Esto sucede a partir de yo crear un consecutivo automático. El error lo da en el Botó Insertar en la Línea:  .List(x, 0) = Hoja2.Cells(x, 1) 'Código

El código que uso para el incremento automático me lo ofreció mi gran amigo y "Padrino" JSD...

LblCodigo = Application.WorksheetFunction.Max(Hoja2.Columns(1)) + 1

Voy a explicar algo, yo en función del tiempo, que prácticamente no tengo y sumado los apagones, tomé una plantilla (.xlsx) que descargué del canal del Tío Tech y sobre ella estoy trabajando lo que son los Formularios y Códigos. En esta plantilla, en la Columna Código, Miguel tenía creada una fórmula o función que generaba estos códigos (=CONCATENAR("Prod-",TEXTO(FILA(A2),"0000"))), pero esto me llevaba al problema de que cuando yo deje las Bases de Datos vacías (Cero Registros) no iba a poder implementar la generación de códigos. A mí, en lo particular, me hubiera gustado un código con letras y números (como el anterior), pero hasta ahí no llego, así que me conformo con el que estoy sugiriendo.

Por favor, si alguien puede ayudarme a corregir este error, se lo estaré agradeciendo.

Un saludo afectuoso para el Profesor Antoni, el Profesor JSD, para Abraham, Raigosa, y en general para todos los miembros de este maravilloso Foro.

Tengan una excelente Noche/Día.

Saludos

Pino

Sistema Integral de Inventarios v2.2.0.xlsm

Hace 12 horas, pinoji dijo:

Por favor, si alguien puede ayudarme a corregir este error, se lo estaré agradeciendo.

Qué tal Pinoji.

A ver, el fallo lo tienes aquí:

With Me.LstProductos
        x = .ListCount
            .AddItem
            .List(x, 0) = Hoja2.Cells(x, 1) 'Codigo

defines x como .Listcount, que es "0". Eso está muy bien para el istbox, cuyo índice comienza en cero, pero... no está también para el valor de  una celda.

En esa línea estás pidiendo que ponga en el Listbox el valor de la celda .Cells(0,1), y claro que te da error, porue excel no entiende que celda es esa y te da error 1004.

Tienes que usar dos contadores distintos, por ejemplo "x" para el listbox y otro para las filas de las celdas

Buenas Tardes Colegas, Saludos y que gocen de excelente salud todos.

Buenas tardes Haplox que bien que fuera usted quien respondiera mi duda, eso alivia mi conciencia.

No había notado ese "fallo" mío, que generalmente no cometo, pero como todo este proyecto es tan rápido, infiero que muchos van a ser los errores, el ordenador que no me acompaña y los apagones que no terminan, pero gracias a Dios están ustedes y existe ese maravilloso Foro.

Espero algún día poder compartir con usted algunas cervezas y conversar...ahhhh y no podemos dejar fuera a Abraham Valencia al cual respeto mucho. Quiero que sepa, que para mí sería un sueño cumplido poder compartir (físicamente) con un grupo de ustedes, se me ocurre Antoni, JSD, Abraham, Raigosa, usted y yo... bueno y algunos más, tomarnos unas "Frías" y abrir un debate... eso sería MARAVILLOSO, pero las cosas están bien difíciles por todos lados.

Por otro lado, si tuviera correos personales de algunos de ustedes, buscaría afianzar y alimentar mucho más la amistad y tratar temas que salgan fuera del marco del Excel y VBA, pero aun así los aprecio y respeto mucho a todos

Otra cosa Haplox, yo sigo avanzando en el Proyecto y hoy en la mañana me salta otro error y por más que busco no encuentro dónde. Lo subiré en la noche (si tengo corriente eléctrica). Abriré un nuevo tema para seguir las reglas del Foro.

Un agradecimiento a usted y los demás.

Mis más sinceros respeto.

Un abrazo

Pino

Buenas noches, colegas, espero se encuentren bien de salud, así como su familia.

Buenas noches Haplox, espero se encuentre bien. Sigo teniendo algunos problemas. Realmente no sé que me está pasando, pero como todo es tan apurado, el ordenador no acompaña y mis conocimientos que son pobres, los errores se están sucediendo uno tras otro. Nunca había pasado tanto trabajo con un Proyecto.

Implemente un nuevo consecutivo para FrmClientes, FrmProductos y FrmFacturas, pero en ocasiones me da el mismo error que usted me señaló y que yo no entendí muy bien, por eso no modifiqué nada, pero además ahora no me quiere "contar" el consecutivo en los formularios que antes le comenté.

Por favor, le agradecería que le eche un vistazo a esto. Sé que su tiempo es limitado y yo estoy apurado, pero tampoco quiero hacerle a mi amigo una chapucería y que después esté dando error constantemente. Yo voy a detener el Proyecto en espera de su respuesta (o de otro colega que quiera ayudar). Se los pido encarecidamente

Gracias de antemano.

Un abrazo

Pino

Sistema Integral de Inventarios v2.3.0.xlsm

Hace 11 horas, pinoji dijo:

Por favor, le agradecería que le eche un vistazo a esto

Pues ya se lo he echado y te dejo el archivo con esa parte (frProductos) solucionado... bueno, lo que has  planteado.

Mira el código de pasar los datos a la hoja y al alistbox, así como al del cálculo del consecutivo. Te lo he dejado comentado para que veas los errores que tenías

Sistema Integral de Inventarios v2.3.0.xlsm

Buenos días colegas. Espero se encuentren bien de salud.

Buenos días Haplox. Me siento apenado por las molestias que le haya podido causar, pero verdaderamente estoy en un momento perturbador desde el punto de vista psíquico. El estrés me supera.

Voy a revisar la solución que me das y en cuanto tenga el momento (y tenga corriente eléctrica) le escribo.

Gracias una vez más y espero puedas comprenderme. Mi correo es [email protected], espero podamos conversar temas que por acá no debo.

Un abrazo y mis respetos.

Pino

Hace 23 minutos , pinoji dijo:

Me siento apenado por las molestias que le haya podido causar

No, ninguna...

Buenas noches colegas.

Buenas noches Haplox. Estupenda su respuesta o solución. Hasta ahí ya no tengo problemas. Continuaré con el proyecto y veremos en el camino que más aparece.

Gracias mil por su tiempo.

Mis respetos.

Pino