Unificar Hojas de libro.

21/05/2005 - 16:52 por Noe´s | Informe spam
Hola a todos hay alguna formula o macro en el que pueda unificar ejemplo 5
hojas de un libro en una sola hoja e inclusive si en una columna indica el
mes poner en cada hoja por mes, gracias y saludos.

NOE´S

Preguntas similare

Leer las respuestas

#1 KL
21/05/2005 - 23:28 | Informe spam
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
Respuesta Responder a este mensaje
#2 Noe´s
22/05/2005 - 02:51 | Informe spam
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



email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida