Buenas noches, hace unos días pedí una macro y gentilmente Gerson la hizo y funcionó muy bien en el ejemplo, el tema es que cuando lo quiero aplicar en mi archivo no funciona, tira el error "Se ha producido el error '1004' en tiempo de ejecución: error definido por la aplicación o el objeto"

Pintando de amarillo la línea que pongo en negrita:

Sub ARREGLAR()

With Hoja2 'BD BOL VENTAS
    f = Hoja1.[E16]
    .Range(.Cells(f, "A"), .Cells(f, "K")) = Hoja1.[BF4:BP4].Value
End With
End Sub

El problema será porque tengo 19 hojas en el libro y en el ejemplo hay solo 2? o por los nombres de las hojas?, no se.

Probé agregarles más hojas al ejemplo y sigue funcionando bien, desgraciadamente no puedo subir mi archivo porque es muy pesado

Adjunto el ejemplo funcionando bien, por si sirve de algo

Desde ya muchas gracias y cualquier dato mas que necesiten saber para encontrar el problema pregunten

Saludos Jose

Ejemplo.xlsmFetching info...

Podrias detallar que funcion realiza la macros exactamente?

  En 3/8/2019 at 2:45 , jose_luisc dijo:

por los nombres de las hojas?,

Exactamente

Lo más probable es que en la celda E16 de la hoja Hoja1 no haya un valor correcto.

  En 3/8/2019 at 10:04 , Antoni dijo:

Lo más probable es que en la celda E16 de la hoja Hoja1 no haya un valor correcto.

Si, coloco cualquier número 1, 2, 3, etc. 

 

  En 3/8/2019 at 6:08 , Haplox dijo:

Exactamente

Pero en el ejemplo las hojas tienen el mismo nombre que en mi archivo y sin embargo en el ejemplo funciona y en mi archivo

Mas tarde cuando esté en la pc que tiene mi archivo voy a ver si elimino las demás hojas del libro para achicarlo y poder subirlo así lo examinan

Saludos

Buenas noches, perdonen por la demora, finalmente pude encontrar mi error, resulta que las hojas VENTAS y BD BOL VENTAS, las tengo primero y segunda en el orden de hojas, pero su nombre son Hoja 10 y Hoja 11, pequeño gran detalle que no podía descubrir y me quitaba el sueño hasta que lo encontré

Otra vez infinitas gracias, ya pueden dar por cerrado el tema, probablemente no va a pasar mucho para que les vuelva a pedir "ayuda excel"  porque esta parte del proyecto no me conforma como lo he encarado, no lo puedo hacer muy intuitivo para decirlo de una forma

Saldos cordiales

Jose

 

  En 8/8/2019 at 1:55 , jose_luisc dijo:

Buenas noches, perdonen por la demora, finalmente pude encontrar mi error, resulta que las hojas VENTAS y BD BOL VENTAS, las tengo primero y segunda en el orden de hojas, pero su nombre son Hoja 10 y Hoja 11, pequeño gran detalle que no podía descubrir y me quitaba el sueño hasta que lo encontré

Otra vez infinitas gracias, ya pueden dar por cerrado el tema

Hola Jose

Es que hice uso del "codename" de las hojas (Hoja1, Hoja2 etc... , la ventaja que tiene esto, es que no importa que nombre le das a las hojas (entiéndase la que vemos en la interface de Excel)

Entonces Sheets("BD BOL VENTAS") es equivalente a Hoja2 (codename), tal como te lo comente en la macro, que te envie

 

Saludos