Saltar al contenido

Copia datos, abre otro libro pega datos y lo cierra

Este procedimiento de VBA  copia los datos de un rango, luego abre otro libro, pega los registros en la ultima fila libre que tenga el libro abierto, guarda los datos y lo cierra, esta relacionado con la macro de VBA del post crear carpetas y guardar archivo pdf
; también esta relacionado con la macro que abre libros para posteriormente extraer datos de ese archivo, crear y guardar datos en un fichero con extensión csv.

Esta macro de Excel, está programada en VBA, primero copia del libro actual los datos necesarios, luego abre un archivo determinado, que es donde se van a pegar los datos; se determina la última fila con datos; luego se pegan los datos correspondientes en el libro y se cierra el  libro de Excel, este ejemplo esta  bastante relacionado con macro  abre  libro, copia datos  y lo  cierra y la macro crea y elimina archivos.

  

Antes de continuar, recomiendo que leas un excelente libro sobre Excel el que te ayudará operar las planillas de cálculo, haz click acá, si quieres aprender sobre Excel, en inglés, entonces debes hacer click here. Si lo que necesitas es aprender o profundizar sobre la programación de macros con VBA este es unos de los mejores cursos on line que he visto en internet.

Sub GuardaLibro()
Application.ScreenUpdating = False
‘copiamos el rango seleccionado
Range(«a5:b5»).Select
Selection.Copy
‘Abrimos el libro donde se va a copiar
Application.Workbooks.Open «c:libro2.xls»
Sheets(«hoja1»).Select
Range(«d5»).Select
‘Nos posicionamos en la última fila
While ActiveCell.Value <> «»
ActiveCell.Offset(1, 0).Select
‘se repite el ciclo
Wend
filalibre = ActiveCell.Row
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
‘desactivamos el modo Copiar
Application.CutCopyMode = False
‘Guardamos el libro y salimos
ActiveWorkbook.Save
Workbooks(«Libro2.xls»).Close
Application.ScreenUpdating = True
End Sub

Si te fue de utilidad puedes INVITARME
UN CAFÉ
 y de esta manera ayudar a seguir
manteniendo la página descarga el ejemplo desde el link.


.

If this post was
helpful INVITE ME A COFFEE and so help keep
up the page.

Si te gustó por favor compártelo con tus amigos
If you liked please share it with your friends