Copiar y pegar

06/07/2005 - 22:47 por carloshernandezy | Informe spam

Hola a todos,

estoy intentando los siguiente (tiene varios pasos):
1º- copiar un mismo rango de tres hojas distintas (cada una tendrá
siempre el mismo nombre)
2º- generar un nuevo workbook
3º- pegar cada uno de los rangos en una hoja diferente del nuevo
workbook

Gracias por adelantado

Siga el debate

7 respuestas

Tengo una respuesta

Preguntas similare

Mostrar todos los temas similares

Leer las respuestas

#6 KL

08/07/2005 - 16:40 | Informe spam

Hola Carlos,

Como no contestas, prueba el siguiente codigo:

Sub CopyPaste()
Dim Hojas As Variant, Libro As Workbook
Dim i As Long, rng As String

Set Libro = Workbooks("ES400_2.0.xls")
Hojas = Array("DW1", "DW2", "PW")
rng = "D1:K33"

For i = LBound(Hojas) To UBound(Hojas)
With Libro.Sheets(i + 1)
Workbooks(Hojas(i) & ".xls").Sheets(1) _
.Range(rng).Copy .Range("A1")
.Name = Hojas(i)
End With
Next i
End Sub

Saludos,
KL

"carloshernandezy" wrote in message
news:
El código creo que funciona correctamente, pero yo no me exprese bien
las tres worksheet estan en tres workbooks diferentes y lo que intento
es unificarlas en un sólo workbook para facilitar su archivo

Gracias por tu interes

Responder a este mensaje

#7 carloshernandezy

09/07/2005 - 20:19 | Informe spam

Muchas gracias

y perdon por el retraso

Un saludo

Siga el debate Respuesta

Responder a este mensaje

Ads by Google