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 Enrique Bernal
1
Sub Copiar()
a = inputbox ("Ingrese el nombre del archivo, incluida la extension, Ejm: aaa.xlsx","Archivo Origen")
Workbooks(a).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
Si quieres poner el libro de destino es igual
b = inputbox ("Ingrese el nombre del archivo, incluida la extension, Ejm: bbb.xlsm","Archivo Destino")
Y en lugar de
Workbooks("libro1.xlsm") va Workbooks(b)
a = inputbox ("Ingrese el nombre del archivo, incluida la extension, Ejm: aaa.xlsx","Archivo Origen")
Workbooks(a).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
Si quieres poner el libro de destino es igual
b = inputbox ("Ingrese el nombre del archivo, incluida la extension, Ejm: bbb.xlsm","Archivo Destino")
Y en lugar de
Workbooks("libro1.xlsm") va Workbooks(b)
Respuesta de 4rc3
1
Espero que te sea de utilidad.
sub Copiar()
Dim MiArchivo as Workbook
Workbooks("libro2.xlsx").Sheets("Mana_Infantil").Activate
ActiveSheet.Range("a2:ao31000").Select
Selection.Copy
MiArchivo=InputBox("Nombre del Archivo: ","MiArchivo")
Workbooks("MiArchivo").Sheets("Mana_Infantil").Activate
ActiveSheet.Range("a2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
sub Copiar()
Dim MiArchivo as Workbook
Workbooks("libro2.xlsx").Sheets("Mana_Infantil").Activate
ActiveSheet.Range("a2:ao31000").Select
Selection.Copy
MiArchivo=InputBox("Nombre del Archivo: ","MiArchivo")
Workbooks("MiArchivo").Sheets("Mana_Infantil").Activate
ActiveSheet.Range("a2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub