filter with condition
 

how can filter data with condition.
i have data like this
A B C D
1 a 10
2 b 20
3 c 10
4 d 40
5 e 10

when I enter any nos in D1 cell, my sheet filter (advance filter) with
condition like d1
result
A B C D
1 a 10
3 c 10
5 e 10
like this

RKS

filter with condition
 

In C1 enter

=B1=$D$1

copy down and filter on column C

--
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)

"RKS" wrote in message
...
how can filter data with condition.
i have data like this
A B C D
1 a 10
2 b 20
3 c 10
4 d 40
5 e 10

when I enter any nos in D1 cell, my sheet filter (advance filter) with
condition like d1
result
A B C D
1 a 10
3 c 10
5 e 10
like this

RKS

filter with condition
 

thanks Bob for reply
but when i can change c1 value its not automatically filter. i need when i
can change c1 value its automatically filter.

please help me
RKS


"Bob Phillips" wrote:

In C1 enter

=B1=$D$1

copy down and filter on column C

--
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)

"RKS" wrote in message
...
how can filter data with condition.
i have data like this
A B C D
1 a 10
2 b 20
3 c 10
4 d 40
5 e 10

when I enter any nos in D1 cell, my sheet filter (advance filter) with
condition like d1
result
A B C D
1 a 10
3 c 10
5 e 10
like this

RKS

filter with condition
 

How about this

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
Const WS_RANGE As String = "D1" '<== change to suit

On Error GoTo ws_exit
Application.EnableEvents = False

If Not Intersect(Target, Me.Range(WS_RANGE)) Is Nothing Then
If Me.AutoFilterMode Then Me.Cells.AutoFilter
If Target.Value < "" Then
Me.Columns(2).AutoFilter field:=1, Criteria1:=Target.Value
End If
End If

ws_exit:
Application.EnableEvents = True
End Sub

'This is worksheet event code, which means that it needs to be
'placed in the appropriate worksheet code module, not a standard
'code module. To do this, right-click on the sheet tab, select
'the View Code option from the menu, and paste the code in.

--
---
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)



"RKS" wrote in message
...
thanks Bob for reply
but when i can change c1 value its not automatically filter. i need when i
can change c1 value its automatically filter.

please help me
RKS


"Bob Phillips" wrote:

In C1 enter

=B1=$D$1

copy down and filter on column C

--
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my
addy)

"RKS" wrote in message
...
how can filter data with condition.
i have data like this
A B C D
1 a 10
2 b 20
3 c 10
4 d 40
5 e 10

when I enter any nos in D1 cell, my sheet filter (advance filter) with
condition like d1
result
A B C D
1 a 10
3 c 10
5 e 10
like this

RKS

filter with condition
 

Hi Bob

Its not working
pl give me other solution

RKS


How about this

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
Const WS_RANGE As String = "D1" '<== change to suit

On Error GoTo ws_exit
Application.EnableEvents = False

If Not Intersect(Target, Me.Range(WS_RANGE)) Is Nothing Then
If Me.AutoFilterMode Then Me.Cells.AutoFilter
If Target.Value < "" Then
Me.Columns(2).AutoFilter field:=1, Criteria1:=Target.Value
End If
End If

ws_exit:
Application.EnableEvents = True
End Sub

'This is worksheet event code, which means that it needs to be
'placed in the appropriate worksheet code module, not a standard
'code module. To do this, right-click on the sheet tab, select
'the View Code option from the menu, and paste the code in.

--
---
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)



"RKS" wrote in message
...
thanks Bob for reply
but when i can change c1 value its not automatically filter. i need when i
can change c1 value its automatically filter.

please help me
RKS


"Bob Phillips" wrote:

In C1 enter

=B1=$D$1

copy down and filter on column C

--
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my
addy)

"RKS" wrote in message
...
how can filter data with condition.
i have data like this
A B C D
1 a 10
2 b 20
3 c 10
4 d 40
5 e 10

when I enter any nos in D1 cell, my sheet filter (advance filter) with
condition like d1
result
A B C D
1 a 10
3 c 10
5 e 10
like this

RKS

filter with condition
 

Tad more info, and a tad less insistence?

--
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)

"RKS" wrote in message
...
Hi Bob

Its not working
pl give me other solution

RKS


How about this

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
Const WS_RANGE As String = "D1" '<== change to suit

On Error GoTo ws_exit
Application.EnableEvents = False

If Not Intersect(Target, Me.Range(WS_RANGE)) Is Nothing Then
If Me.AutoFilterMode Then Me.Cells.AutoFilter
If Target.Value < "" Then
Me.Columns(2).AutoFilter field:=1, Criteria1:=Target.Value
End If
End If

ws_exit:
Application.EnableEvents = True
End Sub

'This is worksheet event code, which means that it needs to be
'placed in the appropriate worksheet code module, not a standard
'code module. To do this, right-click on the sheet tab, select
'the View Code option from the menu, and paste the code in.

--
---
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my
addy)



"RKS" wrote in message
...
thanks Bob for reply
but when i can change c1 value its not automatically filter. i need
when i
can change c1 value its automatically filter.

please help me
RKS


"Bob Phillips" wrote:

In C1 enter

=B1=$D$1

copy down and filter on column C

--
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my
addy)

"RKS" wrote in message
...
how can filter data with condition.
i have data like this
A B C D
1 a 10
2 b 20
3 c 10
4 d 40
5 e 10

when I enter any nos in D1 cell, my sheet filter (advance filter)
with
condition like d1
result
A B C D
1 a 10
3 c 10
5 e 10
like this

RKS