Actualizar datos de un archivo a otro

[josevaldesv]

Buenos dias a todos. Hace tiempo que no venia por aqui

Estoy teniendo problemas para actualizar muchos datos de archivo uno.xls, hoja1,
al archivo dos.xls, hoja1.

En archivo dos.xls tengo otras hojas que tienen referencias a hoja1, y quiero asegurar que pueda actualizar la hoja1 desde uno.xls a dos.xls con una simple macro, y simplemente quiero que borre todo lo que esta en dos.xls y ponga todo lo de uno.xls

pls help!

gracias!

 

[josevaldesv]

Mas detalles:

En las demas hojas de Excel tengo muchos links que hacen referencia a hoja1.xls.
La idea es que con una simple macro se pueda actualizar toda la hoja1.xls desde un archivo en red (network shared workbook), para que no haya oportunidd de que el encargado de actualizarlo cometa errores.

Esto es lo que tengo hasta el momento:

Sub Update_sheet()
    'comienzo en la hoja de mi archivo 
    '(en mi computadora, y hago referencia a un archivo en la red, drive E:\
    Application.ScreenUpdating = False
    Sheets("hoja1").Select
    application.Calculation = xlManual
    Range("A1").Select
    ActiveCell.FormulaR1C1 = "='e:\[file1.xls]hoja1'!RC"
    Range("A1").Select
 
    ' esto trabaja bien, pero solo de A1 a DZ50
    ' y yo necesito que vaya de A1 a DZ30000
    ' y la computadora no puede cuando paso de DZ100
    'COMO PUEDO HACERLO SIN QUE TARDE 30 MINUTOS O DIGA "not enough memory"?
    Selection.AutoFill Destination:=Range("A1:dz1"), Type:=xlFillDefault
    Range("A1:dz1").Select
    Selection.AutoFill Destination:=Range("A1:dz50"), Type:=xlFillDefault
    Range("A1:dz50").Select
 
    application.Calculation = xlAutomatic
    Calculate
    Selection.Copy
    Selection.PasteSpecial Paste:=xlValues, _
                           Operation:=xlNone, _
                           SkipBlanks:= False, _
                           Transpose:=False
    Application.CutCopyMode = False
    Selection.Sort Key1:=Range("A2"), _
                   Order1:=xlAscending, _ 
                   Header:=xlGuess, _
                   OrderCustom:=1, _
                   MatchCase:=False, _
                   Orientation:=xlTopToBottom
    Application.ScreenUpdating = True
End Sub