Macro eliminar botones
Tengo una macro que copia una determinada hoja de un archivo a otro solo que en esa hoja tiene botones para correr determinadas macros. ¿Qué código puedo agregar para que la hoja a donde se copie no contenga dichos botones ni las macros?
Respuesta de hugolaza
1
Este código copia contenido de Hoja1 en Hoja2:
Sub CopiarSinBotones()
Sheets("Hoja1").Select
Range("A:IV").Copy
Sheets("Hoja2").Select
Range("A1").PasteSpecial Paste:=xlPasteAllExceptBorders
Application.CutCopyMode = False
Range("A1").Select
End Sub
Si ademas quieres copiar esta Hoja nueva, en un libro nuevo, añade esta linea al final de la rutina (antes de End Sub):
ActiveSheet. Copy
Sub CopiarSinBotones()
Sheets("Hoja1").Select
Range("A:IV").Copy
Sheets("Hoja2").Select
Range("A1").PasteSpecial Paste:=xlPasteAllExceptBorders
Application.CutCopyMode = False
Range("A1").Select
End Sub
Si ademas quieres copiar esta Hoja nueva, en un libro nuevo, añade esta linea al final de la rutina (antes de End Sub):
ActiveSheet. Copy
Gracias por tu respuesta. La macro que tengo copia la hoja directamente a otro libro solo que al hacerlo lo hace con los botones incluidos. Te envío la macro que tengo para que por favor me indiques que lineas puedo adicionarle para que los elimine en el libro nuevo.
Disculpa la molestia y gracias.
Sub Respaldo()
Sheets("Reporte").Select
If Not Range("A2") <> "Producto" Then
MsgBox "Reporte debe ser por Producto"
Exit Sub
End If
ruta = ThisWorkbook.Path
Mes = Format(Now, "dd-mm-yy_ hh mm")
nbre = "Respaldo Inventario al " & Mes
ActiveSheet.Copy
Application.DisplayAlerts = False
Set wb = ActiveWorkbook
On Error Resume Next
With wb
.Shapes.Delete
.SaveAs ruta & "\" & nbre & ".xls"
.Close True
End With
Set wb = Nothing
Sheets("Reporte").Select
End Sub
Disculpa la molestia y gracias.
Sub Respaldo()
Sheets("Reporte").Select
If Not Range("A2") <> "Producto" Then
MsgBox "Reporte debe ser por Producto"
Exit Sub
End If
ruta = ThisWorkbook.Path
Mes = Format(Now, "dd-mm-yy_ hh mm")
nbre = "Respaldo Inventario al " & Mes
ActiveSheet.Copy
Application.DisplayAlerts = False
Set wb = ActiveWorkbook
On Error Resume Next
With wb
.Shapes.Delete
.SaveAs ruta & "\" & nbre & ".xls"
.Close True
End With
Set wb = Nothing
Sheets("Reporte").Select
End Sub
Sub Respaldo()
Sheets("Reporte").Select
If Not Range("A2") <> "Producto" Then
MsgBox "Reporte debe ser por Producto"
Exit Sub
End If
ruta = ThisWorkbook.Path
Mes = Format(Now, "dd-mm-yy_ hh mm")
nbre = "Respaldo Inventario al " & Mes
Range("A:IV").Copy
Workbooks.Add
Range("A1").PasteSpecial Paste:=xlPasteAllExceptBorders
Range("A1").Select
ActiveWorkbook.SaveAs ruta & "\" & nbre & ".xls"
ActiveWorkbook.Close True
End Sub
Sheets("Reporte").Select
If Not Range("A2") <> "Producto" Then
MsgBox "Reporte debe ser por Producto"
Exit Sub
End If
ruta = ThisWorkbook.Path
Mes = Format(Now, "dd-mm-yy_ hh mm")
nbre = "Respaldo Inventario al " & Mes
Range("A:IV").Copy
Workbooks.Add
Range("A1").PasteSpecial Paste:=xlPasteAllExceptBorders
Range("A1").Select
ActiveWorkbook.SaveAs ruta & "\" & nbre & ".xls"
ActiveWorkbook.Close True
End Sub
