Excel - Filtro y una formula

 
Vista:
sin imagen de perfil

Filtro y una formula

Publicado por Maximiliano A. (10 intervenciones) el 25/07/2008 07:35:21
Hola soy maximiliano y necesito la ayuda de alguien que sepa excel super avanzado, esto es lo que necesito, si no se puede hacer lo que quiero por ultimo respondanme y diganme que no se puede.Gracias, ahi va:

Tengo en un Fila, supongamos A10, A11, con titulos, A10 dice OT y A11 dice M.
coloco autofiltro y todo funciona bastante bien, lo que quiero hacer es lo siguiente.
Crear una formula que cuando yo aprete el filtro de OT y seleccione el texto o el numero del filtro que necesito, ese texto o numero se coloque en una celda, ejemplo en la celda A3.

En este caso es un numero, Apreto el filtro de OT, selecciono el numero 5, se van a filtrar todos los que tienen 5, y ese numero 5 quiero que me lo muestre en la Celda A3. eso es todo (Ojo que si selecciono cualquier otro numero que esta en la lista aparecera en la celda A3).podria seleccionar el 6 y me aparece 6 en la celda A3 y etc.etc..

OT M
1 tyr
1 tyut
5 rty
6 ery
3 sdf
5 erter
1 erter
2 d
3 fdg
6 dfs
5 fdsf
4 sdf
5 sdf

El que me pueda responder, lo voy admirar demasiado, muchas gracias por tu tiempo y espero tu respuesta.
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

RE:Filtro y una formula

Publicado por Octavio Illescas (46 intervenciones) el 25/07/2008 17:40:58
Pon esto en un nuevo de VBA:

Function filtroinfo(Header As Range) As String
Dim strCri1 As String, strCri2 As String
Application.Volatile
With Header.Parent.AutoFilter
With .Filters(Header.Column - .Range.Column + 1)
If Not .On Then Exit Function
strCri1 = .Criteria1
If .Operator = xlAnd Then
strCri2 = " AND " & .Criteria2
ElseIf .Operator = xlOr Then
strCri2 = " OR " & .Criteria2
End If
End With
End With
filtroinfo = UCase(Header) & ": " & strCri1 & strCri2
End Function

con esto acabas de crear una formula que se llama filtroinfo, asi que en A3 pones la formula =filtroinfo("Celda de encabezado de filtro")

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