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
