Buenos días, la siguiente macro me copia en un solo excel los excel que selecciono. El problema es que me gustaría que solo me copiase el encabezado de uno de ellos y no de todos los excel, ¿alguien puede ayudarme?. Sub Abrir_Archivos() Dim Hoja As Object Application.ScreenUpdating = False 'Definir la variable como tipo Variante Dim X As Variant 'Abrir cuadro de dialogo X = Application.GetOpenFilename _ ("Excel Files (*.xlsx), *.xlsx", 2, "Abrir archivos", , True) 'Validar si se seleccionaron archivos If IsArray(X) Then ' Si se seleccionan 'Crea Libro nuevo Set newBook = Workbooks.Add 'Captura nombre de archivo destino donde se grabaran los archivos seleccionados A = ActiveWorkbook.Name For y = LBound(X) To UBound(X) Application.StatusBar = "Importando Archivos: " & X(y) Workbooks.Open X(y) b = ActiveWorkbook.Name For Each Hoja In ActiveWorkbook.Sheets Hoja.Copy after:=Workbooks(A).Sheets(Workbooks(A).Sheets.Count) Next Workbooks(b).Close False Next Application.StatusBar = "Listo" Call Unir_Hojas End If Application.ScreenUpdating = False End Sub Sub Unir_Hojas() Dim Sig As Byte, Eliminar As Boolean For Sig = 2 To Worksheets.Count Worksheets(Sig).UsedRange.Copy _ Worksheets(1).Range("a1000000").End(xlUp).Offset(1) Next Application.DisplayAlerts = False For Sig = 2 To Worksheets.Count Worksheets(2).Delete Next Application.DisplayAlerts = True End Sub Gracias de antemano

Bienvenido a la mayor comunidad de usuarios EXCEL

Regístrate gratis ahora para ver contenidos y descargas sin restricciones!

Regístrate gratis Ingresar

JavaScript está desactivado. Para una mejor experiencia, por favor active JavaScript en su navegador antes de continuar.

Macro Unir varios excel en uno solo

Autor del tema gonson
Fecha de inicio 28 Feb 2017

gonson

New member

28 Feb 2017

Buenos días,

la siguiente macro me copia en un solo excel los excel que selecciono. El problema es que me gustaría que solo me copiase el encabezado de uno de ellos y no de todos los excel...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

Iniciar sesión o registrarme para responder aquí.

Temas similares

Pregunta

Macro Unir varios excel en uno solo

Respuestas: 1

28 Feb 2017

gonson

Pregunta

Macro para Unir varios Archivos

Respuestas: 4

27 Oct 2014

JOSE MATTHEUZ

Resuelto

Ayuda macro para unir platillas en una sola Hoja

Respuestas: 6

12 Ene 2025

Miltiño

Pregunta

macro para unir libros en una hoja

Respuestas: 1

5 Jun 2024

Deleted member 10123

Pregunta

Unir PDF por medio de macro en excel

Respuestas: 1

23 Feb 2024

Abraham.Valencia

Pregunta

Macro para UNIR varias hojas de un libro en una sola.

Respuestas: 8

24 Feb 2022

hc3115

Pregunta

Macro unir 50 columnas en línea

Respuestas: 11

20 Oct 2021

dracon

Pregunta

Macro para unir todos archivos y hojas de cada archivo.

Respuestas: 1

26 Jun 2021

josuam

Pregunta

Unir archivos PDF generados por un MACRO.

Respuestas: 0

10 Abr 2019

CARLOSMCA01

Pregunta

Problemas con fechas en Macro "unir.xlslm"

Respuestas: 19

11 Mar 2019

Cacho R

Facebook X Bluesky LinkedIn Reddit Pinterest Tumblr WhatsApp Correo electrónico Enlace

Bienvenido a nuestro foro Excel 👋

Tenemos 135.000 usuarios registrados,
y 240.000 preguntas y respuestas Excel.

Primero 👉 regístrate gratis aquí 👈
para ver contenidos y descargas
sin restricciones!

Este sitio usa cookies para ayudar a personalizar el contenido, adaptar su experiencia y mantenerlo conectado si se registra.
Al continuar usando este sitio, usted está consintiendo nuestro uso de cookies.

Aceptar Saber más…

Volver

Arriba