Jump to content

Copiar datos de un libro a otro


Go to solution Solved by Janlui,

Recommended Posts

Hola buenas noches,

Estoy intentado crear una macro para copiar datos de una tabla de un libro a otro.

Este es el código que estoy utilizando:

Sub copiar_a_libro_dashboard()

Application.ScreenUpdating = False

'Variables
    Dim wbLibroOrigen As Workbook
    Dim wsHojaOrigen As Worksheet
    Dim wbLibroDestino As Workbook
    Dim wsHojaDestino As Worksheet
'Ruta
    Dim Ruta As String

    Ruta = "C:\Users\Puche\Desktop\PAQUETERIA PALAU\BASE DATOS.xlsx"

'Datos destino
    Set wbLibroDestino = Workbooks.Open(Ruta)
    Set wsHojaDestino = wbLibroDestino.Worksheets("Base Datos")

'Datos origen
    Set wbLibroOrigen = Workbooks(ThisWorkbook.Name)
    Set wsHojaOrigen = wbLibroOrigen.Worksheets("PALAU")

'Obtener la ultima posicion de la tabla de la hoja origen de datos
    final_origen = wsHojaOrigen.Range("A" & Rows.Count).End(xlUp).Row
    
'Obtener la ultima posicion de la tabla de la hoja destino de datos
    
    final_destino = wsHojaDestino.Range("A" & Rows.Count).End(xlUp).Row
    
'Copia los datos y los pega en el libro destino

    wsHojaOrigen.Range("A2:M2" & final_origen).Copy Destination:=wsHojaDestino.Range("A5:M5" & final_destino)

'Cierra libro y guarda
'Workbooks(wbLibroDestino.Name).Close SaveChanges:=False


End Sub

Cuando ejecuto la macro por primera vez, me copia bien los datos al otro libro (50 filas), el problema es cuando intento ejecutar la macro otra vez.

Debería de copiar los registros a partir de la fila 51 pero no funciona bien el código que tengo.

Espero me puedan decir donde tengo el error de código

Saludos,

 

Link to comment
Share on other sites

@Janlui

Bueno, solo tengo que cambiar el 

SaveChanges:=True

Para poder ver si realiza bien la macro, tengo comentada esa línea para que no me cierre el libro. 

El tema es que no me localiza bien la ultima fila del libro destino cuando intento volver a pasar datos nuevos.

 

Link to comment
Share on other sites

@Janlui

No es que me de un fallo, la macro no da ningún error.

Creo que no me he explicado bien..

El problema es que cuando ejecuto la macro por 2 vez, la intención es que vuelque los datos de nuevo pero teniendo en cuanta la ultima fila del libro de destino. Es decir, la primera vez vuelca 50 registros, por lo que cuando intento volcar la información por 2 vez, estos datos deberían de copiarse a partir de la linea 51 y no lo hace.

O bien no me copia nada o me las copiar en la fila 250, fuera de tabla.

Link to comment
Share on other sites

  • 4 weeks later...

se puede hacer una macro que copie distintas celdas seguidas y pegue el contenido de esas celdas en un sola por ejemplo tengo los nombres en la columna A1 y en la B1 Los apellidos; al ejecutar la macro quiero que tanto nombres y apellidos consten solo en una celda; es posible?... Saludos!

Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
  • Crear macros Excel

  • Posts

    • Antoni, si gracias disculpe acabo de responderte, si me funcion perfectamente
    • si muchas gracias me funciono perfectamente, que mal conmigo mismo que no lo respondi a tiempo, te pido disculpas en que memento se me fue lo que tenia que responderte...
    • Todavía estoy esperando que digas si te funcionó la respuesta a esta consulta https://ayudaexcel.com/foro/topic/45830-ayuda-con-una-macro-que-registre-los-datos-de-columna-a-dependiendo-de-la-columna-u-que-diga-no/
    • Buenos dias, expertos tengo una archivo que lo trabajo de forma manual; en la hoja "TARIFARIO" primero filtro en la columna K, luego filtro  en la columna C, y los registros filtrados comparo con los datos de la hoja "REDUNDANTE", entonces copio lo que lo corresponde y lo pego debajo de los datos filtrado, eso es la rutina hasta terminar todo. Ahora la pregunta es que si habra una macro que me ayude a realizar esos procesos para optimizar mi trabajo, la idea seria filtra lo que corresponde y ejecutar la macro. Por favor me puden ayudar si habria dicho codigo estare egradecido desde ya. Adjunto el archivo. REALIZAR MACROS.xlsm
    • Buenos días a tos mis colegas. Espero se encuentren con una salud excelente. Gracias Diego por sus palabras. Son muy reconfortantes. No soy de las personas que se rinden fácilmente, lucho hasta ver si existen posibilidades reales de logar lo que busco o hasta obtenerlo. De penurias ni hablar, creo que el mundo se ha convertido en un enorme CAOS, sobre todo después de esta horrible pandemia. Yo también soy de los "casados con excel" y mi esposa me dice "excel+excel", pero el camino recorrido no es nada comparado con el que me falta y ya tengo 56 años, las neuronas no son las mismas y el tiempo no perdona, pero sigo adelante, buscando la manera de aprender aunque sea un argumento de una función al día, con eso me siento satisfecho. Comparto con usted muchas cosas y tenemos un grupo de Miembros del Foro AyudaExcel que son verdaderos MAESTROS, por eso, cada vez que puedo trato de aprender de ellos, trato de absolver todo cuanto pueda. Mil gracias por sus palabras. Mis respetos y bendiciones y que tanto usted como su familia estén bien. Gracias a los demás miembros. Un abrazo Pino  
  • Recently Browsing

    • No registered users viewing this page.
×
×
  • Create New...

Important Information

Privacy Policy