Copia de datos con macro a otra hoja con rango

Hola buen día Señores y Srtas.
Mi duda es la siguiente, y tengo una idea, pero no es el total clara, lo que quiero hacer es lo siguiente:
Tengo una archivo de excel con 5 pestañas, lo que quiero es una macro que de esas 5 pestañas me de la información a un libro nuevo, desconozco si le puedo dar el rango yo a la macro, osea decirle ctrl+Shift tope derecha, ctrl+shift tope abajo (esto con la finalidad de que solo agarre los datos llenos y no toda la hoja) y los copie a otro libro uno tras otro.
Se que existe la fncion copy:
Sheets("prueba").Select
Range("A1:L2000").Select
Selection.Copy
Sheets("copiados").Select
Range("a1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Sheets("prueba").Select
Range("a4").Select
Application.CutCopyMode = False
(Esto lo tenia para copiarlo de una sheet a otra, pero no me sirve ya. Y quiero juntarlo con que copie la 1-2 3-4-5 en una sola como una base de datos que posteriormente utilizare para otra cosa.
Agradecería la ayuda del grupo, espero sus respuestas.
Saludos
ING. Julio Sauceda

1 Respuesta

Respuesta
1
Aquí adjunto rutina para esto.
Sub armaBase()
'desarrollada por Elsamatilde
For Each sh In Sheets
'excluimos alguna hoja
If sh.Name <> "copiados" Then
'buscamos la primer fila libre para pegar
filaini = Sheets("copiados").Range("A65536").End(xlUp).Row + 1
sh.Range("A1").CurrentRegion.Copy    'ver*
Sheets("copiados").Cells(filaini, 1).Select
ActiveSheet.Paste
End If
Next sh
End Sub
* CurrentRegion tomará el total de celdas con datos, hasta encontrar una intersección de fila y col vacías. Podés reemplazar por un rango fijo (A1:L2000) o buscando el fin con :
Cells(fila, col) donde fila y col se habrán obtenido siguiendo el ejemplo de la variable filaini (ver otros ejemplos en mi página de macros)
No me da bien la función, me puedes aclarar la parte de agregado de pestañas.
Hola Elsa, ya utilice tu macro pero me copia 2 veces los datos de las pestañas, ¿me puedes explicar el porque?
Private Sub CommandButton1_Click()
' Copiado de Datos
For Each sh In Sheets
' Excluimos alguna hoja
If sh. Name <> "4" Then
' Primer fila libre para pegar
filaini = Sheets("copia"). Range("A65536"). End(xlUp). Row + 1
sh. Range("A3"). CurrentRegion. Copy
Sheets("copia"). Cells(filaini, 1). Select
ActiveSheet. Paste
End If
Next sh
End Sub
Elsa, ya solucione el problema:
Solo cambie el <> por < dado que repetia 2 veces la opcion.
' Excluimos alguna hoja
    If sh.Name < "4" Then
Solamente me copia datos de más de la ultima, no me respeta el rango de la A1 final.
El bucle dice que 'para cada hoja... copiar en hoja llamada 'copia' con excepción de la hoja llamada 4, es decir que también estás ejecutando la hoja copia.
Esta es la primera que yo hubiese excluido. No confundas nro de hoja con nombre de hoja.
Sh. Name se refiere al nbre
Private Sub CommandButton1_Click()
' Copiado de Datos
For Each sh In Sheets
' Excluimos alguna hoja. En este caso la llamada 'copia'
If sh. Name <> "copia" Then
' Primer fila libre para pegar
filaini = Sheets("copia"). Range("A65536"). End(xlUp). Row + 1
sh. Range("A3"). CurrentRegion. Copy
Sheets("copia"). Cells(filaini, 1). Select
ActiveSheet. Paste
End If
Next sh
End Sub
Probala así. Si además tenés una hoja llamada 4 y también la querés excluir será:
If sh. Name <> "copia" and sh.name <> "4" Then

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Macro que busque un valor y copie la fila entera

Espero me puedan ayudar, Necesito hacer una macro que me busque un valor en la hoja 1 y copie toda la fila a la hoja 2 sin sobreescribir el ultimo registro, y una vez copiada la fila, la elimine de la hoja 1
1 respuesta

Macro para copiar filas de varias hojas a una sola hoja,

El día de ayer encontré una macro para poder copiar la primera hoja de los 100 que manejo en un solo libro, hasta ahí todo bien. Lo que necesito ahora es una macro para poder copiar las filas de las 100 hojas en una sola hoja, tienen el mismo...
2 respuestas

Necesito copiar los datos de varias hojas excel y misma celda en una sola hoja y correlativos.

Tengo un libro excel con varias hojas. En cada hoja y en la misma celda hay un dato numérico. Hay manera automática de traspasar todos esos datos de la misma celda ¿A una sola hoja y que se copiaran correlativas (una debajo de otra)?.
1 respuesta

Juntar información en una sola hoja

Espero que me puedan ayudar con una macro que permita juntar la información de 6 hojas que tengo en una sola hoja teniendo en cuenta que la información de cada hojapuede cambiar en cantidades, el formato que utilizo es una base de datos en 2003,...
1 respuesta

Macro que copie encabezado de una hoja a otra

Sigo en la novatez con vba pero poco a poco le agarro el gusto a este lenguaje, sin embargo sigo topándome con cuestiones como ésta que les platico: Tengo un libro, donde en cada hoja que tiene algunas filas coloreadas, bien, estoy trabajando con una...
1 respuesta

Macro pega valores actualizados al final

Les tengo la siguiente consulta: Tengo una consulta a una base de datos que se actualiza cada 5 minutos automáticamente. Esta actualización entrega un valor. En la celda A1 de la Hoja1. Necesito que cada vez que se actualize la base, ese nuevo valor...
1 respuesta

Contador para ejecutar setencia macro

La siguiente sentencia me permite copiar una fila de una hoja a otra Dim filaUlt As Long 'ejecutamos setencia Sheets("Hoja1").Select 'seleccionamos hoja filaUlt = Sheets("Hoja1").Range("A65536").End(xlUp).Row + 1 ' y buscamos la última fila Range("A"...
1 respuesta

Macro que me busque un valor y lo copie a otra hoja

Requiero de su sabiduría Necesito crear una macro que evalué si una celda (HOJA 1, Celda U3) cumple una condición. Si la condición se cumple (="Eisai613"), que copie el contenido de una segunda celda de la misma fila (HOJA 1, Celda B3) y lo pegue en...
2 respuestas