Jump to content

Recommended Posts

Saludos

La verdad no se que pasa en estos momentos con la pagina del foro AyudaExcel, parecería que entro al estado de mundos paralelos. Cuando hago clic en actualizar pagina se ve unos resultados donde he participado pero no veo mi mensaje, le vuelvo a actualizar y se ve otro similar pero allí ya no esta mi mensaje pero si el icono de mi perfil que hace notar que he estado..son cambios de pagina similares, en uno consta ciertas cosas en la otra ya no.

Link to post
Share on other sites
  • Crear macros Excel

  • Posts

    • Muchas gracias!!! Funciona a la perfección. Un saludo  
    • Sin ver la solución de Mauricio: Sub filtrar() ' ' filtrar Macro ' ' ActiveSheet.Range("$C$3:$C$4962").AutoFilter Field:=1, Criteria1:=Array( _ "</BCE:Balanza>", "<?xml version=""1.0"" encoding=""UTF-8""?>", _ "<BCE:Balanza xmlns:BCE=""http://www.sat.gob.mx/esquemas/ContabilidadE/1_3/BalanzaComprobacion"" xmlns:xsi=""http://www.w3.org/2001/XMLSchema-instance""", _ "<BCE:Ctas NumCta=""100-""", "<BCE:Ctas NumCta=""101-""", _ "<BCE:Ctas NumCta=""102-""", "<BCE:Ctas NumCta=""200-""", _ "<BCE:Ctas NumCta=""201-""", "<BCE:Ctas NumCta=""301-""", _ "<BCE:Ctas NumCta=""302-""", "<BCE:Ctas NumCta=""303-""", _ "<BCE:Ctas NumCta=""400-""", "<BCE:Ctas NumCta=""401-""", _ "<BCE:Ctas NumCta=""402-""", "<BCE:Ctas NumCta=""501-""", _ "<BCE:Ctas NumCta=""502-""", "<BCE:Ctas NumCta=""503-""", _ "<BCE:Ctas NumCta=""504-""", "<BCE:Ctas NumCta=""601-""", _ "<BCE:Ctas NumCta=""602-""", "Anio=""2020""", "Debe=""0.00""", "Debe=""10900.00""", _ "Debe=""14854.75""", "Debe=""1538.16""", "Debe=""19684.00""", "Debe=""19726.34""", _ "Debe=""2593.76""", "Debe=""298831.38""", "Debe=""376399.24""", _ "Debe=""38831.90""", "Debe=""422506.96""", "Debe=""4946.00""", _ "Debe=""535673.00""", "Debe=""54279.41""", "Debe=""55014.62""", _ "Debe=""689769.61""", "Debe=""700.00""", "Debe=""70063.90""", "Debe=""724350.70""", _ "Debe=""7353.00""", "Debe=""7524.38""", "Debe=""7524.50""", "Debe=""757568.34""", _ "Debe=""788022.29""", "Debe=""797477.71""", "Debe=""850.00""", "Haber=""0.00""", _ "Haber=""10000.00""", "Haber=""10595.00""", "Haber=""108558.82""", _ "Haber=""121.00""", "Haber=""13405.50""", "Haber=""13641.58""", _ "Haber=""155190.18""", "Haber=""156.59""", "Haber=""178.00""", "Haber=""1802.31""", _ "Haber=""2018.66""", "Haber=""2088.00""", "Haber=""21350.00""", _ "Haber=""23289.44""", "Haber=""2593.76""", "Haber=""2914.44""") End Sub  
    • Sub Transponer() Application.ScreenUpdating = False fila = 1 For x = 2 To Range("A" & Rows.Count).End(xlUp).Row cadena = Split(Range("B" & x), "|") For y = 0 To UBound(cadena) fila = fila + 1 Range("D" & fila) = Range("A" & x) Range("E" & fila) = cadena(y) Next Next End Sub  
    • Hola!! A ver si alguien me puede ayudar con una macro, necesito transponer  los registros que están contenido en una celda que tienen un separador "|". Pongo un ejemplo: Inicialmente tengo esto 2 columnas: refe  productos A       1|2|3|4|5 B       6|7 Y quiero que la macro en cuestión me lo haga así: refe productos A      1 A      2 A      3 A      4 A      5 B     6TRANSPONER CADENA TANTAS VECES SE REPITA.xlsx B     7   Muchas gracias de antemano. Un saludo.
    • me imagino, aun asi, en los enlaces esos no dicen como se hace en excel no?
  • Recently Browsing

    No registered users viewing this page.

×
×
  • Create New...

Important Information

Privacy Policy