Excel - Como copiar una hoja de un libro en otro guardado con macro

Pos: 48

Val: 44

Como copiar una hoja de un libro en otro guardado con macro

Publicado por santi (24 intervenciones) el 29/10/2018 13:03:34

Primero dar las gracias por echarme una mano con esto. Soy un novato que se inicia en el mundo de las macros y necesito de expertos como vosotros para solucionar problemas e intentar aprender poco a poco.

Tengo esta macro:

Sub Copiarhoja()

ThisWorkbook.ActiveSheet.Copy before:=Workbooks.Add.Worksheets(1)

End Sub

Con ella consigo copiar la hoja en un libro nuevo, pero no se como modificar esta macro para que haga todo lo que necesito. Lo que necesito es que me copie la hoja activa en un archivo existente guardado en el servidor, elimine los vinculos de la hoja de origen y elimine el boton que lanza la macro..

El archivo de origen es el que tengo abierto. La ruta donde está el archivo de destino es "P:\BaseTecnico\1-DOCUMENTOS REFERENCIA\Master XXXX-M-XXX CLIENTE-OBRA.xltm".

En este archivo master hay 8 hojas, donde la hoja COM_EQUIPOS ya existe y está la tercera hoja del libro. Esa hoja que ya existe en el libro de destino necesito que se sustituya por la COM_EQUIPOS del libro de origen.

Como hago que la copie en el libro de destino Master XXXX-M-XXX CLIENTE-OBRA.xltm que está en la ruta "P:\BaseTecnico\1-DOCUMENTOS REFERENCIA\Master XXXX-M-XXX CLIENTE-OBRA.xltm".
Como hacer que sustituya la hoja COM_EQUIPOS que ya existe en el libro Master XXXX-M-XXX CLIENTE-OBRA.xltm por la que quiero copiar?.

También necesito que la hoja que copie en el libro master, la información que contiene sean solo datos, Esto quiere decir que en el libro original la información de esa hoja está vinculada a otras hojas del mismo libro, pero necesito que al copiarlo en el nuevo libro no se mantengan los vínculos con el libro de origen.

He incorporado un botón en la hoja de origen para activar la macro. Como hago que elimine de la hoja copiada el botón que hemos usado para iniciar la macro.

Muchísimas gracias por la ayuda.

Valora esta pregunta

Me gusta: Está pregunta es útil y esta clara

No me gusta: Está pregunta no esta clara o no es útil

Responder

Pos: 2

Val: 4.908

Como copiar una hoja de un libro en otro guardado con macro

Publicado por Antoni Masana (2477 intervenciones) el 30/10/2018 08:10:42

En principio es bastante fácil.

Abres el libro con los datos a copiar y los vínculos.
Activas Grabar MACRO

* Abrir archivo destino: "P:\BaseTecnico\1-DOCUMENTOS REFERENCIA\Master XXXX-M-XXX CLIENTE-OBRA.xltm".
* Eliminar hoja COM_EQUIPOS de archivo destino:
* Ir al libro origen
* Copiar hoja COM_EQUIPOS en el libro destino.
* Ir al libro destino.
* ir a la hoja COM_EQUIPOS
* Seleccionar toda la hoja y copiar.
* Pagar VALORES
* Seleccionar BOTON y borrarlo.
* Guardar Libro Destino.
* Cerrar Libro Destino.

Parar MACRO.

Y hasta aquí tienes una MACRO que hace el 99% de lo que quieres y el 1% es añadir controles por si falla.

IMPORTANTE: Antes de crear la macro o de probarla realiza siempre copias de seguridad o podrías perder toda la información. Si la macro falla la única forma de volver al principio es recuperar la copia de los dos libros.

Cuando tengas la MACRO seguimos hablando.

Saludos.
\\//_

Valora esta respuesta

Me gusta: Está respuesta es útil y esta clara

No me gusta: Está respuesta no esta clara o no es útil

Comentar

Pos: 48

Val: 44

Como copiar una hoja de un libro en otro guardado con macro

Publicado por santi (24 intervenciones) el 30/10/2018 18:14:35

Buenas tardes,

He conseguido hacer esta macro.

Sub COPIAHOJA()

    Workbooks.Add Template:= _

        "P:\BaseTecnico\1-DOCUMENTOS REFERENCIA\Master XXXX-M-XXX CLIENTE-OBRA.xltm"

    Windows("DVA - copia1").Activate

    Sheets("COM_EQUIPO").Select

    Sheets("COM_EQUIPO").Copy Before:=Workbooks("Master XXXX-M-XXX CLIENTE-OBRA1" _

        ).Sheets(3)

    Range("A2:F419").Select

    Selection.Copy

    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

        :=False, Transpose:=False

    Sheets("COM_EQUIPOS").Select

    ActiveWindow.SelectedSheets.Delete

End Sub

Funciona bien si la ejecuto con el nombre del libro DVA - copia1. Tengo una plantilla en un servidor con el nombre DVA - copia que al abrirla se convierte en DVA - copia1. El problema lo tengo cuando guardo esa plantilla con otro nombre. Yo abro la plantilla y la guardo en el servidor como hoja de excell habilitada para macros con el nombre del proyecto en el que esté trabajando. Y después de muchas revisiones de ese documento, cada una con un numero de revisión rev. diferente, si cierro el proyecto es cuando debo ejecutar la macro.

Al guardarla con el nombre del proyecto no funciona la macro. Que tengo que modificar donde dice Windows("DVA - copia1").Activate para que funcione.

Muchas gracias por tu ayuda

Valora esta respuesta

Comentar

Pos: 2

Val: 4.908

Como copiar una hoja de un libro en otro guardado con macro

Publicado por Antoni Masana (2477 intervenciones) el 31/10/2018 06:57:09

Esto soluciona el problema del libro DVA

ub COPIAHOJA()

    Dim Ruta as String, Arch as String, Hoja as String, YoSoy as String,

    Ruta = "P:\BaseTecnico\1-DOCUMENTOS REFERENCIA\"

    Arch = "Master XXXX-M-XXX CLIENTE-OBRA.xltm"

    Hoja = "COM_EQUIPO"

    YoSoy =  ActiveWorkbook.Name

    Workbooks.Add Template:= Ruta + Arch

    Windows(YoSoy).Activate

    Sheets(Hoja).Select

    Sheets(Hoja).Copy Before:=Workbooks(Arch).Sheets(3)

    Range("A2:F419").Select

    Selection.Copy

    Selection.PasteSpecial Paste:=xlPasteValues, _

                           Operation:=xlNone, _

                           SkipBlanks:=False, _

                           Transpose:=False

    Sheets(Hoja).Select

    ActiveWindow.SelectedSheets.Delete

End Sub

Saludos.
\\//_

Valora esta respuesta

Comentar

Pos: 48

Val: 44

Como copiar una hoja de un libro en otro guardado con macro

Publicado por santi (24 intervenciones) el 31/10/2018 08:58:58

Hola Antoni,

He probado la macro y me da error 9 en la línea " Sheets(Hoja).Copy Before:=Workbooks(Arch).Sheets(3)" . Entiendo la lógica de tu macro, pero no se porque no funciona.

Gracias por tu ayuda

Valora esta respuesta

Comentar

Pos: 2

Val: 4.908

Como copiar una hoja de un libro en otro guardado con macro

Publicado por Antoni Masana (2477 intervenciones) el 31/10/2018 09:56:49

Un pequeño lapsus

Sub COPIAHOJA()

    Dim Ruta As String, Nomb As String, Exte As String, Hoja As String, YoSoy As String

    Ruta= "P:\BaseTecnico\1-DOCUMENTOS REFERENCIA\"

    Nomb = "Master XXXX-M-XXX CLIENTE-OBRA"

    Exte = ".xltm"

    Hoja = "COM_EQUIPO"

    YoSoy =  ActiveWorkbook.Name

    Workbooks.Add Template:= Ruta + Nomb + Exte

    Windows(YoSoy).Activate

    Sheets(Hoja).Select

    Sheets(Hoja).Copy Before:=Workbooks(Nomb).Sheets(3)

    Range("A2:F419").Select

    Selection.Copy

    Selection.PasteSpecial Paste:=xlPasteValues, _

                           Operation:=xlNone, _

                           SkipBlanks:=False, _

                           Transpose:=False

    Sheets(Hoja).Select

    ActiveWindow.SelectedSheets.Delete

End Sub

En la línea del error debe ser el nombre del archivo sin extensión.

Saludos.
\\//_

Valora esta respuesta

Comentar

Pos: 48

Val: 44

Como copiar una hoja de un libro en otro guardado con macro

Publicado por santi (24 intervenciones) el 31/10/2018 10:24:27

Muchas gracias Antoni,

He realizado una pequeña modificación en la macro y ahora funciona. Esta es la macro definitiva:

Sub COPIAHOJA()

    Dim Ruta As String, Nomb As String, Nomb2 As String, Exte As String, Hoja As String, YoSoy As String, Hoja2 As String

    Ruta = "P:\BaseTecnico\1-DOCUMENTOS REFERENCIA\"

    Nomb = "Master XXXX-M-XXX CLIENTE-OBRA"

    Nomb2 = "Master XXXX-M-XXX CLIENTE-OBRA1"

    Exte = ".xltm"

    Hoja = "COM_EQUIPO"

    Hoja2 = "COM_EQUIPOS"

    YoSoy = ActiveWorkbook.Name

    Workbooks.Add Template:=Ruta + Nomb + Exte

    Windows(YoSoy).Activate

    Sheets(Hoja).Select

    Sheets(Hoja).Copy Before:=Workbooks(Nomb2).Sheets(3)

    Range("A2:F419").Select

    Selection.Copy

    Selection.PasteSpecial Paste:=xlPasteValues, _

                           Operation:=xlNone, _

                           SkipBlanks:=False, _

                           Transpose:=False

    Sheets(Hoja2).Select

    ActiveWindow.SelectedSheets.Delete

End Sub

He añadido un nombre (Nomb2) por que al abrir la plantilla el nombre cambia añadiéndose un 1. Y he añadido un nombre de hoja (hoja2) por que la hoja a eliminar es COM_EQUIPOS y la que pegamos es COM_EQUIPO.

Con esto la macro funciona perfectamente.

Solo una pregunta. Al final de todo, me pide que acepte eliminar la hoja. Esto se puede hacer sin que me lo pregunte, que la elimine directamente?.

Gracias, me has sido de gran ayuda y he aprendido mucho.

Un saludo

Valora esta respuesta

Comentar

Pos: 2

Val: 4.908

Como copiar una hoja de un libro en otro guardado con macro

Publicado por Antoni Masana (2477 intervenciones) el 31/10/2018 12:58:50

Si se puede evitar, además también el parpadeo de pantalla al ejecutar la macro u otras más cosas.

Dale un vistazo a esta página: https://www.todoexcel.com/14-formas-de-acelerar-y-optimizar-tus-macros-excel/

Para quitar los mensajes de aviso:

Application.DisplayAlerts = False

Saludos.
\\//_

Valora esta respuesta

Comentar

Copiar datos en un inventario

Problema al abrir archivo de Excel con el ancho de las columnas