Macro funciona bien desde botón de comando, al ejecutarla desde macro personal no funciona.
Estimados sabios del grupo, tengo este código que me copia un rango de este libro a otro llamado "CONSOLIDADO",
Private Sub CommandButton1_Click()
Application.EnableCancelKey = xlDisabled
'Definir objetos a utilizar
Dim wbDestino As Workbook, _
wsOrigen As Excel.Worksheet, _
wsDestino As Excel.Worksheet, _
rngOrigen As Excel.Range, _
rngDestino As Excel.Range
'Indicar el libro de Excel destino
Set wbDestino = Workbooks.Open(ActiveWorkbook.Path & "\CONSOLIDADO.xlsx")
'Activar este libro
ThisWorkbook.Activate
'Indicar las hojas de origen y destino
Set wsOrigen = Hoja1 'Worksheets("AGOSTO")
Set wsDestino = wbDestino.Worksheets("BASE")
'Indicar la celda de origen y destino
Const celdaOrigen = "N14"
Const celdaDestino = "A1"
'Inicializar los rangos de origen y destino
Set rngOrigen = wsOrigen.Range(celdaOrigen)
Set rngDestino = wsDestino.Range(celdaDestino)
'Seleccionar rango de celdas origen
rngOrigen.Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Copy
'Pegar datos en celda destino
rngDestino.PasteSpecial xlPasteValues
Application.CutCopyMode = False
'Guardar y cerrar el libro de Excel destino
wbDestino.Save
wbDestino.Close
End Sub
Lo que quiero es ejecutar esta macro desde otros libros con el mismo formato, lo he intentado guardándolo en mis macros personales pero no funciona.
Los libros tienen todos la misma estructura, solo cambia el mes y se van guardando en el libro "CONSOLIDADO".