Copiar una hoja de Exel a un libro nuevo

Rebuscando he encontrado la siguiente macro; de nuestro amigo Dante, resuelve, casi por completo, lo que necesitaba. Os pongo la macro, que va de maravilla, solo que me gustaría que se grabara directamente en la misma carpeta de origen y, en la copia no apareciera el botón de comando. ¿Sería posible? Muchas gracias.

'Por. Dam
    On Error Resume Next
    ActiveSheet.Copy
    Cells.Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    Set navegador = CreateObject("shell.application")
    carpeta = navegador.browseforfolder(0, _
    "SELECCIONE UNA CARPETA PARA COPIAR EL ARCHIVO", 0, "C:\").items.Item.Path
    If carpeta <> "" Then
        If Right(carpeta, 1) <> "\" Then
            carpeta = carpeta & "\"
        End If
        If Range("C5") <> "" Then
            arch = Range("C5")
        Else
            arch = "archivo"
        End If
        Application.DisplayAlerts = False
        ActiveWorkbook.SaveAs Filename:=carpeta & arch & ".xls", FileFormat:=xlNormal, _
        Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False
    End If
End Sub

2 Respuestas

Respuesta
3

Agrega la siguiente instrucción para no copiar los botones

Application.CopyObjectsWithCells = False

Quedaría así:

Sub Copiar_Hoja()
'Por.Dante Amor
    On Error Resume Next
    Application.CopyObjectsWithCells = False
    ActiveSheet.Copy
    Cells.Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
    carpeta = ThisWorkbook.Path & "\"
    If Range("C5") <> "" Then
        arch = Range("C5")
    Else
        arch = "archivo"
    End If
    Application.DisplayAlerts = False
    ActiveWorkbook.SaveAs Filename:=carpeta & arch & ".xls", _
        FileFormat:=xlNormal, Password:="", _
        WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False
    Application.CopyObjectsWithCells = True
End Sub

.

'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias

.

Avísame cualquier duda

.

Respuesta
2

[Hola 

Prueba con esto 

Sub copyworbook()
'Por.Dam
'Act. Adriel Ortiz
    On Error Resume Next
    ActiveSheet.Copy
    Cells.Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    ruta = ThisWorkbook.Path & "\"
        If Range("C5") <> "" Then
            arch = Range("C5")
        Else
            arch = "archivo"
        End If
        Application.DisplayAlerts = False
        ActiveWorkbook.SaveAs Filename:=ruta & arch & ".xls", FileFormat:=xlNormal, _
        Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False
End Sub

Valorar para finalizar saludos!

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Colocar 2 calendarios en hojas diferentes dentro del mismo archivo

Tengo un archivo con 2 hojas "Asistencias" y "Datos", coloque 1 calendarios en ambas hojas, pero sucede en la hoja "Asistencia "que al querer colocar la fecha en el TextBox2 dentro del formulario surge un error (1004 en tiempo de ejecución: Error en...
2 respuestas

Calcular edad en Excel fechas antes 1900

Necesito que un campo calcule los años meses y días de dos fechas (nacimiento y fallecimiento), reseñando que muchas fechas son antes de 1900. Es necesario que se pueda calcular en todos los pcs, sin necesidad de añadir complementos.
2 respuestas

Formato condicional con función de excel

Expertos, como puedo resaltar una celdas con formato condicional en base a una función lógica en Excel Mis criterios es que de lunes a vieres la hora laboradas son 8.5 y sábado 5.5 A partir de la columna D5 se colocan las fechas y en la columna G a...
4 respuestas

Rellenar celdas vacías en rangos múltiples

En una hoja de Excel tengo una base de datos extensa, en un rango de A5:D1500, en el orden de las columnas contiene los siguientes datos: "A" Departamento, "B" Nombre, "C" Cargo, "D" Monto a pagar. La cantidad de empleados en cada departamento es...
5 respuestas

Como hacer Formato personalizado de celda

Deseo saber si me pueden ayudar con para obtener este formato personalizado de celda. Escribir esto en una celda 624662678 / 944642829 Ver esto 624 66 26 78 / 944 64 28 29 A la espera de su ayuda, me despido.
3 respuestas

Mostrar en listbox solo las filas con dato, a partir de la columna 1 de la tabla.

Tengo una tabla con datos, la primera columna (A) es un ID, cuando se completa información en mi base de datos, el número del ID lo elimino, quedando vacío. Entonces cuando vuelvo a cargar el listbox, no quiero que las filas con ID vacío se muestren...
4 respuestas

Cómo recoger datos concretos de acciones específicas de una web en excel

Tengo un Excel con una columna con los nombres de unas acciones que cotizan en diferentes mercados mundiales. Quisiera saber si, desde una web especializada en bolsa, se puede recoger un dato concreto de cada una de esas acciones que tengo, y...
3 respuestas

Necesito una fórmula que me busque el nombre de una persona y que me sume los ingresos de esa persona en diferentes hojas

En un libro de excel en la hoja 1 tengo mi base de datos con los diferentes nombres de los colaboradores de la empresa, en las siguiente hojas tengo los ingresos que devengaron mensualmente, enero-Agosto, lo que necesito es que me busque el nombre de...
3 respuestas

¿Se puede enviar información de mi Excel a google sheets y viceversa?

Todo expertos: He creado y compartido una hoja de google sheets para el trabajo colaborativo, por medio de la opción obtener datos a través de la web importo los datos a un excel normal para trabajarlo, ya que las hojas de google sheets tienen muchas...
1 respuesta

¿Cómo cancelar opciones de la barra de menús en google sheets?

He creado y compartido una hoja de google sheets para trabajo colaborativo entre varios usuarios, todos están como "editores" pero sólo pueden editar rangos específicos que les he asignado a cada uno, también he desactivado en configuración las...
2 respuestas