Copiar hoja menos botones

3 envíos / 0 nuevos
Último envío
Jesús Martínez
Imagen de Jesús Martínez
Offline
última acción: Hace 3 años 9 meses
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntos
alta: 31/03/2013 - 17:15
Puntos: 5008
Copiar hoja menos botones

Hola, tengo este codigo:

Sub Nuevomes()
    Sheets("MES").Select
    Sheets("MES").Copy before:=Sheets(1)
End Sub

Bueno hace lo que necesito, solo que en la hoja "MES" tengo 3 botones que los incruste del controles de formulario y los uso para llamar a macros grabadas por mi persona, pero como puedo copiar la hoja "MES" como nuevo libro pero sin el boton3?

 

Gracias

 

Jesús

Etiquetas: 

Cron
Imagen de Cron
Offline
última acción: Hace 8 meses 2 días
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntosNivel 5 - 4000 puntos
alta: 23/06/2010 - 12:30
Puntos: 12735
Re: Copiar hoja menos botones

Puedes añadir lo siguiente después del código de copiar la hoja:

 

Sheets(1).select

n = activesheet.Shapes.count

For i = n to 1 Step -1

On Error Resume Next

Activesheet.Shapes(i).Select

If Activesheet.Shapes(i).Name = "boton3" Then

   Activesheet.shapes(i).delete

   Exit For

end if

next

 

 

Saludos

Jesús Martínez
Imagen de Jesús Martínez
Offline
última acción: Hace 3 años 9 meses
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntos
alta: 31/03/2013 - 17:15
Puntos: 5008
Re: Copiar hoja menos botones

Esta barbaro gracias mil

Saludos

Jesús

Jesus Martinez Plantarosa