UniversoExcelForo

Respuesta a consultas.
Fecha de creación: 09.Abril.2012

Fundadores: Wibly,Tyno,Servando,Sakkar,Rosendo2,RMaximo,Railar,Mcoronel,Ioyama,Igtelo,Hugotron,Drochar,Dedos,Alberto,Adolfo

No se pueden hacer consultas de Excel o VBA por mensaje privado.
Utiliza el botón buscar del foro y te ahorras tiempo para obtener "ayuda".

No estás conectado. Conéctate o registrate

Ver el tema anterior Ver el tema siguiente Ir abajo  Mensaje [Página 1 de 1.]

1RESUELTO Reporte para consolidados el 13/12/15, 11:39 am

SALAVERRINO


Buenas días a los miembros de este foro, en esta ocasión solicito vuestra colaboración y ayuda para mejorar la macro que estoy utilizando para remitir reporte de consolidados,para lo cual adjunto el archivo donde se encuentra la macro y mi problema en esta parte Range("B8:AO17"). Copy., por lo que quisiera que AO17 (debe siempre la ultima fila de cada archivo y como es lógico en cada archivos que tengo a extraer la cantidad de datos son variables como por ejemplo una tiene 113, 36, 28, etc., para ellos necesito que a ejecutarse la macro solo permita leer la última fila (SIN INCLUIR LA SUMA TOTAL).

A la espera de su respuesta quedo de uds. Agradecidos.
Archivos
PLANTILLA ELECTRONICA.zip
No tienes los permisos para descargar los archivos.
(256 KB)

2RESUELTO Re: Reporte para consolidados el 13/12/15, 01:38 pm

Igtelo


Hola Salaverrino.

Si tus hojas de cada archivo tienen la misma estructura nada más amplia el rango a la hoja que mayor cantidad de datos tenga.

Ejemplo, si tienes como dices 113, 36, 28 cambia a: Range("B8:AO113").

Sino es así, declara una variable para que encuentre el máximo de filas de cada hoja.

En éste aporte encuentras lo que necesitas y con poco código, lo que tienes es muy elaborado, no es necesario tanto, (son muchas vueltas para algo simple).

http://www.universoexcelforo.com/t1676-extraer-rangos-de-una-hoja-y-crear-libros-mejorado-aporte

Saludos
Ignacio Téllez
P.d: Si ejecutas por pasos cualquier macro verás como funcionan y te será fácil modificar. Copiar y pegar no les ayuda en nada.

3RESUELTO Re: Reporte para consolidados el 13/12/15, 02:51 pm

SALAVERRINO


Gracias por el aporte Igtelo.

Ver el tema anterior Ver el tema siguiente Volver arriba  Mensaje [Página 1 de 1.]

Permisos de este foro:
No puedes responder a temas en este foro.