............ Foro Excel
Si no lo has hecho aún: REGISTRATE!!!

Copiar Hojas

Ver el tema anterior Ver el tema siguiente Ir abajo

Copiar Hojas

Mensaje por Anibal el Sáb Nov 22, 2008 12:10 pm

Hola a Todo el mundo, me gustaria que me ayudarais en un pequeño problema que tengo, necesito una macro que me copie, TODAS, las hojas de un libro, indistintamente del nombre que tengan. Espero que me podais ayudar. GRACIAS.

Anibal

Masculino Cantidad de envíos : 7
Edad : 55
Ciudad - Pais : Barcelona (ESPAÑA)
Fecha de inscripción : 22/11/2008

Volver arriba Ir abajo

Re: Copiar Hojas

Mensaje por GalileoGali el Sáb Nov 22, 2008 1:15 pm

Bienvenido,
una vez copiada cada hoja, que destino tendra la copia????

_________________
GalileoGali
M.A.P. 2010-2013
Microsoft Active Professional

GalileoGali
Admin

Masculino Cantidad de envíos : 1962
Edad : 61
Ciudad - Pais : QUIROGA, Argentina
Version de Excel : 2000-2003-2007-2010
Fecha de inscripción : 24/01/2008

http://excelgali.mejorforo.net

Volver arriba Ir abajo

Re: Copiar Hojas

Mensaje por Anibal el Sáb Nov 22, 2008 3:46 pm

Gracias por la bienvenida, un placer estar en este Foro, y retomando el tema las hojas copiadas, seran enviadas a un libro, en el cual realizo el control pertinente, le llamaremos por ejemplo "MAESTRO". Quiza fui demasiado escueto en la explicación, las hojas que quiero copiar las genera un programa que dependiendo de los datos que haya tratado, genera un libro con un numero de hojas distinto, pueden ser 1 hasta un maximo de 4, y con nombres distintos, y de ahi surge mi problemilla,

Un Saludo

Anibal

Masculino Cantidad de envíos : 7
Edad : 55
Ciudad - Pais : Barcelona (ESPAÑA)
Fecha de inscripción : 22/11/2008

Volver arriba Ir abajo

Re: Copiar Hojas

Mensaje por GalileoGali el Sáb Nov 22, 2008 4:53 pm

Crea un Libro llamado MAESTRO.xls
Guardalo en la misma carpeta donde estaran los archivos a consolidar
En MAESTRO deja solo una Hoja a la que puedes Nombrar como "MT - 1" (esto despues podras modificarlo)
Inserta un Modulo Comun en el VBE
ahi pega este codigo

Código:
Option Explicit

Sub COPIADO()
Dim FILENAME As Variant
Dim iCantFiles As Integer, i As Integer, iCantHojas As Long
Dim wbkOrigen As Workbook
Dim wsh As Worksheet
FILENAME = Application.GetOpenFilename("Archivos Excel (*.xls), *.xls", , "Seleccione uno o mas archivos", , True)
If Not IsArray(FILENAME) Then
MsgBox "Tiene que elegir al menos un archivo a copiar", vbCritical
Exit Sub
End If
Application.ScreenUpdating = False
With ThisWorkbook
iCantFiles = UBound(FILENAME)
For i = 1 To iCantFiles
    On Error Resume Next
    Set wbkOrigen = Workbooks.Open(FILENAME(i))
    If wbkOrigen Is Nothing Then Set wbkOrigen = Workbooks(i)
        For Each wsh In wbkOrigen.Worksheets
            iCantHojas = .Worksheets.Count
            wsh.Copy After:=.Sheets(iCantHojas)
            .Sheets(iCantHojas + 1).Name = "MT - " & CStr(iCantHojas + 1)
        Next wsh
Application.DisplayAlerts = False
    wbkOrigen.Close
Next i
End With
End Sub

Has correr el codigo

_________________
GalileoGali
M.A.P. 2010-2013
Microsoft Active Professional

GalileoGali
Admin

Masculino Cantidad de envíos : 1962
Edad : 61
Ciudad - Pais : QUIROGA, Argentina
Version de Excel : 2000-2003-2007-2010
Fecha de inscripción : 24/01/2008

http://excelgali.mejorforo.net

Volver arriba Ir abajo

Re: Copiar Hojas

Mensaje por Anibal el Sáb Nov 22, 2008 6:27 pm

UNA GENIALIDAD, si señor, muchisimas gracias, me va perfecto, mil gracias


Un Saludo

Anibal

Masculino Cantidad de envíos : 7
Edad : 55
Ciudad - Pais : Barcelona (ESPAÑA)
Fecha de inscripción : 22/11/2008

Volver arriba Ir abajo

Re: Copiar Hojas

Mensaje por jairga el Lun Nov 24, 2008 12:00 am

Totalmente De acuerdo con tigo! tambien me lo llevo.

jairga
Moderador
Moderador

Masculino Cantidad de envíos : 163
Edad : 39
Ciudad - Pais : Cartagena-Barranquilla(Colombia)
Version de Excel : XP-2003-2007
Fecha de inscripción : 11/03/2008

Volver arriba Ir abajo

Re: Copiar Hojas

Mensaje por laura gomez el Miér Mar 04, 2009 8:49 am

no tengo mucha idea de macros
alguién me puede explicar cómo hacerlo!!!
gracias

laura gomez

Femenino Cantidad de envíos : 1
Edad : 37
Ciudad - Pais : españa
Version de Excel : 97-2000-XP-2003-2007
Fecha de inscripción : 04/03/2009

Volver arriba Ir abajo

Re: Copiar Hojas

Mensaje por jairga el Miér Mar 04, 2009 2:58 pm

Podrias comenzar por decirnos que quieres que te expliquemos?

jairga
Moderador
Moderador

Masculino Cantidad de envíos : 163
Edad : 39
Ciudad - Pais : Cartagena-Barranquilla(Colombia)
Version de Excel : XP-2003-2007
Fecha de inscripción : 11/03/2008

Volver arriba Ir abajo

Re: Copiar Hojas

Mensaje por Contenido patrocinado Hoy a las 11:26 pm


Contenido patrocinado


Volver arriba Ir abajo

Ver el tema anterior Ver el tema siguiente Volver arriba


 
Permisos de este foro:
No puedes responder a temas en este foro.