Saltar al contenido

Macro error 1004


Recommended Posts

publicado

Buen dia, tengo una macro que funcionaba bien pero hoy me esta dando este error 1004, en la orden de cargar una fila para despues copiar y pegar datos me tira error. (en rojo con carita)

No entiendo lo que busque esta todo ok, que podria ser alguna ayuda🤔🤔🤔🤔??

Sub REGISTRAR3()
'
' REGISTRAR3 Macro
'
Application.ScreenUpdating = False
Sheets("REGISTRO").Select
'Desbloquea hoja
ActiveSheet.Unprotect Password:="TANGO"

'Revisa las celdas
    existe = False
    For Each C In Range("C6:C10")
        If C.Value = "" Then
            celdas = celdas & " " & C.Address(False, False)
            existe = True
        End If
    Next
    If existe Then
        MsgBox "Falta introducir el Datos en las celdas : " & celdas
        Exit Sub
    End If
'Agrega fila
    Rows("16:16").Select
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove 🥵
    Range("C6:C10").Select
    Selection.Copy
    Range("B16").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=True
    Range("C8:C10").Select
    Application.CutCopyMode = False
    Selection.ClearContents
    Range("C8").Select
    'Bloquea hoja
    ActiveSheet.Protect Password:="TANGO"
    Application.ScreenUpdating = True
End Sub
 

publicado

Hola

Si dices que la macro funcionaba y ahora ya no (sin haber cambiado el código) es entonces un problema de datos y no de código. Lo que se me ocurre que sucede es que tienes "algo" en la última fila de la hoja de Excel y al intentar insertar una fila nueva entonces ese "algo" se quedaría fuera de la hoja y por eso da error.

Presiona CTRL+FIN, si es lo que pienso te llevará a una celda de la fila 1048576

publicado

OK.

Realmente no lo pude solucionar, así que guarde un back up de planilla de dos meses atrás, le agregue los datos faltantes y la puse a funcionar normal sin problemas.

@DiegoPC es raro porque el código se  cambio solo, y esta protegido todo solo yo se la clave,  los datos mm🤔,  en fin lo mejor borrar todo usar el back up ajirónalos a l mes y listo 👌🏽

La desarme y busque pero no encontré el error, si que muchas ordenes cambiaron l es de ir de B1 a B16 sucesivamente, se desconfiguro todo🤔🤔🤔🤔 @Abraham Valencia me preocupo por eso borre todos los archivos dañados y puse la nueva.

Saludos y gracias a ambos!!

Archivado

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

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

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


      • No
      • Ni me he fijado en ellos

  • Current Donation Goals

    • Raised 0.00 EUR of 130.00 EUR target
  • Archivos

  • Estadísticas de descargas

    • Archivos
      189
    • Comentarios
      99
    • Revisiones
      29

  • Crear macros Excel

  • Mensajes

    • Hola Buenas Noches, Me podrán ayudar a resolver un problema con una planilla que tengo, les comento brevemente. Tengo un archivo que cuenta con 2 hojas, la primera se llama "Movimientos" que básicamente muestra los productos con quiebres que se presentan y la hoja "Producción" que como su nombre lo dice son las producciones de cada producto según fecha de creación. Lo que necesito es lo siguiente: Cada vez que agregue una producción en la hoja "producción", debo ingresar el código creado su cantidad y lote respetivamente, además de la fecha en que se realiza la producción, en caso que sea mayor a las 12:00 se considera PM sino AM. Lo complejo es acá en la otra hoja llamada Movimientos: Esta hoja contiene una columna que se llama "Saldo", que básicamente es la diferencia de lo producido vs el quiebre en esa fecha. Una columna llamada "Cumple", que significa que ese pedido lleva si o no el producto con quiebre. Y una columna "Se preparo", que es si el pedido se preparo o no. Lo complicado viene acá es que si la fecha de la producción que ingrese en la hoja "Produccion", se hace después de la fecha de la hoja movimientos no me debe contar esa producción para efecto de la columna Saldos, si la fecha es igual o menor si se considera y ese saldo que queda disponible se puede ocupar para futuros ingresos de pedidos. Otra conducción es que las producciones siempre se deben asignar al pedido más antiguo de ese código salvo que la fecha de entrega ya haya pasado. La columna "Cumple" es básicamente para poder generar un KPI donde me indique cuales producciones se cumplieron con el plazo y cuales No. Espero me puedan ayudar ya que tengo la siguiente formula pero no sirve ya que me toma las unidades totales y no cumple con la restricción del horario. =SUMAR.SI(Produccion!A:A; $A2; Produccion!C:C) - SUMAR.SI.CONJUNTO($E$2:$E2; $A$2:$A2; A2)) Muchas gracias. Ejemplo..xlsx
    • Hola a ambos, Prueba con: =BYROW(G5:G6;LAMBDA(x;UNIRCADENAS(" - ";1;FILTRAR(E5:E10;B5:B10=x)))) Saludos,
    • Si tienes office 365 puedes usar algo como FILTER ó TEXTJOIN y si no tienes, entonces se puede jugar con las formulas, pero no te recomiendo mucho si son muchos datos, de todas maneras te dejo una fórmula y en vba, ya tu decides cual ocupar, vale Saludos BUSCAR.xlsm
    • Buenos días mis estimados Familia ayudaexcel,  Favor quisiera solicitar su gentil soporte con lo siguiente: Necesito una formula que al buscar encuentre el valor inicial de busqueda y dea todo los resultados encontrado en una celda como ejemplo. si este producto tienes 4 cantidades esta al hacer una formula de busqueda me dea el resultado de las 4 en una celda, dejo el adjunto a espera de su gran soporte.   BUSCAR.xlsx
    • Saludos Sr @Israel Cassales espero este bien quise verificar bien su solución y que las modificaciones que hice funcionarán adecuadamente y al respecto debo decir que su aporte es excelente ya que no solo me ayudo a resolver lo que necesitada sino que también me ayudo a solventar dos cosas más por lo cual estoy muy agradecido 
  • 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.