Jump to content

Janlui

Members
  • Posts

    560
  • Joined

  • Last visited

  • Days Won

    57

Everything posted by Janlui

  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.
  15. Dale una revisada Apuesta de Futbol.xlsm
  16. 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
  17. 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
  18. Será esto? Sumar con 10%.xlsx
  19. Hola, cuando haya cambios me comentas. Te dejo el resumen de Ocupación en Estanteria.
  20. 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
×
×
  • Create New...

Important Information

Privacy Policy