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

Optimizar macro para combinar filas

Tengo una macro que acumula valores de filas determinados según columnas similares, funciona bien con una tabla de datos intermedia en cuanto a su tiempo de ejecución, lo que quiero es optimizar esta macro o mejorarla ya que tengo tablas de hasta...
3 respuestas

Ordenar listado en excel por numero de tienda

Tengo un listado de productos en excel y en la misma celda viene el numero de la tienda y los totales de cada tienda, pero si tengo más de 100 tiendas quiero agregar una columna donde me diga que tienda es y así poder ordenar mi listado por el número...
1 respuesta

Hacer un nuevo archivo copiando la hoja2 y hoja3 de una lista de nombres que están en la hoja1.

En la hoja1 tengo una lista de nombres y quiero copiar la hoja=evaluación y hoja=metas a un nuevo libro con el nombre de la lista de la hoja1 las dos hojas en el mismo nuevo libro.
1 respuesta

Tengo una macro , que necesita que de una lista de alumnos

Imprime un informe de un alumno en particular, necesito que el usuario digite un numero y luego siga con los pasos siguientes, es decir que imprima el usuario seleccionado . ¿Cómo puedo pausar una macro?
2 respuestas

Convertir Texto a Número con Decimales

Tengo mis TextBox donde guardo información pero esta la guarda como texto y deseo convertirlos a Números con Decimales ya utilice Val pero me los convierte en Enteros es al momento de guardar el dato y al momento de modificar el dato. Abocándome a...
4 respuestas

Fórmula Excel para sumar columnas con fechas

Estoy tratando de buscar alguna fórmula que me pueda ayudar a sumar diferentes columnas con fechas; indicándole el rango de fechas y el criterio a considerar. Es decir que tome en cuenta lo siguiente: Fecha de Inicio, Fecha de Termino, Producto....
3 respuestas

Agrupar por nombre y sumar cantidades con ese nombre

Tengo una columna con NIF de proveedores y en la celda adyacente, la cantidad pagada a ese proveedor. En esa columna es posible que un mismo NIF se repita varias veces, ya que se pueden haber emitido varias cantidades a un mismo proveedor. Sería...
2 respuestas

Fórmula o macro para que una celda con fecha se modifique si en el documento hubo cambios

Tengo una planilla en donde la celda b1 tiene la fecha Los datos de esa planilla van desde a3:g54 (hasta ahora, puede aumentar el numero de filas) Lo que busco es que cada vez que se haga alguna modificación en ese rango en cualquiera de las filas o...
2 respuestas

Como hacer una lista dependiente en Excel

Tengo un archivo de Excel donde requiero tener listas dependientes Estado es lista principal Municipio dependiente de Estado Proveedor dependiente de municipio si pudiera ser con rango dinámico también ( aquí se repiten varios proveedores en varios...
2 respuestas

Tengo una base de datos en excel

En la cual sumo tres datos a1 b1 c1 suma 12 3 5 20 Necesito sumar los tres valores, los cuales varían pero la suma no debe ser mayor que 20, y si pasa de 20, que aparezca un mensaje de advertencia que diga valor no permitido y no deje avanzar ¿Cómo...
1 respuesta