Foros del Web » Programación para mayores de 30 ;) » Programación General » Visual Basic clásico »

Copiar hojas de un libro en otro libro

Estas en el tema de Copiar hojas de un libro en otro libro en el foro de Visual Basic clásico en Foros del Web. Necesito ayuda para hacer una macro con VBA en excel a traves del cual copie un rango de unas hojas de un libro en otras ...
  #1 (permalink)  
Antiguo 06/10/2010, 16:19
 
Fecha de Ingreso: octubre-2010
Mensajes: 1
Antigüedad: 11 años, 3 meses
Puntos: 0
Copiar hojas de un libro en otro libro

Necesito ayuda para hacer una macro con VBA en excel a traves del cual copie un rango de unas hojas de un libro en otras hojas con el mismo nombre de otro libro. He hecho algo pero no me funciona y me gustaria corregirlo o que me dijeran como tendria que hacerlo para que funcionara . Gracias. El codigo q he hecho es el siguiente :

Sub Copiardatosmesanterior()
'
'
Workbooks.Open ("Conjunto8-Agosto.xls")



Dim wkb As Workbook
Dim wkb2 As Workbook
Dim hoja As Worksheet
Dim hoja2 As Worksheet
Dim name As String
Dim lastcol As Long
Dim lsheet As Long
Dim PG As Range
Dim name1 As String

Set wkb = ActiveWorkbook
Set wkb2 = Workbooks.Open("Conjunto6-Junio.xls")

For Each hoja In wkb2
For Each Cell In Range("A6:AC6")
If Cell = "P.G." Then
Cell.Select
Exit For
End If
Next Cell

Set PG = Range(ActiveCell.Address)



lastcol = Sheets(5).Cells(6, PG).End(xlDown).Column

For Each Sheet In wkb2.Worksheets

Range(Cells("E6", "P.G."), Cells(82, lastcol)).Copy



For Each Sheet In wkb.Worksheets


Set name = Activeworksheet.name
Set name1 = wkb2worksheet.name

If name1 = name Then
wkb.Range(Cells("E6", "P.G."), Cells(82, lastcol)).Paste

Next

End If

Exit For


End Sub

Etiquetas: copiar, hojas, libro
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 14:06.