Copiar celdas de otro libro

[El Rafa]

Estimados,

Necesito crear macro para copiar celdas de otro libro y pegarlas en el libro activo. Pero la complicacion esta en que quiero que me abra ventana para elegir de que archivo realizar la copia (es un archivo estandar, donde va cambiando el nombre solamente).

Gracias!

Rafa

[Guest Cacho R]

Estimados,

Necesito crear macro para copiar celdas de otro libro y pegarlas en el libro activo. Pero la complicacion esta en que quiero que me abra ventana para elegir de que archivo realizar la copia (es un archivo estandar, donde va cambiando el nombre solamente).

Gracias!

Rafa

Hola! Rafa.

Interesante la sub-utilización de los artículos y el abundante uso de los infinitivos que has elegido para expresar tu necesidad. Por ello te sugeriré -con la misma línea expresiva- lo siguiente:

1º) Encender grabadora de macros;

2º) Abrir archivo cualquiera de los posibles a ser considerados;

3º) Copiar y pegar información según tus necesidades;

4º) Cerrar archivo antes abierto;

5º) Apagar grabadora de macros;

6º) Subir al Foro archivo conteniendo (perdón por el gerundio) código -así- generado.

A partir de esa información, es posible que colaborador del Foro pueda intentar adecuar esas líneas.

Saludos, Cacho R.

[El Rafa]

Gracias Cacho por tu respuesta.

El codigo es el siguiente:

Sub Macro1()

'

' Macro1 Macro

'

'

ChDir "Z:\FLUJOS\Flujos *******"

Workbooks.Open Filename:= _

"Z:\FLUJOS\Flujos *******\Flujo *******s 2012-12-10.xlsx", UpdateLinks:=0

ActiveSheet.Outline.ShowLevels RowLevels:=0, ColumnLevels:=3

ActiveWindow.LargeScroll ToRight:=-21

Range("ANZ6:BIJ57").Select

Range("ANZ57").Activate

Selection.Copy

Windows("Corrupac - Verdenova 2012-12-10.xlsx").Activate

ActiveWindow.LargeScroll ToRight:=-3

ActiveSheet.Outline.ShowLevels RowLevels:=0, ColumnLevels:=2

Range("B6").Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

Windows("Flujo *******s 2012-12-10.xlsx").Activate

ActiveSheet.Outline.ShowLevels RowLevels:=0, ColumnLevels:=2

ActiveWindow.Close

End Sub

El archivo que está marcado con rojo va cambiando de nombre, por lo que al ejecutar la macro me gustaría que me pidiera a mi buscar el archivo a abrir.

Muchas gracias (espero haber usado mas articulos y menos infinitivos)

Rafa

[Walter-RC]

Buena rafa, podrias colocar un userform y dentro de este un cuadro de texto para poder ingresar el nombre del archivo, mediante la propiedad value puedes asignar el contenido a una variable y utilizarla para remplazar el nombre del archivo. Si no me explico bien avisame que cuando me haga un ratito te envio un ejemplo.

Saludos