¿Se puede crear un macro para fusionar solo una cuantas hojas de todas las hojas de un libro excel?

La siguiente macro ejerce su función pero no sé como modificarla para que solo copie solo las hojas 1, 2, 3 y 4 por ejemplo. Existen otras hojas que no deseo que se fusionen, ya que sus datos no son importantes para lo que necesito hacer.

Macro:

Sub FusionarHojas()
On Error Resume Next
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Sheets.Add
Sheets("HOJAS FUSIONADAS").Delete
ActiveSheet.Name = "HOJAS FUSIONADAS"
FilaP = 1
For Each Hoja In Sheets
If Hoja.Name <> "HOJAS FUSIONADAS" Then
FilaC = Hoja.Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
ColumnaC = Hoja.Cells.Find("*", SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column
Hoja.Activate
Range(Cells(1, 1), Cells(FilaC, ColumnaC)).Copy
Sheets("HOJAS FUSIONADAS").Activate
Sheets("HOJAS FUSIONADAS").Range(Cells(FilaP, 1), Cells(FilaC + FilaP - 1, ColumnaC)).Select
ActiveSheet.Paste
FilaP = Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row + 1
End If
Next
End Sub

1 respuesta

Respuesta
1

De esta forma puedes incluir las hojas que quieres fusionar

Sub FusionarHojas()
On Error Resume Next
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Sheets.Add
Sheets("HOJAS FUSIONADAS").Delete
ActiveSheet.Name = "HOJAS FUSIONADAS"
FilaP = 1
For Each Hoja In Sheets
    Select Case Hoja.Name
    Case "Hoja1", "Hoja2", "Hoja3", "Hoja4", "etc"
        FilaC = Hoja.Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
        ColumnaC = Hoja.Cells.Find("*", SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column
        Hoja. Activate
        Range(Cells(1, 1), Cells(FilaC, ColumnaC)). Copy
        Sheets("HOJAS FUSIONADAS"). Activate
        Sheets("HOJAS FUSIONADAS"). Range(Cells(FilaP, 1), Cells(FilaC + FilaP - 1, ColumnaC)).Select
        ActiveSheet. Paste
        FilaP = Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row + 1
    End Select
Next
End Sub

Muchas gracias Dante,

Funcionó perfectamente. Todos ustedes son de gran ayuda para nosotros los simples mortales.... jajajaja

Saludos,

LR

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Actualizar datos en base de datos

¿Cómo agrego la opción de que antes de realizar una búsqueda nueva, o bien agregando un botón nuevo, actualice cualquier dato que se modifique, directamente en la base? En lectura simple sería: Hoja Búsqueda: Si se modifica cualquier dato, en rango...
1 respuesta

Eliminar filas de varias hojas a la vez

Me gustaría eliminar filas de varias hojas, cuyo rango de celdas contengan determinadas palabras y que se insertaran las filas eliminadas en otra hoja nueva llamada "HOJA DEFINITIVA". Las palabras en cuestión son: "obras completas" (las dos palabras...
1 respuesta

Macro Buscar Determinadas celdas con cierta fórmula y pegar el resultado de las mismas

Por internet he conseguido el siguiente código: On Error Resume Next For Each Hoja In Sheets For Fila = 1 To _ Hoja.Cells.Find("]Portada'!", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row For Columna = 1 To _ Hoja.Cells.Find("*",...
1 respuesta

Macro que busque los datos en otra hoja(mismo libro) y copie en otra.

Es urgente alguien me puede ayudar estoy elaborando una bse de datos en excel(2007). 1-El libro contiene lo siguiente: 2 hojas (consulta, base de datos). Quisiera insertar un TextBox en el cual ingresar los datos a buscar, 2 combobox (1. La lista de...
1 respuesta

Macro para buscar y desplazarse hasta la coincidencia

Quisiera saber como hacer una macro para buscar el contenido de A1 en un libro de excel y que al pulsar un botón me lleve hasta la coincidencia en cualquier otra hoja. Por ejemplo en A1 tengo un texto el cual escojo de una lista de validación y la...
1 respuesta

Reemplazar texto en Excel

Estoy intentando hacer una macro en Excel 2003 para que me busque un texto en un rango y cuando lo encuentre seleccione la celda y luego se mueva una celda abajo. Una vez posicionado allí tiene que sustituir una serie de caracteres. Hasta aquí me...
1 respuesta

Macro Diferenciar nombres parecidos en celdas

Junto con saludar y agradecer su ayuda anterior, necesito arreglar un pequeñito problema usando la macro: Como tengo varias celdas con nombres parecidos (bomba 14, bomba 141, bomba 142), la macro reconoce la palabra "bomba 14" e ingresa el dato, pero...
1 respuesta

Posición de celdas con un texto

Tenía esta macro desarrollada para que me informe la posición de las celdas en las que contiene un texto buscado: Sub buscar_cosas() On Error Resume Next Application.ScreenUpdating = False Range("J:K").Clear 'Esto debería ser variable... (sólo sirve...
1 respuesta

Proteger celdas con formato en VBA

Necesito proteger las celdas de una hoja que tengan un formato determinado. Estas celdas pueden hallarse en cualquier fila/columna de la hoja. Estoy usando la siguiente instrucción pero me da error 9 "subíndice fuera del intervalo"....
1 respuesta

Juntar información en una sola hoja

Espero que me puedan ayudar con una macro que permita juntar la información de 6 hojas que tengo en una sola hoja teniendo en cuenta que la información de cada hojapuede cambiar en cantidades, el formato que utilizo es una base de datos en 2003,...
1 respuesta