Jump to content

temp01

Members
  • Content Count

    27
  • Joined

  • Last visited

  • Country

    Peru

Everything posted by temp01

  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), " ")
  13. Asssu funciona perfecto gracias estimado ANTONI
  14. [Hola estimado Gerson no se como aplicarlo a mi demás registros con power query haber si me indica gracias
  15. [Hola Buenas tardes necesito de su ayuda. Tengo una base de datos de 1200 registros de estudiantes con sus notas respectivas por cada ciclo. En la hoja Base tengo todas las notas y necesito pasar a otra hoja resumen con los datos transpuestos Aquí mi archivo de ejemplo con el resultado deseado. BD-notas.xlsb
  16. temp01

    Calendario Sin ActiveX

    Hola como lo adapto para mi formulario.. Feliz Año Nuevo Saludos!!
  17. Buenas tardes como puedo realizar macro para listar fechas por mes sin sábado y domingo
  18. Hola prueba con esto y me comentas [H2] = "'" & Format([H2] + 1, "0000") saludos!
  19. Hola muchas gracias que pongo después de filename
  20. [Buenos días a todos Les comento que tengo un pequeño aplicativo que le tengo configurado como oculto "Application.Visible = False", solo muestra los formularios. pero tengo un problema, mientras mi aplicativo está en ejecución tengo necesidad de abrir otros archivos de excel y cuando ocurre esto la instrucción "Application.Visible = False" ya no se respeta (se muestra todo el libro y las hojas de mi aplicativo) la cual no deseo. Entonces encontré este programa "XLtoEXE" que soluciona el problema anterior y también elimina el mensaje que tengo habilitar macros para ejecutar mi aplicativo. Pero tengo una dificultad que no guarda los datos cuando convierto a EXE. Antes de convertir funciona perfecto. ¿Alguien conoce alguna instrucción para solucionar mi problema?
  21. Prueba esto y me comentas datos en celdas se actualicen.xls
×
×
  • Create New...

Important Information

Privacy Policy


CTA Templates.png