Actualizacion de datos en otros libros

[baldomuf]

Saludos

Mi problemas es el siguiente, presento reportes quincenales los cuales tienen acumulados, al tener muchos datos me parece poco practico actualizarlos de manera manual, quisiera saber si es posible o tienen una mejor idea para realizar la actualizacion de estos acumulados; yo pense en la siguiente manera un boton que me permita elegir el libro del cual quiero escoger elegir los datos acumulados y ponerlos en una columna especificada, espero que me puedan ayudar, ya que soy nuevo en esto, muchas gracias.

ejemplo.rar

[Antoni]

Hola:

Esta macro hace lo que has pedido:

Sub AcumuladoAnterior()

Dim Archivo As Variant


Archivo = Application.GetOpenFilename("Excel (*.xls*), *.xls*")

If Archivo = False Then Exit Sub

Application.ScreenUpdating = False

Workbooks.Open Archivo

ActiveSheet.Range("D2:D" & Range("D" & Rows.Count).End(xlUp).Row).Copy

ThisWorkbook.Sheets("Hoja1").Range("B2").PasteSpecial Paste:=xlValues

ActiveWorkbook.Close


End Sub[/CODE]