Bienvenido a la mayor comunidad de usuarios EXCEL

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

Regístrate gratis

Copiar a otro libro

HERNANDOHEROHI

Active member
Registrado
21 Jun 2019
Mensajes
185
Señores buenas noches, una ves molestando y solicitando de su apoyo…

Tengo un libro original con una tabla, necesito pasar lo misto a otro libro y se valla guardando en la otra tabla siempre en...
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í
 

Adjuntos

    Sin permisos de acceso
Solución
Hola @HERNANDOHEROHI (y Leopoldo),
Si puede ocurrir que en la Hoja BASE del Libro DESTINO se añadan filas encima de la Tabla1 o que la Tabla1 se mueva a otro rango, este código solo depende de la Tabla, da igual cual sea su posición en la Hoja:
Código:
Sub CopiarDatos()
    Dim TbO As ListObject: Set TbO = Workbooks("ORIGEN.xlsm").Worksheets("Datos").ListObjects("Tabla1")
    Dim TbD As ListObject: Set TbD = Workbooks("DESTINO.xlsm").Worksheets("BASE").ListObjects("Tabla1")
    'La fila siguiente es para que no de error si se eliminan todas las filas de la Tabla
    If TbD.ListRows.Count = 0 Then TbD.ListRows.Add (1)
    'Si hay más de una fila, añade una al final y copia a partir de ella los datos de la Tabla Origen...
Prueba:

Código:
Sub CopiarDatos()
    Dim TbO As ListObject: Set TbO = Workbooks("ORIGEN.xlsm").Worksheets("Datos").ListObjects(1)
    Dim TbD As ListObject: Set TbD =...
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í
 
Hola @HERNANDOHEROHI (y Leopoldo),
Si puede ocurrir que en la Hoja BASE del Libro DESTINO se añadan filas encima de la Tabla1 o que la Tabla1 se mueva a otro rango, este código...
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í
 
Última edición:
Volver
Arriba