............ Foro Excel
Si no lo has hecho aún: REGISTRATE!!!

Filtros en multiples hojas

Ver el tema anterior Ver el tema siguiente Ir abajo

Filtros en multiples hojas

Mensaje por cbyto el Jue Mayo 28, 2009 8:57 am

Buenos dias a todos. Los molesto en esta oportunidad para ver si me dn una mano con esto.
Tengo un archivo con 12 hojas. En la primer hoja tengo en una columna los nombres de monodrogas de productos y en la columna B las potencias de las drogas.
De la segunda hoja a la decima tengo distintos labortorios. Donde tengo en la columna A los nombres de las monodrogas, en la B las potencias y en las restantes demas info.
Lo que necesito son 2 cosas.......
1- Que al seleccionar (en la primer hoja siempre) la monodroga que quiera se extienda en las demas la misma seleccion de la monodroga. ESTO LO HACE MEDIANTE UNA MACRO.
Lo que no pude hacer es que haga lo mismo para la columna de la potencia, manteniendo seleccionada la columna de la monodroga.

2- Una vez hecho esto me muestre en una hoja aparte los resultados, como para no tener que ir hoja por hoja viendo.

Gracias, dejo el archivo en skydrive

[Tienes que estar registrado y conectado para ver este vínculo]

cbyto

Masculino Cantidad de envíos : 58
Edad : 39
Ciudad - Pais : Argentina
Version de Excel : 2003-2007-2010
Fecha de inscripción : 31/07/2008

Volver arriba Ir abajo

Re: Filtros en multiples hojas

Mensaje por ioyama el Jue Mayo 28, 2009 9:10 am

Hola cbyto

Prueba con

Sub Filtro()
For i = 2 To 10
Sheets(i).Select
Range("A1").Select
Selection.AutoFilter
Next i
Sheets("Principal").Select
Criterio_monodroga = Range("A1000").End(xlUp).Value
Criterio_potencia = Range("B1000").End(xlUp).Value
For i = 2 To 10
Sheets(i).Select
Selection.AutoFilter Field:=1, Criteria1:=Criterio_monodroga
Selection.AutoFilter Field:=2, Criteria1:=Criterio_potencia
Next
End Sub

Sub QuitaFiltro()
For i = 2 To 10
Sheets(i).Select
Range("A1").Select
Selection.AutoFilter
Next i
Sheets("Principal").Select
End Sub

En tu ejemplo parece funcionar

La segunda macro es sólo para quiatr los filtros de los laboratorios.

Un saludo desde Vitoria

ioyama
Moderador
Moderador

Masculino Cantidad de envíos : 128
Edad : 53
Ciudad - Pais : Vitoria (España)
Fecha de inscripción : 03/03/2008

Volver arriba Ir abajo

Re: Filtros en multiples hojas

Mensaje por cbyto el Dom Mayo 31, 2009 4:04 pm

ioyama muchas gracias, funciona de 10!!
Ahora. tenes alguna idea de como puedo "juntar" los resultados obtenidos en otra hoja para no tener que andar viendo hoja por hoja

Gracias

cbyto

Masculino Cantidad de envíos : 58
Edad : 39
Ciudad - Pais : Argentina
Version de Excel : 2003-2007-2010
Fecha de inscripción : 31/07/2008

Volver arriba Ir abajo

Re: Filtros en multiples hojas

Mensaje por GalileoGali el Dom Mayo 31, 2009 4:18 pm

Sin ver el asunto que se trató, preguntö
cbyto: ¿conoces como obtener la ultima fila con datos de una hoja?
te pregunto porque para acumular resultados en una hoja este el paso - llave, el resto puede hasta grabarse (aunque no se la mejor tecnica copiar y pegar, es una alternativa válida, la única dificultad está en establecer desde donde pegar....
Otro recurso interesante es CurrentRegion ( con sus complementos amigos, Offset y Resize), esto para capturar el qué ir copiando.....

_________________
GalileoGali
M.A.P. 2010-2013
Microsoft Active Professional

GalileoGali
Admin

Masculino Cantidad de envíos : 1962
Edad : 61
Ciudad - Pais : QUIROGA, Argentina
Version de Excel : 2000-2003-2007-2010
Fecha de inscripción : 24/01/2008

http://excelgali.mejorforo.net

Volver arriba Ir abajo

Re: Filtros en multiples hojas

Mensaje por cbyto el Lun Jun 01, 2009 7:20 pm

Para ver la ultima celda con dato lo que conozco es ...range.......end(xldown) y para extenderlo hacia la derecha .end(xltoright)
Lo que no se, seria como copiar ese rango, ya que va variando siempre

cbyto

Masculino Cantidad de envíos : 58
Edad : 39
Ciudad - Pais : Argentina
Version de Excel : 2003-2007-2010
Fecha de inscripción : 31/07/2008

Volver arriba Ir abajo

Re: Filtros en multiples hojas

Mensaje por ioyama el Mar Jun 02, 2009 2:40 am

Hola cbyto

con uf=Range("A" & Cells.Rows.Count).End(xlUp).Row puedes obtener la última fila,después con algo como

Range("A5:F" & uf).Copy copìarías el rango, supongo que la primera fila es la 5 (es un ejemplo, pero esta fila siempre la vas a conocer) e igualmente supongo que la última columna es la F (igualmente en tu caso siempre sabrás cuál es la última columna). Lo variable es la última fila (variable a la que he llamado uf) que he hallado con la primera sentencia.

Un saludo desde Vitoria

ioyama
Moderador
Moderador

Masculino Cantidad de envíos : 128
Edad : 53
Ciudad - Pais : Vitoria (España)
Fecha de inscripción : 03/03/2008

Volver arriba Ir abajo

Re: Filtros en multiples hojas

Mensaje por Alef-Thau el Jue Jun 04, 2009 8:36 am

Si lo que quieres es que te de los resultados de distintos "componentes" (vamos a llamarlo asi) o datos de un producto (o de cada hoja-ficha) en una hoja puedes hacer las fichas con tablas y recoger el total de cada dato (columna) que te interese en esa hoja final. Me explico mal, lo se, XD a ver si con un ejemplo mio te ayudo.

Yo tengo creado un libro "bestial" para llevar los datos de un kiosco:
recepcion de revistas, devolucion y ventas con estadisticas de ventas, devoluciones, dias de devolucion y próximos números asi como ganancias dinero pagado y algunos datos más, todo eso con una ficha por publicacion (hablo de mas de 200 hojas en el libro) desde donde extraigo datos de cada hoja-ficha a una hoja final.

Por ejemplo la revista Pronto en la hoja final tendría (todo esto en columnas):
la cantidad que recibí.
Número de publicación.
Número de albarán.
Precio.
Fecha de entrada.
Fecha de proximo numero.
Fecha de devolucion,
etc... muchas mas cosas.

Todo esto para cada 1 de las revistas en la hoja final. Los datos los saco sin macro, simplemente referenciarias con un operador, por ejemplo en mi caso para mostrar el último número entrado en la hoja-ficha del pronto ordenaria la columna de mayor a menor (ultimo numero entrado es el mayor) en el total pondría: =SUBTOTALES(104;[Número]) donde 104 es el Max. y [Número] el rango de la columna "numero", si no fuera posible ordenarlo ya que no siempre pueden ser datos consecutivos (en el caso de un precio por ejemplo que puede variar y hay que presentar el último entrado) entonces la formula del total sería: =CELDA("contenido";[Cantidad entrada]) donde te daría la cifra colocada en la primer casilla de la columna "Cantidad entrada".

Como puedes ver con esto tendrías una hoja donde te daría los datos ultimos de todas las actualizaciones de las fichas en tiempo real, mirando esta hoja verias los datos que te interesan.

espero que te haya servido de algo o te de una idea de como hacerlo. si quieres te envío o coloco un ejemplo en algun lado para que cacharrees con el, si es que aun no has dado con la solución.

Alef-Thau

Masculino Cantidad de envíos : 22
Edad : 52
Ciudad - Pais : España
Version de Excel : actualmente 2010
Fecha de inscripción : 23/05/2009

Volver arriba Ir abajo

Re: Filtros en multiples hojas

Mensaje por Contenido patrocinado Hoy a las 12:38 pm


Contenido patrocinado


Volver arriba Ir abajo

Ver el tema anterior Ver el tema siguiente Volver arriba


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