Ayuda con macro
Buenos días me preguntaba si me podrías ayudar con esta macro, es una macro que copia los datos de un libro a otro, el libro al que se le pasan los datos es el libro1 o sea que por defecto es le libro2 el que contiena los datos a pasar.
Mi pregunta es como hago para que en esta linea yo pueda copiar el nombre del libro con un input box y no deba de tomar por defecto el libro2
Workbooks("libro2.xlsx").Sheets("Mana_Infantil").Activate
gracias
macro
sub Copiar()
Workbooks("libro2.xlsx").Sheets("Mana_Infantil").Activate
ActiveSheet.Range("a2:ao31000").Select
Selection.Copy
Workbooks("libro1.xlsm").Sheets("Mana_Infantil").Activate
ActiveSheet.Range("a2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
Mi pregunta es como hago para que en esta linea yo pueda copiar el nombre del libro con un input box y no deba de tomar por defecto el libro2
Workbooks("libro2.xlsx").Sheets("Mana_Infantil").Activate
gracias
macro
sub Copiar()
Workbooks("libro2.xlsx").Sheets("Mana_Infantil").Activate
ActiveSheet.Range("a2:ao31000").Select
Selection.Copy
Workbooks("libro1.xlsm").Sheets("Mana_Infantil").Activate
ActiveSheet.Range("a2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
2 Respuestas
Respuesta de 4rc3
1
Respuesta de Enrique Bernal
1