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.

Dale una revisada Apuesta de Futbol.xlsm

Sube el mapa en excel de las comarcasde Murcia con las superficies, y que colores quieres que se utilicen para cada rango de superficies o que quieres mostrar

Checa esto, lo dice mi amigo Google

Haz tu proceso de Copiado y pegado pero primero ponlo en Formato - Recalculo Manual y al terminar de hacer sub cambios o correcciones vuelve a dar Formato - Recalculo Automático o con la Tecla F9

Puede ser con una Macro?

Será esto? Sumar con 10%.xlsx

Dándole vista al resultado. Sorteo.xlsm

Será esto? Sorteo.xlsm

Hola, cuando haya cambios me comentas. Te dejo el resumen de Ocupación en Estanteria.

Recomendaciones: 1. No insertar ni borrar filas ni columnas en "ESTANTERIAS" 2. No tocar la Hoja CTRL es parte del proceso 3. En la hoja de ubicaciones la columna de unidades trata de poner numeros y no formula Espero te sirva. Estanteria - Almacen.xlsm