Macro Fusionar Hojas de Excel con ordenación

[darkyto]

Buenas necesitaria poder fusionar 3 hojas de excel, en las cuales el titulo sea "Seguimiento_" seguido del texto que sea. Intente hacerlo con una macro pero solo consigo que fusione 2 de las 3 hojas.

Necesitaría que en la hoja fusionada se ordenasen por la columna cliente y persona de a la a la z.

En la hoja de seguimiento anual dejo un ejemplo con una de las personas y la explicación de lo que necesitaría, no se si seria posible probé con varias macros y nada.

Muchas gracias un saludo.

 

Organización Formaciones Centro.xlsxFetching info...

[JSDJSD]

A ver si es esto lo que necesitas

[JSDJSD]

Sub ConsolidarSeguimientos(): Application.ScreenUpdating = False
    primeraCopia = True

    On Error Resume Next
    Set destino = Sheets("Seguimiento_Anual")
    If destino Is Nothing Then
        Set destino = Sheets.Add
        destino.Name = "Seguimiento_Anual"
    Else
        destino.Cells.Clear
    End If
    On Error GoTo 0

    For Each ws In ThisWorkbook.Worksheets
        If ws.Name Like "Seguimiento_*" And ws.Name <> "Seguimiento_Anual" Then
           
            If Application.WorksheetFunction.CountA(destino.Cells) = 0 Then
                ultimaFila = 1
            Else
                ultimaFila = destino.Cells(destino.Rows.Count, "A").End(xlUp).Row + 1
            End If

            If primeraCopia Then
                ws.UsedRange.Copy Destination:=destino.Cells(ultimaFila, 1)
                primeraCopia = False
            Else
                ws.UsedRange.Offset(1, 0).Resize(ws.UsedRange.Rows.Count - 1).Copy _
                    Destination:=destino.Cells(ultimaFila, 1)
            End If
        End If
    Next ws

    ultimaFila = destino.Cells(destino.Rows.Count, "A").End(xlUp).Row
    
    Dim i As Long
    For i = ultimaFila To 2 Step -1
        If IsEmpty(destino.Cells(i, 3)) Then
            destino.Rows(i).Delete
        End If
    Next i
 
    With destino.Sort
        .SortFields.Clear
        .SortFields.Add Key:=destino.Range("A2:A" & ultimaFila), Order:=xlAscending
        .SortFields.Add Key:=destino.Range("B2:B" & ultimaFila), Order:=xlAscending
        .SetRange destino.Range("A1").CurrentRegion
        .Header = xlYes
        .Apply
    End With
    
    destino.UsedRange.Columns.AutoFit
    
    MsgBox "Consolidación completada.", vbInformation
End Sub

 

Organización Formaciones Centro (1).xlsmFetching info...

[darkyto]

Una duda JSD como funciona el botón consolidar trato de darle pero no funciona. Tengo que ejecutarla con Alt+ F8.  ¿Podría ser el botón en vez de consolidar, tener el nombre actualizar y que estuviera en cada hoja? Para en caso de que no estuviera la hoja de seguimiento anual la crease y si ya estuviera creada la actualizase.

¿Y como podría mover el botón?

Gracias un saludo.

Editado el el 8 de junio por darkyto

[Antoni]

Click derecho sobre el botón\Asignar macro y escoge la macro que quieras.

[JSDJSD]

  En 8/6/2024 at 23:44 , darkyto dijo:

como funciona el botón consolidar trato de darle pero no funciona.

Expand  

Tal cual tienes el archivo subido tiene que funcionar si o si, simplemente darle un click sobre el botón

 

[JSDJSD]

  En 8/6/2024 at 23:44 , darkyto dijo:

¿Podría ser el botón en vez de consolidar, tener el nombre actualizar

Expand  

Sin ningún tipo de problema

[JSDJSD]

  En 8/6/2024 at 23:44 , darkyto dijo:

Para en caso de que no estuviera la hoja de seguimiento anual la crease y si ya estuviera creada la actualizase

Expand  

Esto ya lo hace la macro, no hay que modificarle nada

[darkyto]

Perdona JSD ¿para crear el botón también  en las otras hojas como sería?

[JSDJSD]

De todos modos te dejo una opción que creo será mucho más cómoda para ti. Observa  que en la barra ribbon tienes una  nueva pestaña llamada Consolidar hojas en la que tienes un botón llamador Actualizar, simplemente púlsalo y se ejecuta la macro independientemente en la hoja que te encuentres. Si la hoja existe la actualiza y si no existe te la crea. 

[JSDJSD]

Aquí tienes el archivo, prueba y comenta

Organización Formaciones Centro (1 opcion).xlsmFetching info...

[JSDJSD]

  En 9/6/2024 at 10:15 , darkyto dijo:

Perdona JSD ¿para crear el botón también  en las otras hojas como sería?

Expand  

[JSDJSD]

Otra opción la que te comenta el Maestro Antoni 

  En 9/6/2024 at 9:04 , Antoni dijo:

Click derecho sobre el botón\Asignar macro y escoge la macro que quieras.

Expand  

[JSDJSD]

La forma del botón color y texto de la figura seleccionada según tu gusto

[darkyto]

  En 9/6/2024 at 10:15 , JSDJSD dijo:

De todos modos te dejo una opción que creo será mucho más cómoda para ti. Observa  que en la barra ribbon tienes una  nueva pestaña llamada Consolidar hojas en la que tienes un botón llamador Actualizar, simplemente púlsalo y se ejecuta la macro independientemente en la hoja que te encuentres. Si la hoja existe la actualiza y si no existe te la crea. 

Expand  

Esta opción me encanta se ve mucho más profesional, ¿es muy difícil de hacer?

[JSDJSD]

Se hace mediante Custom UI Editor y programación XML

[JSDJSD]

Este sería el código de tu botón

[darkyto]

  En 9/6/2024 at 11:17 , JSDJSD dijo:

Este sería el código de tu botón

Expand  

No me permiten instalar addon en Excel, retomando el tema de la macro trate de crear botones dentro de las hojas, también intente adaptar la macro para que cuando se crease la hoja seguimiento anual siempre la mostrara al final y quisiera que en la columna estado mostrara primero los planificados y luego los meses en orden, pero no se que he tocado que en seguimiento anual me duplica el boton cada vez que hago el proceso y no funciona bien la macro.

Te adjunto el archivo modificado por si a ti se te ocurre algo.

Organización Formaciones Centro VBA.xlsmFetching info...

Editado el el 9 de junio por darkyto

[JSDJSD]

Abre un nuevo tema y un ejemplo del resultado esperado