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.
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
UN CAFÉ y de esta manera ayudar a seguir
manteniendo la página descarga el ejemplo desde el link.
.
Si te gustó por favor compártelo con tus amigos
If you liked please share it with your friends