Macro para copiar contenido de varias pestañas a una
Tengo un archivo que esta dividido por pestañas, cada pestaña tiene la misma cabecera en a1:d1, lo que quiero hacer es pasar todo el contenido de las pestañas a una contemplando que la cabera siempre es a1:d1 y que el contenido de cada pestaña puede variar...
Ej.
Pestaña1 Pestaña 2 Pestaña 3
a b c d a b c d a b c d
x x x x y y y y z z z z
x x x x z z z z
z z z z
Pestaña final
a b c d
x x x x
x x x x
y y y y
z z z z
z z z z
z z z z
Te escribe Hernán Camilo desde Colombia, te puedo ayudar pero si me permites trabajar una conexión de tu excel con una base de datos Access que se cree.
Hola, mira el archivo es de trabajo prefiero las respuestas de forma convencional, gracias
Ahh... es que es bueno utilizar el potencial del gestor de bases de datos Access con Excel. Pero bueno que este bien!.
¿Con cuántas hojas de trabajo esta trabajando?
1 respuesta más de otro experto
H o l a:
Te anexo la macro, cambia en la macro "final" por el nombre de tu hoja que va a contener el resultado.
Sub CopiarContenido()
'Por.Dante Amor
Application.ScreenUpdating = False
Set h1 = Sheets("Final")
h1.UsedRange.Offset(1, 0).ClearContents
For Each h In Sheets
If h.Name <> h1.Name Then
For j = 1 To 4
u = h.Cells(Rows.Count, j).End(xlUp).Row
If u > umax Then umax = u
Next
If umax > 1 Then
h.Range("A2:D" & umax).Copy
For j = 1 To 4
u = h1.Cells(Rows.Count, j).End(xlUp).Row + 1
If u > u2 Then u2 = u
Next
h1.Range("A" & u2).PasteSpecial xlValues
End If
End If
Next
Application.CutCopyMode = False
Application.ScreenUpdating = True
MsgBo':) 'S aludos. D a n t e A m o r . R ecuerda valorar la respuesta. G racias ':)