temp01

Buenos días Tengo una macro que genera reporte en una hoja llamada Plantilla_Pro. sucede que en esta plantilla necesito acomodar los DATOS para la impresión adelante y reverso en un formato A3 en horizontal. Dejo una Hoja ( RESULTADO FINAL ) como muestra de lo que necesito.

Lo que intento ahora es copiar un rango por hoja, en la macro actual lo hace 3 rangos por hoja la cual no deseo. Gracias

si probé pero me sale error en la fila, dice que no admite esta propiedad. h(i).Range(dato(j)).Copy h1.Range("A" & u) ' también probé así persiste el error Sheets(h(i)).Range(dato(j)).Copy h1.Range("A" & u)

Hola pero tengo otra duda que cada rango pertenece a una hoja como sería ? intenté así Sub copiar() Set h1 = Sheets("Hoja1") ' hoja principal ' hoja = Array("Hoja2", "Hoja3", "Hoja4") dato = Array("A1:B5", "C1:D5", "H1:I5") ' For Each h In ThisWorkbook.Sheets If h.Name <> h1.Name Then u = h1.Range("A" & Rows.Count).End(xlUp).Row ' For i = LBound(hoja) To UBound(hoja) For j = LBound(dato) To UBound(dato) h(i).Range(dato(j)).Copy h1.Range("A" & u) u = u + h.Range(dato(j)).Rows.Count Next j Next i ' End If Next h End Sub

asssu acertado tu respuesta gracias

Buenos días tengo la siguiente macro. La idea es copiar rangos de todas las hojas a la Hoja1 una debajo de otra. ésta es la macro solo me funciona en la primera copia, estaré agradecido. Sub copiar() Set h1 = Sheets("Hoja1") ' hoja principal ' dato = Array("C1:D5", "A1:B5", "H1:I5") ' For Each h In ThisWorkbook.Sheets If h.Name <> h1.Name Then u = h1.Range("A" & Rows.Count).End(xlUp).Row For j = LBound(dato) To UBound(dato) h.Range(dato(j)).Copy h1.Range("A" & u) u = u + 1 Next j End If Next h End Sub MACRO COPIAR.xlsm

En ningún momento pedí un trabajo completo solo de generar estos tipos de archivos por si alguien conoce me faciliara con macros, pero gracias por la recomendación saludos

Si no fui claro. Aquí el link del vídeo Y minuto 4:40 necesito conseguir con macros

Muy buenas tardes. macro para generar archivos planos para Facturador Sunat (*.LEY, *.TRI, *.CAB, *.DET

(Len(TextBox1) - UBound(x) + 1) Mod 26 = 0

me gustaría entender ésta línea

Gracias por la aclaración estimados ANTONI Y GERSON me ayudó mucho saludos!

Hola ANTONI me gustaría entender que hace esta línea RESUMEN.Range("D" & Fila) = Replace(BASE.Cells(2, y), Chr(10), " ")

Asssu funciona perfecto gracias estimado ANTONI

Uso la versión Excel 2013