Copiar y pegar

Hola Carlos,

Dos preguntas:

1) Como lo estas haciendo - manualmente o por macros?
2) Cual es tu pregunta?

Saludos,
KL


"carloshernandezy" wrote in message
news:
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

Uy!!! perdón presioné demasiado pronto el botón enviar

Lo estoy intentando hacer con una macro de forma que me facilicite la
tarea lo intento de una forma bastante rudimentaria ya que mis
conocimientos de VB son bastante escasos. Grabo una macro con hojas de
prueba lo que quiero hacer y luego lo adapto a los nombres de mis hojas
reales.

Al final he conseguido este código a base de grabar macros que parece
que funciona, mi idea seria guardar la macroel el archivo
"ES400_2.0.xls" y abrirlo cada vez que sea necesario como una plantilla
y luego salvar como ... y guardarlo con otronombre para no machacar el
archivo que contiene la macro, ya que me resulta más difícil abrir un
archivo nuevo donde pegar el contenido.

Sub CopyPaste()

Windows("DW1").Activate
Range("D1:K33").Select
Selection.Copy
Windows("ES400_2.0.xls").Activate
Cells.Select
ActiveSheet.Paste
'nombra la hoja actual
ActiveSheet.Name = "DW1"

Windows("DW2").Activate
Range("D1:K33").Select
Application.CutCopyMode = False
Selection.Copy
Windows("ES400_2.0.xls").Activate
Sheets("Hoja2").Select
Cells.Select
ActiveSheet.Paste
'nombra la hoja actual
ActiveSheet.Name = "DW2"

Windows("PW").Activate
Range("D1:K33").Select
Application.CutCopyMode = False
Selection.Copy
Windows("ES400_2.0.xls").Activate
Sheets("Hoja3").Select
Cells.Select
ActiveSheet.Paste
'nombra la hoja actual
ActiveSheet.Name = "PW"


End Sub

Hola Carlos,

Prueba el siguiente codigo. Lo puedes ejecutar desde cualquier modulo de
cualquier libro. Los unicos requisitos son los siguientes:

1) que el libro de origen este activo (no importa que hoja del libro este
activa)
2) que en el libro activo existan las hojas "DW1", "DW2" y "PW"
3) que exista un libro abierto llamado "ES400_2.0.xls"
4) que en el libro "ES400_2.0.xls" existan al menos 3 hojas (no importan los
nombres)

Saludos,
KL

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)
ActiveWorkbook.Sheets(Hojas(i)).Range(rng).Copy .Range("A1")
.Name = Hojas(i)
End With
Next i
End Sub

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

Hola Carlos,

?Se conocen los nombres de los archivos de origen o son variables?
?El archivo de destino lo quieres crear al vuelo o ya existira al ejecutar
el macro?

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