Macro que pegue en un libro activo

[areco747]

Buenas tardes, necesitaría por favor si me pueden pasar la macro que vaya y copie un valor de una celda de un LibroX ( abierto) y lo pegue en una celda activa de pero de otro libro con la que estoy trabajando. Este último libro no siempre es el mismo, va cambiando de nombre, o sea que el libro de Destino varia. Desde ya muchas gracias.

[elunico22]

Hola areco747 quisiera que me aclares algunas dudas para poder ayudarte.

Tu libro de origen que esta abierto, el de destino tambien estaria abierto o cerrado?

Ademas tambien quisiera saber si el dato que desea trasladar es una sola celda o una columna completa.

Saludos

[AlexanderS]

Hola como menciona el amigo elunico22 debes ser un poco mas preciso en tu consulta, cual es la ruta de tu archivo, que rango de celdas quieres copiar, las copias con o sin formato, siempre debes de subir un archivo de ejemplo Normas del foro.

Por el momento te dejo un ejemplo suponiendo que el libro origen se llama "ejem.xlsx" y lo tienes en la misma ruta que el de destino copia el valor de la celda A1:

Sub copia()
Application.ScreenUpdating = False
Workbooks.Open Filename:=(ThisWorkbook.Path & "\ejem.xlsx")
[A1].Copy
Application.DisplayAlerts = False
ActiveWindow.Close
Range("A1").PasteSpecial (xlPasteAll)
End Sub
[/PHP]

Salu2[/color]

[areco747]

Muchas gracias por la respuesta, no he subido un ejemplo por tratarse de dos libros. El libro de origen está abierto pero cambia constatemente de nombre y el libro de origen es siempre el mismo se llama Personal.xls, también siempre se encuentra abierto. O sea que el libro Personal.xls es el que contiene las macros y el que está permantentemente abierto. Por qué el libro de origen cambia constantemente de nombre? porque son resumenes de cuenta que se van creando constantemente de y que estoy exportando de SAP. El dato o valor se debe pegar en una sola celda en el libro de origen. Pero esta celda es activa no es fija. Este seria el ejemplo que toma como la celda de origen A35

Sub copiarActivecell()

Windows("Personal.xls").Activate

Range("A35").Select

Application.CutCopyMode = False

Selection.Copy

A partir de acá no lo puedo resolver porque mi libro va cambiando de nombre.

Windows(".xls").Activate

ActiveSheet.Paste

Application.CutCopyMode = False

End Sub

[elunico22]

Hola areco747 estoy tratando de entender tu post, pero nuevamente me has confundido.

Dices que el libro de origen varia de nombre por tratarse de un resumen que bajas del sap.

Y nuevamente pusiste que el de origen es Personal.xls, no sera de destino?.

Ademas indicas que tienes que pegar en una celda activa del archivo de origen? Se supone que el origen es de donde copias y el destino a donde vas a copiar.

Disculpa si pregunto nuevamente pero he quedado un poco confundido.

Saludos

[AlexanderS]

El libro de origen está abierto pero cambia constantemente de nombre y el libro de origen es siempre el mismo se llama Personal.xls

Ok parte confusa.

Lo que te recomiendo es crear un complemento ".xlam" luego lo configuras en excel y listo puedes ejecutar la macro en el archivo que cambia de nombre sin problemas y para completar tu macro seria algo así

Sub copiarActivecell()
nom=ActiveWorkbook.name
Windows("Personal.xls").Activate
Range("A35").Select
Application.CutCopyMode = False
Selection.Copy

Windows(nom).Activate

ActiveSheet.Paste
Application.CutCopyMode = False
End Sub[/PHP]

Salu2

[areco747]

Perdón pido disculpas por la confusión, lo transcribo nuevamente: El libro de destino está abierto pero cambia constantemente de nombre y el libro de origen es siempre el mismo se llama Personal.xls, también siempre se encuentra abierto. O sea que el libro Personal.xls es el que contiene las macros y el que está permanentemente abierto.

Por qué el libro de destino cambia constantemente de nombre? porque son resumenes de cuenta que se van creando constantemente y que estoy exportando de SAP. El dato o valor se debe pegar en una sola celda en el libro de destino. Pero esta celda es activa no es fija. Este seria el ejemplo que toma como la celda de origen A35.

Intentaré con lo de Riddle

[elunico22]

Bueno estimado:

Creo que lo que hizo Riddle es lo que necesitabas.

Saludos

[areco747]

Hola disculpas pero no doy con la tecla... adjunto dos archivos excel para ver si pueden interpretarlo o tal vez si pueden adaptar la macro de Riddle. Para este ejemplo parto del libro personal.xls y de la celda de origen B7 copia y pega en el libro1 en una celda activa, como les comenté necesito que la macro no se diagrame como libro de destino libro1, porque el nombre de este libro va cambiando constantemente. Y debe pegar en una celda activa. Cualquier duda a disposición y gracias,

personal.xls

libro1.xls