Jump to content

Janlui

Members
  • Posts

    371
  • Joined

  • Last visited

  • Days Won

    39

Janlui last won the day on October 27

Janlui had the most liked content!

3 Followers

About Janlui

  • Birthday 04/01/1960

Recent Profile Visitors

1,472 profile views

Janlui's Achievements

  1. Prueba esto: Sub guarda_pdf() ruta = ActiveWorkbook.Path & "\salida3.pdf" ActiveSheet.PageSetup.PrintArea = "$A$2:$P$42" Application.PrintCommunication = False With ActiveSheet.PageSetup .LeftHeader = "" .CenterHeader = "" .RightHeader = "" .LeftFooter = "" .CenterFooter = "" .RightFooter = "" .LeftMargin = Application.InchesToPoints(0) .RightMargin = Application.InchesToPoints(0) .TopMargin = Application.InchesToPoints(0) .BottomMargin = Application.InchesToPoints(0) .HeaderMargin = Application.InchesToPoints(0) .FooterMargin = Application.InchesToPoints(0) .PrintHeadings = False .PrintGridlines = False .PrintComments = xlPrintNoComments .CenterHorizontally = True .CenterVertically = True .Orientation = xlLandscape .Draft = False .PaperSize = xlPaperLetter .FirstPageNumber = xlAutomatic .Order = xlDownThenOver .BlackAndWhite = False .Zoom = False .FitToPagesWide = 1 .FitToPagesTall = 1 .PrintErrors = xlPrintErrorsDisplayed .OddAndEvenPagesHeaderFooter = False .DifferentFirstPageHeaderFooter = False .ScaleWithDocHeaderFooter = True .AlignMarginsHeaderFooter = True .EvenPage.LeftHeader.Text = "" .EvenPage.CenterHeader.Text = "" .EvenPage.RightHeader.Text = "" .EvenPage.LeftFooter.Text = "" .EvenPage.CenterFooter.Text = "" .EvenPage.RightFooter.Text = "" .FirstPage.LeftHeader.Text = "" .FirstPage.CenterHeader.Text = "" .FirstPage.RightHeader.Text = "" .FirstPage.LeftFooter.Text = "" .FirstPage.CenterFooter.Text = "" .FirstPage.RightFooter.Text = "" End With Application.PrintCommunication = True ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ ruta, Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _ False End Sub
  2. El rango que tienes seleccionado, definelo como area de impresión y al imprimir en PDF indicale que quieres se imprima en una sola hoja.
  3. Te pongo la macro para que cambies el año en la hoja "HOJA1" y se actualice Si esto cumple... no olvides dar clic en 🤍 calendario - años VINCULOS.xlsm
  4. A ver, mandame tu archivo para el 2022 (Sin información) Solo quiero ver como es tu formato y en funcion a esa macro te prepare el año siguinete (vinculado) para que inicies la captura de información.
  5. Debe ser archivo por año, ya que solo tienes 12 meses/hojas por archivo.
  6. Sub quita_cursor() ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True ActiveSheet.EnableSelection = xlNoSelection End Sub
  7. Tu información la graficaría en función a la actividad por día
  8. Hola, Observo que el planteamiento o tu formulación está mal. 1. Todos los dias deberán sumar 24:00 horas excepto el domingo que unicamente trae información hasta las 6 de la mañana. 2. Lo que observo es que esas 24:00 los componen diferentes cortes de tiempo (Columna A) 3. Creo que lo que deberás graficar son los # de casos o cuantos eventos suceden cada dia. 4. Existen algunos días que rebasan las 24 horas, por eso agregué el formato de días. Este es el resumen. Ya me comentarás
  9. Abre un Modulo ( Alf + F11) y copia la macro, el Archivo TXT colocalo en la misma carpeta donde se encuentyre tu archivo excel. Si observas la macro, procesará el archivo 1.TXT Sub opentxt() Application.ScreenUpdating = False Application.DisplayAlerts = False Range("a1:b1000").ClearContents Dim myfile As Variant, cad As String, fila As Long ruta = ActiveWorkbook.Path ChDir ruta myfile = "1.txt" fname = Dir(myfile) If fname = "" Then MsgBox "No existe archivo en esta carpeta" Exit Sub End If Open myfile For Input As #1 fila = 1 Cells.Clear While Not EOF(1) Line Input #1, cad Cells(fila, 2) = cad fila = fila + 1 Wend Close #1 Application.ScreenUpdating = True Application.DisplayAlerts = True End Sub
  10. 1. Tu tienes forma de convertirlos a TXT? 2. Si comprimes todos los archivos RTF a RAR o ZIP cuanto pesan Te lo pregunto porque la macro me funcion de TXT a Excel, no e podido hacerlo directamente desde RTF.
  11. ESTA SERIA LA IDEA? Identificacion-Prueba.xlsx
  12. Hola, solo cambia el año (sin texto) y listo. Espero te sirva calendario - años.xlsx
×
×
  • Create New...

Important Information

Privacy Policy