Macro para guardar una hoja en xlsx y que no agregue en esa nueva hoja botones y desplegables
Para Dante Amor
Hola Dante...
Quería preguntarte como puedo hacer para crear una macro que cuando me guarde una hoja especifica del libro, no agregue los botones que se encuentran en ella ni un desplegable que es el que transfiere los datos pero que mantengan la información que se obtiene del desplegable
1 respuesta
Respuesta de Dante Amor
2
Te anexo la macro actualizada para guardar la hoja con valores y sin botones.
Prueba generar el nuevo archivo y después abre el archivo desde el formulario para ver cómo te funciona.
Sub WORKOUT_GUARDARXLSX()
'Act.Por.Dante Amor
guion = Range("A28").Value
numero = Range("G9").Value
nombre = Range("B13").Value
ruta = Range("A29").Value
'ruta = "C:\trabajo\"
formato = ".xlsx"
Dim Mensaje As String
Mensaje = MsgBox("Desea crear el Workout de este cliente?", vbOKCancel)
If Mensaje = vbOK Then
ActiveSheet.Copy
Set l1 = ActiveWorkbook
Set h = l1.Sheets(1)
h.Cells.Copy
h.[A1].PasteSpecial xlValues
For Each obj In h.DrawingObjects
If InStr(1, UCase(obj.Name), "BOTÓN") > 0 Or _
InStr(1, UCase(obj.Name), "BUTTON") > 0 Then
obj.Delete
End If
Next
On Error Resume Next
h.Range("G9").Validation.Delete
On Error GoTo 0
l1.SaveAs Filename:=ruta & numero & guion & nombre & formato
Hoja7.Range("G9,L3:L6,N5:N6,H17,I17,L13:L17,N13,N15:N16,B20:B23,C20:C21,D20:D21,H20:H21,I20:I21,WORKOUT").ClearContents
End If
End Sub'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias
