Janlui

Yo veo esto en el XML en esta factura 1549 y tu tienes otra cifra en tu hoja MKT

No vi tu proceso para extraer

Te refieres a esto? Ayuda grupos y subgrupos.xlsx

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?

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

Sube tu archivo excel con tu macro y 2 ejemplos (archivos) XML

Puedes subir una parte de tu archivo?

Agregue una Hoja y apliqué solo formato condicional. Espero te sirva Calendario formato condicional.xlsm

No solo fué la macro, hice vario cambios, Mejor date de alta en el foro

Revisa la macro y te dará una idea. Te puse unas notas en el excel. Espero te sirva. banderas (1).xlsm

Si tienes el archivo con las banderas, subelo para avanzar mas rapido

Mejor te mando tu archivo con la macro caracter raro.xlsm

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")

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

En la parte inferior, coloque funciones para calcular los puntos. Te puse, dale una revisada.