Unificar Hojas de libro.

Hola Noe´s,

Suponiendo que:
1) la primera hoja del libro es donde quieres consolidar todas las hojas
2) todas las hojas tienen la misma estructura: numero y orden de columnas

...entonces podrias probar el codigo que te pongo a continuacion.

Este codigo lo puedes poner en cualquier modulo y llamar mediante un boton o
Alt+F8 y doble-clic sobre "Consolidar".

No me ha quedado claro el significado de la frase: "...e inclusive si en una
columna indica el

mes poner en cada hoja por mes..."

Saludos,
KL

'Inicio Codigo
Sub Consolidar()
Dim h As Long, hFinal As Worksheet
Dim rngOrig As Range, rngDest As Range
Dim Fila As Long, UltFila As Long, UltCol As Integer

Application.ScreenUpdating = False
With ThisWorkbook
Set hFinal = .Worksheets(1)
UltCol = hFinal.Columns(256).End(xlToLeft).Column
For h = 2 To .Worksheets.Count
Fila = hFinal.Range("A65536").End(xlUp).Row
With .Worksheets(h)
UltFila = .Range("A65536").End(xlUp).Row
Set rngOrig = .Range(.Cells(2, 1), _
.Cells(UltFila, UltCol))
End With
With hFinal
Set rngDest = .Range(.Cells(Fila + 1, 1), _
.Cells(Fila + UltFila - 1, UltCol))
End With
rngDest.Value = rngOrig.Value
Next h
End With
Application.ScreenUpdating = True
End Sub
'Fin Codigo

Gracias por tu ayuda y respuesta de esto lo pruebo y te cuento
saludos y feliz fin de semana


"KL" escribió:

Hola Noe´s,

Suponiendo que:
1) la primera hoja del libro es donde quieres consolidar todas las hojas
2) todas las hojas tienen la misma estructura: numero y orden de columnas

entonces podrias probar el codigo que te pongo a continuacion.

Este codigo lo puedes poner en cualquier modulo y llamar mediante un boton o
Alt+F8 y doble-clic sobre "Consolidar".

No me ha quedado claro el significado de la frase: "...e inclusive si en una
columna indica el
> mes poner en cada hoja por mes..."

Saludos,
KL

'Inicio Codigo
Sub Consolidar()
Dim h As Long, hFinal As Worksheet
Dim rngOrig As Range, rngDest As Range
Dim Fila As Long, UltFila As Long, UltCol As Integer

Application.ScreenUpdating = False
With ThisWorkbook
Set hFinal = .Worksheets(1)
UltCol = hFinal.Columns(256).End(xlToLeft).Column
For h = 2 To .Worksheets.Count
Fila = hFinal.Range("A65536").End(xlUp).Row
With .Worksheets(h)
UltFila = .Range("A65536").End(xlUp).Row
Set rngOrig = .Range(.Cells(2, 1), _
.Cells(UltFila, UltCol))
End With
With hFinal
Set rngDest = .Range(.Cells(Fila + 1, 1), _
.Cells(Fila + UltFila - 1, UltCol))
End With
rngDest.Value = rngOrig.Value
Next h
End With
Application.ScreenUpdating = True
End Sub
'Fin Codigo