Jump to content

Puche

Members
  • Posts

    92
  • Joined

  • Last visited

  • Country

    Spain

1 Follower

About Puche

  • Birthday 05/05/1983

Profile information

  • Gender
    Hombre
  • Localización:
    Barcelona

Converted

  • Campos
    ;
  • Mi versión de Excel:
    0

Recent Profile Visitors

1,038 profile views

Puche's Achievements

  1. @Janlui Perfecto! Muchísimas gracias Faltaba poner el +1 por lo que veo. Doy por cerrado el tema. Saludos!
  2. @Janlui Documents.rar Aquí lo tienes. La macro que lo ejecuta esta en el modulo 1 del libro ExcelPaq. Saludos!
  3. @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.
  4. @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.
  5. 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,
×
×
  • Create New...

Important Information

Privacy Policy