Jump to content

Janlui

Members
  • Posts

    560
  • Joined

  • Last visited

  • Days Won

    57

Janlui last won the day on May 20

Janlui had the most liked content!

3 Followers

About Janlui

  • Birthday 04/01/1960

Recent Profile Visitors

2,128 profile views

Janlui's Achievements

  1. Yo veo esto en el XML en esta factura 1549 y tu tienes otra cifra en tu hoja MKT
  2. Te refieres a esto? Ayuda grupos y subgrupos.xlsx
  3. Lo que veo que la factura 1549 tiene 4 importes y en tu Hoja MKT tienes solo 1 y no da la suma de la factura... es correcto?
  4. Los archivos XML deberán estar en la misma carpeta del archivo Excel. Sub EXTRAE() Sheets("READFACT").Select Range("A1:ZZ10000").ClearContents RUTA = "TEXT;" & ActiveWorkbook.Path & "\" Dim ARCH(2) As String ARCH(1) = "D77368930-KD033F0000001548.xml" ARCH(2) = "D77368930-KD033F0000001549.xml" For I = 1 To 2 Cells(1, I) = ARCH(I) ARCHIVO = ARCH(I) With ActiveSheet.QueryTables.Add(Connection:=RUTA & ARCHIVO, Destination:=Cells(4, I)) .Name = ARCHIVO .FieldNames = True .RowNumbers = False .FillAdjacentFormulas = False .PreserveFormatting = True .RefreshOnFileOpen = False .RefreshStyle = xlInsertDeleteCells .SavePassword = False .SaveData = True .AdjustColumnWidth = True .RefreshPeriod = 0 .TextFilePromptOnRefresh = False .TextFilePlatform = 1252 .TextFileStartRow = 1 .TextFileParseType = xlDelimited .TextFileTextQualifier = xlTextQualifierDoubleQuote .TextFileConsecutiveDelimiter = False .TextFileTabDelimiter = True .TextFileSemicolonDelimiter = False .TextFileCommaDelimiter = False .TextFileSpaceDelimiter = False .TextFileColumnDataTypes = Array(1) .TextFileTrailingMinusNumbers = True .Refresh BackgroundQuery:=False End With Next End Sub Espero te sirva
  5. Sube tu archivo excel con tu macro y 2 ejemplos (archivos) XML
  6. Puedes subir una parte de tu archivo?
  7. Agregue una Hoja y apliqué solo formato condicional. Espero te sirva Calendario formato condicional.xlsm
  8. No solo fué la macro, hice vario cambios, Mejor date de alta en el foro
  9. Revisa la macro y te dará una idea. Te puse unas notas en el excel. Espero te sirva. banderas (1).xlsm
  10. Si tienes el archivo con las banderas, subelo para avanzar mas rapido
  11. Mejor te mando tu archivo con la macro caracter raro.xlsm
  12. cambia esta linea, pon dentro de las comillas "AQUI" el caracter que tienes al final de tus datos, ya vi que no lo registra este editor Z = InStr(Cells(r, c), "AQUI")
  13. Prueba esto: Sub depura() uc = ActiveSheet.Rows("1").Find("*", searchorder:=xlByColumns, searchdirection:=xlPrevious).Column ur = ActiveSheet.Columns("b").Find("*", searchorder:=xlByRows, searchdirection:=xlPrevious).Row For r = 1 To ur For c = 1 To uc Z = InStr(Cells(r, c), "") If Z > 0 Then Cells(r, c) = Left(Cells(r, c), Z - 1) End If Next Next End Sub
  14. En la parte inferior, coloque funciones para calcular los puntos. Te puse, dale una revisada.
×
×
  • Create New...

Important Information

Privacy Policy