Pasar un rango de celdas de varias hojas a otra hoja

[Chayane]

Que tal, tengo un archivo con varias hojas y en cada hoja hay un rango (igual en todas) que quiero copiar a una hoja "matriz" pero que la informacion sea agregada en la fila vacia despues de la ultima fila con datos, quiero aprender mas como programar en excel porque me enredo con los metodos, modulos, que si es objeto, procedimiento, etc. espero su ayuda, gracias de antemano..!

El rango a copiar es A4..P15

¿como hacer que el nombre de las hoja se copie en una celda en especifico en esa y en otra hoja "matriz"?

Anexo archivo ejemplo,.... gracias...!

Ejemplo Macro Excel copiar datos.xls

[tese1969]

Buenas, Chayane

Mira a ver si te vale con esto:

Sub pasar_a_matriz()

Application.ScreenUpdating = False

For Each Pestaña In Worksheets

If Pestaña.Name = "Matriz" Then GoTo otra:

Pestaña.Activate

Range("a4:P15").Copy

Sheets("Matriz").Activate

ActiveCell.SpecialCells(xlLastCell).Select

ultima = Selection.Row

Range("a" & ultima + 1).Activate

Range("r" & ultima + 1) = Pestaña.Name

Selection.PasteSpecial

otra:

Next Pestaña

Sheets("Matriz").Activate

Range("a1").Select

Application.ScreenUpdating = True

End Sub

[/CODE]

Coge el rango que tú querías de cada hoja (excepto la matriz) y lo pega en dicha hoja Matriz en la primera fila que encuentra vacía después de la anterior........si quieres modificar esto (dejar una línea en medio, por ejemplo...) donde aparece "ultima + 1" le pones un 2.....

He puesto el nombre de la pestaña en la columna r de cada primera fila copiada.

En el fichero adjunto está incluido el Módulo...

Ya me cuentas cómo ha ido....

Un saludo,

Tese

Ejemplo Macro Excel copiar datos.xls

[Chayane]

Gracias Tese, he copiado el codigo a mi archivo con datos reales, pero no copia el rango a4:p51, ejecuto paso a paso (F8) y en ese punto no hace nada, pasa al siguiente renglon y ejecuta ir a "matriz" y copia el rango pero obvio, esta vacío, HELP..! y eso de poner el nombre de la pestaña esta muy bien, ¿se pudiera copiar el nombre de la pestaña en cada renglon copiado?

o (estando en la columna r)¿como copio la celda hacia abajo hasta donde encuentra celdas vacias antes de la siguiente celda, y ahi copiar la celda que sigue , rellenar los espacios vacios y asi sucesivamente hasta llegar hasta la ultima celda de la columna r?

Gracias de antemano,

[tese1969]

Buenas, Chayane

Estás seguro que tu hoja se llama "Matriz" (así con su mayúscula primero y todo....) y que se activan las otras pestañas para copiar el rango?.........no entiendo qué puede estar pasando....... la instrucción es muy sencilla......

Podrías subir el archivo real, sin datos?.........por si es algo diferente y que no hemos tomado en cuenta.....

Un saludo,

Tese