Como abrir dos libros copiar datos de uno a otro y guardar en otro libro

Este ejemplo de macro abre un archivo que contiene datos que se desean pasar al archivo de destino, por ello la macro abre los dos archivos pasando datos desde el archivo de origen al de destino, luego cierra ambos libros sin guardar cambios, pero previamente hace una copia de la hoja del libro destino donde se copiaron los datos y este nuevo libro lo guarda en el escritorio con el nombre que previamente se definió en la macro.

El copiado de datos desde el origen al destino, no es un simple copie y pegue, copia datos, pero en filas que no son las mismas en el origen que en el destino, a su vez las columnas están intercambiadas es decir la columna C la copia en la columna F del destino y así sucesivamente con otras columnas.

En este ejemplo de macro que permite abrir dos libros copiar datos de uno a otro y luego guardar una copia en el escritorio de Windows con otro nombre, se muestra como crear una ruta de un archivo o fichero  con variables de la siguiente forma:

Abrir un archivo de Excel con el siguiente código y guardar su nombre en una variable:

Como determinar la última fila con datos cuando en la estructura del archivo hay datos que no interesan copiar y obstaculizan encontrar la última fila con datos:

uf = Workbooks(WBO).Sheets(b1).Range(«A» & Rows.Count).End(xlUp).End(xlUp).End(xlUp).End(xlUp).End(xlUp).Row – 1

Como copiar mediante bucle hasta la última fila con datos, información de un libro a otro no siendo consecutivos, es decir los datos de las columnas del libro origen copiarlos en columnas distintas del libro destino, de la siguiente forma

Como cerrar un libro sin guardar cambios y guardando cambios.

ActiveWorkbook.Close True

El vídeo que sigue muestra una explicación más detallada y gráfica de la macro presentada, recomiendo observar para una más fácil comprensión de la macro; suscribe a nuestra web desde la parte superior derecha de la página ingresando tu mail y a nuestro canal de You Tube para recibir en tu correo vídeos explicativos sobre macros interesantes, como  por ejemplo Como crear una factura o sale invoice y grabar guardar PDF XLS y enviar por mail, buscar en listbox mientras escribes en textbox, ordenar hojas libro excel por su nombre, conectar Excel con Access y muchos ejemplos más.

if (payload.eventType == ‘subscribe’) {
// Add code to handle subscribe event.
} else if (payload.eventType == ‘unsubscribe’) {
// Add code to handle unsubscribe event.
}
if (window.console) { // for debugging only
window.console.log(‘YT event: ‘, payload);
}
}