Excel - MAcro para pegar datos de hoja 1 a hoja 2 consolidando

 
Vista:
sin imagen de perfil

MAcro para pegar datos de hoja 1 a hoja 2 consolidando

Publicado por Sergio (1 intervención) el 21/10/2016 03:18:49
Buenas noches
Revisando las respuestas, se ve que son muy bien fundamentadas,
He creado una macro que copia datos de la hoja 1 a la hoja 2,
lo que necesito es que cuando me pegue los datos en la hoja 2,
lo realice debajo del último registro,
Lo anterior para realizar un consolidado

Quedo atento a sus valiosas respuestas y asesorías!
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Antoni Masana
Val: 4.908
Oro
Ha mantenido su posición en Excel (en relación al último mes)
Gráfica de Excel

Macro para pegar datos de hoja 1 a hoja 2 consolidando

Publicado por Antoni Masana (2487 intervenciones) el 21/10/2016 13:19:26
Cuando copio el primer bloque de datos lo hago así

1
2
Bloque = "A" & Punt_Ini & ":" & Colum & Punt_Fin
Sheets(Hojas(a)).Range(Bloque).Copy Sheets(New_Hoja).Range("A2")

En las siguientes copias busco la primera línea libre

1
2
3
Bloque = "A" & Punt_Ini & ":" & Colum & Punt_Fin
Destin = "A" & Linea_Libre
Sheets(Hojas(a)).Range(Bloque).Copy Sheets(New_Hoja).Range(Destin)

Para buscar la primera línea libre se puede hacer de varias formas te cuento dos:

1.- Búsqueda Secuencial. Sobre todo si hay pocos datos.
2.- Búsqueda Dicotómica, Si la primera línea libre es la 1.005.067 con el sistema anterior tengo que revisar 1.005.067 celdas, de esta forma en el peor de los casos solo tengo que revisar 20 celdas para saber la primera libre.

Saludos.
\\//_
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar