Hola. En Excel 2013 En 2007 no hay este problema, comprobado en maquina de un amigo
Espero de su ayuda, una solución para lo que expongo con imágenes
La macro la ejecuto para copiar (respaldar) la hoja como XLSX, hasta aquí funciona todo mui bien pero:
Al ejecutar la 1ª vez la macro por vía del botón, me funciona a perfección pero al terminar la 1ª copia si repito para la 2ª le doy nuevamente al botón, este no hace nada, está como que no tenga macro asignada (desactivado) y su nombre aparece en la barra de nombres. Piso afuera, en cualquier celda, y voy pisando el botón, ya funciona el botón, si se ejecuta.
¿Qué puede ser?. La macro;
Código:
Sub guardar_Copia()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
'
Set h1 = ActiveSheet 'HOJA ACTIVA
nbr = h1.Name & " " & h1.[E8] & " " & h1.[I8] & " " & h1.[I9] 'NOMBRE PARA ARCHIVO
ruta = "D:\Datos Mecanicos\" 'RUTA PARA EL ARCHIVO
With Application.FileDialog(msoFileDialogFolderPicker) 'VENTANA DE GUARDAR COMO:
'.Title = "Selecciona una carpeta"
.AllowMultiSelect = False
.InitialFileName = ruta
If .Show <> -1 Then Exit Sub
cp = .SelectedItems(1)
End With
'PROCEDE A LA COPIA
h1.Copy
ActiveSheet.DrawingObjects("Botón 1").Delete 'ELIMINA EL BOTON EN LA COPIA
ActiveWorkbook.SaveAs Filename:=cp & "\" & nbr & ".xlsx", _
FileFormat:=xlOpenXMLWorkbook, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
ActiveWorkbook.Close
MsgBox "Archivo guardado en " & cp & "\" & nbr & ".xlsx" 'MENSAGE DE GUARDADO
Application.DisplayAlerts = True
Application.ScreenUpdating = True
Range("A1").Select 'CELDA A SELECCIONAR DESPUES DE TODO FINALISADO
End Sub
Termino la 1ª copia Aceptando el MsgBox
Voy para la 2ª y veo que el nombre del botón aparece en la caja de nombres
Piso el boton y me encuentro con esto
Tengo que manualmente seleccionar una celda cualquier y volver a pisar el botón para que ejecute la macro