Macro para unir tres hojas de excel en una sola

. 06.04.17 #VBA consolidar/juntar hojas en una

Buenas tardes, Montse

En efecto, contando con la macro podrás hacerlo "fácilmente".

Lo que no es tan fácil es armar esa rutina, como verá en la que te armé.

Al principio de ella, notarás unas variables donde informarle en qué hoja juntar todo y a partir de qué celda. Al fin de la prueba, usé unos rango que pueden diferir de los tuyos, pero puedes reemplazarla por la que quieras en esas variables.

También hay una variable matriz, que te permite agregar varias hojas o cambiarle el nombre.

El procedimiento se encargará de copiar y pegar los datos de todas las hojas que informes allí.

Con eso en mente y considerando que actualmente cada hoja de MS Excel cuenta con apenas un poco más de un millón de lineas, haz lo siguiente:

Accede al Editor de VBA (Atajo: Alt + F11), inserta un módulo - si no tuvieras uno ya- y pega el siguiente código:

Sub Rejunta()
' MONTSE, reemplaza el contenido de estas dos variables por los correspondientes a tu archivo:
HojaDest = "Seguimiento Total" 'Hoja donde consolidar las otras
CeldaIni = "A2" ' celda donde empezar a pegar el contenido de las otras hojas
HojaAtraer = Array("Hoja 1", "Hoja 2", "Hoja 3") ' incluir aquí los nombres de las hojas a incluir en la consolidada
TitOrigen = "B2:N2" 'Rango donde están los títulos de las hojas a traer
'---- fin Variables
'
' VBA coding by FeJoAl
'
'---- inicio de rutina:
'  
'Borrado de datos anteriores
'  
Sheets(HojaDest). Range(Range(CeldaIni). Offset(1), Sheets(HojaDest). Range(CeldaIni). SpecialCells(xlLastCell). Address). Clear
'Ciclo de consolidación de hojas
'  
For laHoja = 0 To UBound(HojaAtraer)
    Application.ScreenUpdating = False
    UltFilaD = Cells(Cells(Rows.Count, Sheets(HojaDest).Range(CeldaIni).Column).End(xlUp).Row + 1, Sheets(HojaDest).Range(CeldaIni).Column).Address
    HojaCop = HojaAtraer(laHoja)
    With Sheets(HojaCop)
        UltFila = .Range(TitOrigen).SpecialCells(xlLastCell).Address
        .Range(.Range(TitOrigen).Offset(1), .Range(UltFila)).Copy
        ElMensaje = ElMensaje & Chr(10) & HojaCop
        Sheets(HojaDest).Range(UltFilaD).PasteSpecial xlPasteValues
        Sheets(HojaDest).Range(UltFilaD).PasteSpecial xlFormats
        Application.CutCopyMode = False
        cont = cont + 1
    End With
    Application.ScreenUpdating = True
Next
Sheets(HojaDest).UsedRange.EntireColumn.AutoFit
'Eliminación de filas vacías:
'  
UltCelda = Sheets(HojaDest).Range(CeldaIni).SpecialCells(xlLastCell).Address
ElRango = Range(Range(CeldaIni), UltCelda).Address
For LaFila = Range(ElRango).Rows.Count - 1 To 0 Step -1
    ChkCount = Range(Range(CeldaIni). Offset(LaFila), Range(CeldaIni). Offset(LaFila, Range(ElRango). Columns. Count)). Address
    ChkCount = Application.WorksheetFunction.CountA(Range(ChkCount))
    If ChkCount = 0 Then Range(CeldaIni).Offset(LaFila).EntireRow.Delete
Next
Range(CeldaIni).Select
Application.ScreenUpdating = True
ElMensaje = IIf(cont = 0, "NO SE TRASLADO HOJA ALGUNA", "Se transfirieron a la hoja " & HojaDest & Chr(10) & " las siguientes " & cont & " hojas:" & Chr(10) & ElMensaje)
TipoMens = IIf(cont = 0, vbCritical, vbInformation)
ElTitulo = IIf(cont = 0, "NO SE HIZO NADA", "TERMINADO!")
Application.ScreenUpdating = True
MsgBox ElMensaje, TipoMens, ElTitulo
End Sub

Pruebalo con tu caso real -y, si te sirviera, agradeceré que califiques mi contribución- o escribeme de nuevo aquí, si necesitas más apoyo con esto.

Saludos

Fernando

.

Hola Fernando! 

Antes que nada mil gracias por tu ayuda! Ahora, ya que tengo cero conocimiento de macros... Tengo que pegar TODO lo que me enviaste? 

Habría la posibilidad de enviarte el documento y me ayudes?? Porque creo que la estoy liando más de lo que me gustaría?? 

Mil mil gracias!! 

.

Buenos días, Montse

Efectivamente, deberías acceder a la pantalla de edición de VBA con Alt + F11:

Allí das Insertar y luego "Módulo" y en el panel que te aparece a la derecha pegar el código que te pasé en la ventana de códigos, desde Sub Rejunta() hasta End Sub.

Ten en cuenta que puede ser que necesites modificar el contenido de las variables que te indico al incio de ese código, de acuerdo a la estructura de tu planilla:

' MONTSE, reemplaza el contenido de estas dos variables por los correspondientes a tu archivo:
HojaDest = "Seguimiento Total" 'Hoja donde consolidar las otras
CeldaIni = "A2" ' celda donde empezar a pegar el contenido de las otras hojas
HojaAtraer = Array("Hoja 1", "Hoja 2", "Hoja 3") ' incluir aquí los nombres de las hojas a incluir en la consolidada
TitOrigen = "B2:N2" 'Rango donde están los títulos de las hojas a traer

Luego, desde la hoja de "Seguimiento Total", ejecuta la macro Rejunta.

Si, aún así, necesitas que lo intergre a tu archivo, puedes enviármelo a:

Un saludo

Fernando

.

Te envíe el archivo, mil gracias por tu ayuda! 

Montse. 

.

Hola, Montse

Acabo de enviarte el archivo funcionando a tu cuenta de mail

Revísalo y comentame.

Muy buen fin de semana

Fer

.

Fer:

Eres lo máximo!! ¡Mil Gracias! Es justo lo que necesitaba, tu ayuda y disposición es increíble! Me siento muy afortunada de haber contado con tus conocimientos!! Y espero seguir aprendiendo de ti en el futuro. 

100% recomendable, tanto por amabilidad como por conocimientos y por dar ese extra que tanto nos hace falta en esta vida!! 

Una vez más, mil gracias!! 

Hola Fer!

Una pregunta... tengo un problema con el excel en onedrive no me deja editarlo, porque lo usamos los tres a la vez... Entonces estaba pensando si se pueden hacer dos excel... uno donde solo estén las tres pestañas de seguimiento individual (que sea editable), y en el otro excel que sea el de seguimiento comercial... donde estén las macro- las pivot y que tomen la información del seguimiento editable...

¿No se si me explico? ¿Se puede?

Mil gracias.