Necesito un comando de visual basic (excel), que me permita copiar 3 rangos de 12 hojas en una sola hoja distinta.
Tengo un libro con 12 hojas, de esas 12 hojas necesito copiar los mismos rangos B6:B36, D6:D36 Y H6:H36, en una hoja nueva. De tal forma que en esa nueva hoja puede tener esos rangos de esas 12 hojas, en columnas o tal cual las ha copiado.
1 respuesta
Respuesta de Adriel Ortiz Mangia
[Hola
Crea una hoja BASE para copiar los datos de las hojas que necesitas
Sub copiar()
Application.ScreenUpdating = False
For Each h In Sheets
Set h1 = Sheets("BASE")
If h.Name <> h1.Name Then
u = 36
u1 = h1.Range("B" & Rows.Count).End(xlUp).Row + 1
h.Range("B6:B" & u & ",D6:D" & u & ",H6:H" & u).Copy
h1.Range("B" & u1).PasteSpecial Paste:=xlValues
u1 = u1 + 1
End If
Next h
Application.CutCopyMode = False
Application.ScreenUpdating = True
MsgBox "fin"
End Sub
