Puche

@Janlui Perfecto! Muchísimas gracias Faltaba poner el +1 por lo que veo. Doy por cerrado el tema. Saludos!

@Janlui Documents.rar Aquí lo tienes. La macro que lo ejecuta esta en el modulo 1 del libro ExcelPaq. Saludos!

@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.

@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.

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,

@JSDJSD Hola buenas tardes, He estado probando el archivo en mi trabajo para ver si era por un tema de actualización de mi excel o algo así, pero no me ha funcionado bien ahí tampoco. Entiendo que el código funciona bien y debe ser algo externo a excel, o eso creo..XD En todo caso, doy por cerrado el tema ya que imagino que poco mas se puede hacer. Una vez mas, mil gracias por tu ayuda! Saludos,

@JSDJSD Mañana lo pruebo en el trabajo, creo que mi excel no funciona muy bien... Te digo algo! Mil gracias como siempre

Hola @JSDJSD Me da la sensación de que no funciona bien... He eliminado todos los registros para asegurarme de que no tienen tracking distintos, ahora mismo solo tengo 5 registros, si por ejemplo seleccionas registro de la fila 5 "contacto Susana Lopez", este también esta en la hoja de Terrassa. No me la elimina en dicha hoja, solamente en la principal. Adjunto archivo nuevo para que puedas ver lo que te digo. Saludos! ExcelPaq.xlsm

@JSDJSD, Si, lo se. He realizado un registro nuevo para asegurarme de que tiene el mismo numero de tracking pero aun así no elimina en ambas hojas. A ver si averiguas donde esta el error o que pasa exactamente. Saludos y mil gracias!

Hola @JSDJSD, Lo he probado y no me funciona, solo me elimina el registro de la pagina principal. Otra opción sería poner un botón de Eliminar en cada pagina del multilistbox pero no es muy cómodo para trabajar así. Espero me puedas ayudar. Saludos y gracias y una vez mas!

Hola @JSDJSD Siento la demora en contestar, con las fiestas y demás no he tenido tiempo de ponerme en ello Creo que ahora si funciona bien lo de editar. He estado intentando algunas opciones para aplicar lo mismo en eliminar y no lo consigo.. este es el código que intento aplicar pero no funciona bien. Dim buscado As Variant Dim hojabuscada As String buscado = txt_tracking hojabuscada = txt_observaciones With ListPalau If MsgBox("Estas seguro de que quieres eliminar el registro seleccionado?", _ vbYesNo + vbQuestion, "Eliminar resgitros") = vbYes Then For a = .ListCount - 1 To 0 Step -1 If .Selected(a) = True Then Set Celda = Sheets("PALAU").Columns("B").Find(.List(a, 1), , , xlWhole) Sheets("PALAU").Rows(Celda.Row).Delete If hojabuscada = "HANGAR" Or hojabuscada = "TERRASSA" Or hojabuscada = "LLIÇA" Or hojabuscada = "PARETS" Then For aa = 1 To Sheets(hojabuscada).Range("A" & Rows.Count).End(xlUp).Row If Sheets(hojabuscada).Cells(aa, 2) = buscado Then Sheets(hojabuscada).Rows(Celda.Row).Delete End If Next aa End If He intentado aplicar el mismo concepto dentro de lo que entiendo del código en el botón Eliminar. Adjunto archivo para que puedas revisar. Saludos y gracias! ExcelPaq.xlsm

@JSDJSD, Mira, si por ejemplo seleccionas el registro de la fila 17 (proveedor "Mencio"), al modificar transportista y bultos, la modificación la hace bien en la hoja 1, pero si vas a la hoja de Parets (donde esta el duplicado), la modificación no se hace y realiza una entrada nueva fuera de la tabla. ExcelPaq (2).xlsm

@JSDJSD Te adjunto un archivo para que puedas realizar pruebas mejor. ExcelPaq (2).xlsm

Hola @JSDJSD Lo primero, gracias por tu ayuda una vez mas He estado probando y no funciona muy bien creo, te adjunto un video para que veas. 20220104_204545.mp4 A parte de que no realiza bien los cambios, me crea un duplicado y fuera de tabla.

Hola buenos días y Feliz año a tod@s A ver si alguien me puede ayudar con esto. Tengo un UserFrom el cual me realiza entradas, edita, elimina, etc. Las entradas generales siempre se hacen el pagina 1 del Multilistbox, y estas en tienen una condición de que si por ejemplo en la columna de observaciones pongo "HANGAR", entonces debe realizar el registro en la pagina 1 (Principal) y la pagina 2 (Hangar). Todo esto funciona perfecto, el problema que tengo es que cuando elimino o edito un registro, estas acciones solo me las hace en la pagina principal (hoja1 del Multilistbox) Es posible editar y eliminar registros y que según el numero de Tracking haga la acción en ambas hojas? Un saludo y gracias! ExcelPaq.xlsm