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 filtrar por dos criterios el 05/09/14, 12:39 pm

jhon1904


hola amigos de universo

lo que busco es necesario filtrar con dos criterios lo 10 mejores resultados

espero me ayuden
saludos

jhon borja
Archivos
Libro1.xlsx
No tienes los permisos para descargar los archivos.
(14 KB)

2RESUELTO Re: filtrar por dos criterios el 05/09/14, 04:41 pm

tyno


Hola Jhon.

Prueba con esta macro insertada en algún botón en la Hoja1:

On Error Resume Next
Range("f6:g15") = ""
For a = 2 To Range("a65536").End(xlUp).Row
If Cells(a, 1) * 1 > [e3] * 1 And Cells(a, 1) * 1 <= [f3] * 1 Then
rw = Range("f5:f15").Find("").Row
Cells(rw, 6) = Cells(a, 1)
Cells(rw, 7) = Cells(a, 2)
End If
Next a
Range("f6:g15").Sort , key1:=[f6], order1:=xlAscending, key2:=[g6], order2:=xlAscending

Lo que no entiendo bien es que en la Hoja1 tienes los dos criterios establecidos en E3 y F3 mientras que pides filtrar los 10 mejores resultados.

Saludos

3RESUELTO Re: filtrar por dos criterios el 06/09/14, 01:09 am

jhon1904


hola, tyno gracias por responder


si, se tiene que filtrar los 10 mejores resultados, pero hay dos condiciones que se tiene que cumplir y ovio su las celdas están vacías se filtran los 10 mejores de toda la base de datos

saludos

jhon borja

4RESUELTO Re: filtrar por dos criterios el 06/09/14, 01:12 am

jhon1904


hola, tyno

esta buena su macro pero el inconveniente es que los pone alreves

la cuestión de los 10 mejores resultados es que el 1 se pone el que mas grande según la condicion y el en puesto 10 pues el mas pequeño

saludos

jhon borja

5RESUELTO Re: filtrar por dos criterios el 06/09/14, 07:34 am

tyno


Hola Jhon.
Podrías mostrar, a modo de ejemplo, que resultados se deberían obtener tomando los datos que tienes en el archivo, siendo que en E3 el criterio en este caso es mayor a 5 y en F3 menor/igual a 29. O sea, has los resultados de forma manual como para tener una idea de lo que quiere obtener.

Por otro lado si la macro esta dando los resultados que esperabas pero el orden de los mismos tiene que ser descendente, entonces es solo cuestión de cambiar esta instrucción:

Range("f6:g15").Sort , key1:=[f6], order1:=xlDescending, key2:=[g6], order2:=xlDescending

Saludos

6RESUELTO Re: filtrar por dos criterios el 06/09/14, 12:00 pm

jhon1904


hola, tyno

para ese condicion quedaria asi
Criterios de Consulta
Mayor Menor o Igual
5 29

Numero Registro Nombre
1 27 Nombre18
2 26 Nombre02
3 25 Nombre10
4 22 Nombre15
5 21 Nombre04
6 19 Nombre16
7 15 Nombre19
8 14 Nombre13
9 12 Nombre25
10 12 Nombre03

saludos

7RESUELTO Re: filtrar por dos criterios el 06/09/14, 09:05 pm

tyno


Hola Jhon.
Prueba con este código:

On Error Resume Next
Application.ScreenUpdating = False
Columns("AA:AB") = ""
For a = 2 To Range("a65536").End(xlUp).Row
rw = Range("aa1:aa1000000").Find("").Row
Cells(rw, 27) = Cells(a, 1)
Cells(rw, 28) = Cells(a, 2)
Next a
Range("aa2:ab" & Range("a65536").End(xlUp).Row).Sort , key1:=[aa2], order1:=xlDescending, key2:=[ab2], order2:=xlDescending

Range("f6:g15") = ""
For a = 2 To Range("a65536").End(xlUp).Row
If Cells(a, 27) * 1 > [e3] * 1 And Cells(a, 27) * 1 <= [f3] * 1 Then
rw = Range("f5:f15").Find("").Row
Cells(rw, 6) = Cells(a, 27)
Cells(rw, 7) = Cells(a, 28)
End If
Next a
Columns("AA:AB") = ""
Application.ScreenUpdating = True

8RESUELTO Re: filtrar por dos criterios el 07/09/14, 01:17 am

jhon1904


hola, tyno lo que buscaba

saludos

jhon borja

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.