Saltar al contenido
Te enseño 7 de los trucos que me permitieron trabajar 2 horas menos al día >>>

Error ' 1004' al insertar un registro

pinoji

Recommended Posts

pinoji Gran colaborador

pinoji

publicado
publicado

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

Haplox Asiduo a Ayuda Excel

Haplox

publicado
publicado
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

pinoji Gran colaborador

pinoji

publicado
  • Autor
publicado

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

pinoji Gran colaborador

pinoji

publicado
  • Autor
publicado

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

Haplox Asiduo a Ayuda Excel

Haplox

publicado
publicado
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

pinoji Gran colaborador

pinoji

publicado
  • Autor
publicado

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 pinomondejajoseignacio@gmail.com, espero podamos conversar temas que por acá no debo.

Un abrazo y mis respetos.

Pino

pinoji Gran colaborador

pinoji

publicado
  • Autor
publicado

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

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.

Ir al listado de temas

  • 109 ¿Te parecen útiles los tips de las funciones? (ver tema completo)

    1. 1. ¿Te parecen útiles los tips de las funciones?


      • Sí
      • No
      • Ni me he fijado en ellos

  • Ayúdanos a mejorar la comunidad

    • Mantenimiento de la comunidad
      Donaciones recibidas este mes: 0.00 EUR
      Objetivo: 130.00 EUR

  • Archivos

  • Estadísticas de descargas

    • Archivos
      188
    • Comentarios
      98
    • Revisiones
      29
    Más información sobre "Cambios en el Control Horario"
    Última descarga
    Cambios en el Control Horario
    Por pegones1

    4    1

  • Crear macros Excel

  • Mensajes

    • DiegoPC
      FORMULA PARA BUSCAR DIFERENTES RESULTADOS Y MOSTRARLOS

      Por DiegoPC · publicado

      Hola, veo que tienes 365, así que esta forma funcionará   Almacen.xlsx
    • jues
      Guardar Formulario en PDF

      Por jues · publicado

      Buenos días  @LeandroA espero estes bien Tengo un caso idéntico al planteado en la siguiente pregunta: Sin embargo, a diferencia de quien planteo originalmente la pregunta al correr el código no obtengo ningún resultado podrían ayudarme a resolver este inconveniente y que al hacer click en el Botón Guardar (CommandButton3) del Formulario RCS (frmrcs) el archivo pdf quede configurado con orientación vertical, márgenes superior, inferior, derecho e izquierdo = 1 y en página tamaño carta. Si acaso influye uso Microsoft Excel LTSC MSO (versión 2209 Compilación16.0.1.15629.20200) de 64 bits Mucho le sabre agradecer la ayuda que me pueda dar  RCS PRUEBA - copia.xlsm
    • DiegoLG
      Surtido de Mercancía

      Por DiegoLG · publicado

      @JSDJSDCon gusto mi estimado Para la opción 1: Sub Surtirhastadondealcanse() Dim ws As Worksheet Set ws = ThisWorkbook.Sheets(1) Dim filaInicio As Integer: filaInicio = 4 Dim filaFin As Integer: filaFin = 7 Dim colInventario As Integer: colInventario = 2 Dim colSolicitudesInicio As Integer: colSolicitudesInicio = 4 ' Columna C Dim colResultadoInicio As Integer: colResultadoInicio = 9 ' Columna I Dim colTotalSurtido As Integer: colTotalSurtido = 12 ' Columna L Dim colFinalInventario As Integer: colFinalInventario = 13 ' Columna M Dim numClientes As Integer: numClientes = 3 Dim fila As Integer, i As Integer For fila = filaInicio To filaFin Dim inventario As Double inventario = Val(ws.Cells(fila, colInventario).Value) Dim solicitudes(1 To 3) As Double Dim surtido(1 To 3) As Variant Dim totalSurtido As Double: totalSurtido = 0 ' Leer solicitudes For i = 1 To numClientes If IsNumeric(ws.Cells(fila, colSolicitudesInicio + i - 1).Value) Then solicitudes(i) = CDbl(ws.Cells(fila, colSolicitudesInicio + i - 1).Value) Else solicitudes(i) = 0 End If surtido(i) = "POR FALTA STOCK" Next i ' Surtir de acuerdo al inventario disponible For i = 1 To numClientes If solicitudes(i) > 0 Then If inventario >= solicitudes(i) Then surtido(i) = solicitudes(i) inventario = inventario - solicitudes(i) totalSurtido = totalSurtido + solicitudes(i) ElseIf inventario > 0 Then surtido(i) = inventario totalSurtido = totalSurtido + inventario inventario = 0 Else surtido(i) = "POR FALTA STOCK" End If End If Next i ' Escribir resultados en las columnas correspondientes para cada cliente For i = 1 To numClientes With ws.Cells(fila, colResultadoInicio + i - 1) If surtido(i) = "POR FALTA STOCK" Then .Value = surtido(i) .Font.Color = vbRed Else .Value = surtido(i) .Font.Color = vbBlack End If End With Next i ' Escribir total surtido y existencia final ws.Cells(fila, colTotalSurtido).Value = totalSurtido ws.Cells(fila, colFinalInventario).Value = inventario Next fila MsgBox "Resultado surtido cargado con éxito...", vbInformation End Sub Para la opción 2:   Sub surtirenpartesiguales() Dim ws As Worksheet Set ws = ThisWorkbook.Sheets(1) Dim filaInicio As Integer: filaInicio = 13 Dim filaFin As Integer: filaFin = 16 Dim colInventario As Integer: colInventario = 2 Dim colSolicitudesInicio As Integer: colSolicitudesInicio = 4 ' Columna C Dim colResultadoInicio As Integer: colResultadoInicio = 9 ' Columna I Dim colTotalSurtido As Integer: colTotalSurtido = 12 ' Columna L Dim colFinalInventario As Integer: colFinalInventario = 13 ' Columna M Dim numClientes As Integer: numClientes = 3 Dim fila As Integer, i As Integer For fila = filaInicio To filaFin Dim inventario As Double inventario = Val(ws.Cells(fila, colInventario).Value) Dim solicitudes(1 To 3) As Double Dim surtido(1 To 3) As Variant Dim totalSurtido As Double: totalSurtido = 0 Dim totalPedido As Double: totalPedido = 0 ' Leer solicitudes For i = 1 To numClientes If IsNumeric(ws.Cells(fila, colSolicitudesInicio + i - 1).Value) Then solicitudes(i) = CDbl(ws.Cells(fila, colSolicitudesInicio + i - 1).Value) totalPedido = totalPedido + solicitudes(i) Else solicitudes(i) = 0 End If surtido(i) = 0 Next i ' Si hay suficiente inventario, surtir lo que el cliente pide If inventario >= totalPedido Then For i = 1 To numClientes If solicitudes(i) > 0 And inventario >= solicitudes(i) Then surtido(i) = solicitudes(i) inventario = inventario - solicitudes(i) totalSurtido = totalSurtido + solicitudes(i) End If Next i Else ' Reparto base igualitario Dim baseSurtido As Long baseSurtido = Int(inventario / numClientes) For i = 1 To numClientes If solicitudes(i) > 0 Then If solicitudes(i) <= baseSurtido Then surtido(i) = solicitudes(i) inventario = inventario - solicitudes(i) totalSurtido = totalSurtido + solicitudes(i) Else surtido(i) = baseSurtido inventario = inventario - baseSurtido totalSurtido = totalSurtido + baseSurtido End If End If Next i ' Repartir sobrante restante uno por uno, respetando lo pedido Do While inventario > 0 For i = 1 To numClientes If surtido(i) < solicitudes(i) Then surtido(i) = surtido(i) + 1 totalSurtido = totalSurtido + 1 inventario = inventario - 1 If inventario = 0 Then Exit For End If Next i Loop End If ' Escribir resultados en las columnas correspondientes para cada cliente For i = 1 To numClientes With ws.Cells(fila, colResultadoInicio + i - 1) If surtido(i) = 0 Then .Value = "POR FALTA STOCK" .Font.Color = vbRed Else .Value = surtido(i) .Font.Color = vbBlack End If End With Next i ' Escribir total surtido y existencia final ws.Cells(fila, colTotalSurtido).Value = totalSurtido ws.Cells(fila, colFinalInventario).Value = inventario Next fila MsgBox "Resultado surtido cargado con éxito...", vbInformation End Sub Saludos, Diego
    • jose_alk
      FORMULA PARA BUSCAR DIFERENTES RESULTADOS Y MOSTRARLOS

      Por jose_alk · publicado

      Buenos dias.  Estoy trabajando en una hoja para poder llevar un control de un pequeño almacén.  Tengo un pedido con varias líneas y "lotes" y necesito sacar las ubicaciones que coincidan con la referencia y lote que pone en el pedido. El problema viene cuando tengo la misma referencia y mismo lote en ubicaciones diferentes y necesito sacar la información en columnas diferentes. No se si  me he explicado bien, pero creo que con el ejemplo adjunto se entiende mejor. Agradecería mucho si me pudieran ayudar  Libro1.xlsx
    • jues
      Buscar Datos con un ComboBox

      Por jues · publicado

      Exelente solución mil gracias 

  • Visualizado recientemente

    • No hay usuarios registrado para ver esta página.
×
×
  • Crear nuevo...

Información importante

Echa un vistazo a nuestra política de cookies para ayudarte a tener una mejor experiencia de navegación. Puedes ajustar aquí la configuración. Pulsa el botón Aceptar, si estás de acuerdo.