Jump to content

temp01

Members
  • Content Count

    27
  • Joined

  • Last visited

About temp01

  • Rank
    Member

Converted

  • Campos Array

Recent Profile Visitors

304 profile views
  1. Buenos días señor Antoni. 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.
  2. 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
  3. 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)
  4. 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
  5. 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
  6. 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
  7. Si no fui claro. Aquí el link del vídeo Y minuto 4:40 necesito conseguir con macros
  8. Muy buenas tardes. macro para generar archivos planos para Facturador Sunat (*.LEY, *.TRI, *.CAB, *.DET
  9. Gracias por la aclaración estimados ANTONI Y GERSON me ayudó mucho saludos!
  10. Hola ANTONI me gustaría entender que hace esta línea RESUMEN.Range("D" & Fila) = Replace(BASE.Cells(2, y), Chr(10), " ")
  11. Asssu funciona perfecto gracias estimado ANTONI
×
×
  • Create New...

Important Information

Privacy Policy