Jump to content

temp01

Members
  • Content Count

    27
  • Joined

  • Last visited

About temp01

  • Rank
    Member

Converted

  • Campos
    ,
  • Mi versión de Excel
    Excel 2019 Windows

Recent Profile Visitors

516 profile views
  1. disculpa pero necesito que elimine por favor porque el archivo subida a la nube contiene información de notas de un alumno.
  2. Al parecer no me expresé bien en mi consulta y deseo eliminarla ' Aqui va la pregunta. Saludos!
  3. 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.
  4. 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
  5. 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)
  6. 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
  7. 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
  8. 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
  9. Si no fui claro. Aquí el link del vídeo Y minuto 4:40 necesito conseguir con macros
  10. Muy buenas tardes. macro para generar archivos planos para Facturador Sunat (*.LEY, *.TRI, *.CAB, *.DET
  11. Gracias por la aclaración estimados ANTONI Y GERSON me ayudó mucho saludos!
  12. Hola ANTONI me gustaría entender que hace esta línea RESUMEN.Range("D" & Fila) = Replace(BASE.Cells(2, y), Chr(10), " ")
×
×
  • Create New...

Important Information

Privacy Policy


CTA Templates.png