Compañeros buenos días, pretendo crear una macro que copie los datos de múltiples hojasOrigen y se agregue en una HojaDestino pero me encuentro con el problema que en algunos libros su hojaOrigen en una columna no tiene datos pero las siguiente si, la macro solo me copia hasta la columna sin datos, como puedo corregirlo. Sub ImportarDatosHojasOrigen() Application.ScreenUpdating = False Application.Calculation = xlCalculationManual Application.EnableEvents = False ActiveSheet.DisplayPageBreaks = False Dim WorkBookOrigen As Workbook Dim wsOrigen As Excel.Worksheet, _ wsDestino As Excel.Worksheet, _ rngOrigen As Excel.Range, _ rngDestino As Excel.Range, _ NombreArchivo As String, _ Carpeta As String Carpeta = ActiveWorkbook.Path & "\" nArchivo = 1 NombreArchivo = Dir(Carpeta & "f" & "*.xl*") Do While Len(NombreArchivo) > 0 Set WorkBookOrigen = Workbooks.Open(Carpeta & NombreArchivo) NombreArchivo = Dir() ThisWorkbook.Activate Set wsOrigen = WorkBookOrigen.Worksheets(1) Set wsDestino = Worksheets(1) Const celdaOrigen = "A2" Set rngOrigen = wsOrigen.Range(celdaOrigen) wsOrigen.Activate rngOrigen.Select Range(Selection, Selection.End(xlDown)).Select Range(Selection, Selection.End(xlToRight)).Select Selection.Copy Errores: If Err.Number = 1004 Then wsOrigen.Activate rngOrigen.Select Range(Selection, Selection.End(xlToRight)).Select Selection.Copy End If For n = 1 To 1 wsDestino.Activate On Error GoTo Errores wsDestino.Cells(Columns.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues Next n Application.CutCopyMode = False WorkBookOrigen.Save WorkBookOrigen.Close nArchivo = nArchivo + 1 Loop j = nArchivo - 1 Range("A1").Select Application.ScreenUpdating = True Application.Calculation = xlCalculationAutomatic Application.EnableEvents = True ActiveSheet.DisplayPageBreaks = True Application.CutCopyMode = False End Sub

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.

Copiar datos de múltiples hojasorigen en una hojadestino

Autor del tema Dilop22
Fecha de inicio 22 Feb 2016

Dilop22

New member

22 Feb 2016

Compañeros buenos días, pretendo crear una macro que copie los datos de múltiples hojasOrigen y se agregue en una HojaDestino pero me encuentro con el problema que en algunos libros su hojaOrigen...

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

COPIAR DATOS CELDA A CELDA DE UNA COLUMNA A MÚLTIPLES HOJAS

Respuestas: 0

6 Sep 2018

rrequena

Pregunta

Copiar datos de 2 pestañas

Respuestas: 7

11 Ago 2026

jelsir79

Resuelto

Macro copiar datos a otra hoja según condición

Respuestas: 3

19 Dic 2025

Leopoldo Blancas

Resuelto

Buscar datos en otro archivo y copiar en la hoja activa

Respuestas: 12

2 Dic 2025

jcvelez

Pregunta

Copiar filas de datos de una hoja a otra - (celda de validación)

Respuestas: 3

25 Nov 2025

Erik Lopez

Pregunta

Macro para copiar y pegar datos filtrados mediante boton

Respuestas: 2

12 Jul 2025

Leopoldo Blancas

Resuelto

Macro para copiar valores de otro documento según datos

Respuestas: 2

15 Nov 2024

Rafafa1

Resuelto

Copiar datos en otro rango si el anterior esta ocupado.

Respuestas: 1

6 Nov 2024

Abraham.Valencia

Pregunta

Copiar datos desde una Hoja a otra en rangos numerados

Respuestas: 5

13 Oct 2024

Miltiño

Pregunta

Copiar datos filtrados de un libro abierto a otro libro

Respuestas: 8

3 Oct 2024

crengifo1726

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