Eliminar botón Control de formulario de la copia

Dam, buen domingo te deseo

En la misma macro del libro que tienes, un par de líneas para este titulo

1 respuesta

Respuesta
1

H o l a:

Para que no se copie el botón hay que agregar esta instrucción:

ActiveSheet.DrawingObjects("Botón 1").Delete

Así quedaría la macro:

Sub guardar() 'PARA GUARDAR COMO XLSX
'Por.Dante Amor http://www.todoexpertos.com/preguntas/6ejf9vkdjg44a9m9/macro-excel-para-copiar-hoja-activa-como-xlsx?nid=gcqp5uuggnw63hkpfot9rtun9jtppt6sffspnx4pabr3&utm_source=todoexpertos&utm_medium=EmailNotification&utm_campaign=AskerQuestion_ExpertMessageAdded
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    '
    Set h1 = ActiveSheet
    nbr = h1.Name & " " & h1.[E8] & " " & h1.[I8] & " " & h1.[I9]
    ruta = "D:\Datos Mecanicos\"
    With Application.FileDialog(msoFileDialogFolderPicker)
        '.Title = "Selecciona una carpeta"
        .AllowMultiSelect = False
        .InitialFileName = ruta
        If .Show <> -1 Then Exit Sub
        cp = .SelectedItems(1)
    End With
    '
    h1.Copy
    ActiveSheet.DrawingObjects("Botón 1").Delete
    ActiveWorkbook.SaveAs Filename:=cp & "\" & nbr & ".xlsx", _
        FileFormat:=xlOpenXMLWorkbook, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False
    ActiveWorkbook.Close
    MsgBox "Archivo guardado en " & cp & "\" & nbr & ".xlsx"
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
    Range("A1").Select
End Sub

sal u dos

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas