Problema macro en excel
Hola genios. He creado una macro automática porque no entiendo de visual basic y siempre que la reproduzco me lo hace en la misma tab del libro y quiero que me la ejecute en cualquier tab, ¿cómo puedo hacerlo? Muchas gracias
1 Respuesta
Respuesta de Elsa Matilde
1
Aquí tienes Elsa. Espero tu respuesta y disculpa pero es que soy muy torpe.
Sub Macro10()
'
' Macro10 Macro
' Macro grabada el 15/01/2011 por Jose-Luis.Dominguez
'
'
Sheets("CPC Territorios España Trabajo").Select
ActiveCell.Range("A1:AB1189").Select
Selection.Copy
Sheets("Hoja1").Select
ActiveSheet.Paste
End Sub
Sub Macro10()
'
' Macro10 Macro
' Macro grabada el 15/01/2011 por Jose-Luis.Dominguez
'
'
Sheets("CPC Territorios España Trabajo").Select
ActiveCell.Range("A1:AB1189").Select
Selection.Copy
Sheets("Hoja1").Select
ActiveSheet.Paste
End Sub
Bien, te explico el paso a paso para que decidas dónde ajustar tu rutina y que pueda ser utilizada con otras ref:
Sub Macro10()
'
' Macro10 Macro
' Macro grabada el 15/01/2011 por Jose-Luis.Dominguez
'
'se indica la hoja que será la activa (1)
Sheets("CPC Territorios España Trabajo").Select
'se indica el rango a copiar
ActiveCell.Range("A1:AB1189").Select
Selection.Copy
'se indica la hoja destino (2)
Sheets("Hoja1").Select
ActiveSheet.Paste
End Sub
(1) Si la omitís se considerará que debe tomar el rango de la hoja activa al momento de llamar a la macro.
En ese caso en el pto 2 debes ingresar el nombre de la hoja destino.
Si en cambio necesitas tomar datos de la hoja allí ingresada, pero copiarla en la hoja activa, desde donde llamaste a la macro, no debes seleccionar la hoja en el pto1, sino utilizar instrucciones como estas:
Sheets("CPC Territorios España Trabajo"). Range("A1:AB1189"). Copy
Activesheet.Range("A5").select 'la primer celda de destino
ActiveSheet. Paste
Sdos
Elsa
Sub Macro10()
'
' Macro10 Macro
' Macro grabada el 15/01/2011 por Jose-Luis.Dominguez
'
'se indica la hoja que será la activa (1)
Sheets("CPC Territorios España Trabajo").Select
'se indica el rango a copiar
ActiveCell.Range("A1:AB1189").Select
Selection.Copy
'se indica la hoja destino (2)
Sheets("Hoja1").Select
ActiveSheet.Paste
End Sub
(1) Si la omitís se considerará que debe tomar el rango de la hoja activa al momento de llamar a la macro.
En ese caso en el pto 2 debes ingresar el nombre de la hoja destino.
Si en cambio necesitas tomar datos de la hoja allí ingresada, pero copiarla en la hoja activa, desde donde llamaste a la macro, no debes seleccionar la hoja en el pto1, sino utilizar instrucciones como estas:
Sheets("CPC Territorios España Trabajo"). Range("A1:AB1189"). Copy
Activesheet.Range("A5").select 'la primer celda de destino
ActiveSheet. Paste
Sdos
Elsa
