Excel - Cómo pudiera unir varias hojas en una sola

Hola a todos necesito unir varias hojas en una sola lo he intentado pero cada vez que lo hago no me funciona ya que es todo por código y me da error y ya me.tiene loco. Le agradecería me.pudiera. ayudar. Es para un libro de registro de facturación. Gracias de antemano

• Registro-de-Facturas.xls.zip(7,3 KB)

No entiendo que es lo que quieres hacer.

Saludos.
\\//_

¡Claro, puedo ayudarte con eso! Para unir varias hojas en una sola en Excel a través de VBA (Visual Basic for Applications), puedes utilizar un código similar al siguiente:

vba
Copiar código
Sub UnirHojas()
Dim hojaDestino As Worksheet
Dim hoja As Worksheet
Dim ultimaFila As Long
Dim ultimaFilaDestino As Long
Dim rng As Range

' Definir la hoja de destino donde se unirán los datos
Set hojaDestino = ThisWorkbook.Sheets("HojaDestino")

' Loop a través de todas las hojas en el libro, excepto la hoja de destino
For Each hoja In ThisWorkbook.Sheets
If hoja.Name <> hojaDestino.Name Then
' Encontrar la última fila en la hoja de destino
ultimaFilaDestino = hojaDestino.Cells(hojaDestino.Rows.Count, "A").End(xlUp).Row

' Encontrar la última fila en la hoja actual
ultimaFila = hoja.Cells(hoja.Rows.Count, "A").End(xlUp).Row

' Copiar los datos desde la hoja actual a la hoja de destino
hoja.Range("A1:Z" & ultimaFila).Copy Destination:=hojaDestino.Range("A" & ultimaFilaDestino + 1)
End If
Next hoja
End Sub
Este código VBA recorre todas las hojas en tu libro, excepto la hoja de destino especificada (cambiar "HojaDestino" al nombre de tu hoja de destino), y copia los datos desde cada




Soy maestro de Posgrados en la escuela EBC | Me gusta la programación

No hay código en el archivo, pero además no se ha explicado con claridad el problema.
Las hojas del libro son diferentes, regularmente se unen hojas que tienen la misma estructura.