Transferir datos de un libro excel a otro. Para Elsa Matilde
Hola Elsa,
Era para que revises la macro que te he mandado.
No he tenido tiempo aún para la otra consulta.
No me parece una buena idea volver a copiar todo el origen en la otra hoja, porque perderás todos los cambios realizados con las opciones del checkbox. Además porque tenés que eliminar la hoja y volverla a crear, o en su defecto necesitas una rutina extra para eliminar los objetos que no siempre se eliminan con las celdas.
Sí es buena idea la de buscar registros y si no los encuentra agregarlos allí, tal como fué la última macro enviada.
Solo hace falta que guardes en una variable el nro de fila. No tengo a mano esa macro pero recuerdo que utilizaba una línea con esto:
Set busco = ....
' si lo encontró guardo la fila de 'busco'
filax = busco.row
'e inserto en el otro libro una fila allí
workbooks(2).Sheets(x).Range("A" & filax).entirerow.insert
'y ahora copiás el registro aquí, a este destino: workbooks(2). Sheets(x).Range("A" & filax)
Solo quedaría ver cómo insertás un control = al que se encuentra en la fila de arriba ... pero empezá ajustando la macro de copia y luego escribímela aquí. Si te parece finalizá 1 consulta y dejá 1 sola abierta para no liarnos.
Sdos
Elsa
Hola Elsa,
No la hoja que tiene todas las macros, los botones y los checkbok es la hoja de destino. La de origen no tiene nada de macro. Solamente los nuevos productos que se actualizan semanalmente, los nuevos productos y los precios. Esa es la base de datos de la cual tiene que tirar el destino.
Cuando te envíe los archivos ahi vienen el destino como seria. Por eso tiene que hacer la copia de los nuevos productos conservando todo el formato y macro de la hoja destino.
Gracias
