just i changed:
filtFcol to filtHcol
(F:F) to (H:H)
A1 to I3
sheet1 to correct sheet name
as a my work book possition;
does it make mistake?

regards
nader

"Stefi" wrote:

Just type a new value in cell A1 in sheet2, the event sub should
automatically fire (if the installation was correct).
Stefi


€žnader€� ezt Ã*rta:

hi
I did:click right on sheet2 tab---view code---inserted your suggestion
(event sub) in to the window.
then I got a new module and inserted your suggestion (sub) in to that window.
because of the name of this project didn't show in the ' run macro' window,
so I don't know how I
running this project.

kind regards.
nader


"Stefi" wrote:


You are welcome! Thanks for the feedback! Feel free to post if you need some
help to understand the code!
Stefi

€žnader€� ezt Ã*rta:

hi
i really appreciate your helps,
i am new in excel, specially in VB and i will spent hours trying to use your
helps.
i hop let me i use your helps about this sobject at the next times.
warm regards,
nader


"Stefi" wrote:

Insert this event sub into code window of Sheet2:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(False, False) = "A1" Then Call filtFcol(Target.Value)
End Sub

Insert this sub into a normal module:
Sub filtFcol(filtval)
Worksheets("Sheet1").Select
Columns("F:F").Select
Selection.AutoFilter
If filtval = "all" Then
Selection.AutoFilter Field:=1
Else
Selection.AutoFilter Field:=1, Criteria1:=filtval
End If
End Sub

Regards,
Stefi


€žnader€� ezt Ã*rta:

hi stefi

Description of my question is:

I have a dropdown list like:

toyota
nissan
kia
all

in "sheet2" cell "A1" and i have column F in "sheet1" contain names above.
I want to have a macro, when i choose a value from dropdown list in "sheet2"
"A1" and apply macro, Excell filters in "sheet1" column F by this value and
when i choose "all" value in dropdown list and apply this macro again, it
unhides all cells, including blanks.

kind regards,
nader

"Stefi" wrote:

The VBA equivalent of choosing All from Autofilter dropdown list is:
Selection.AutoFilter Field:=6
It must unhide all cells, including blanks. If you have other problem, give
more details!

Regards,
Stefi

€žnader€� ezt Ã*rta:

HI Stefi
when i filter(all) by your macro it don't show blanks.
is possible it show blanks too?
it is important for me.
thanks

"Stefi" wrote:

You are welcome! Thanks for the feedback!
Stefi

€žnader€� ezt Ã*rta:

HI Stefi

it works well.

any thanks.
nader

"Stefi" wrote:

Try this way:
Selection.AutoFilter Field:=6, _
Criteria1:="=" & Sheets("Sheet2").Range("A1").Value

Regards,
Stefi


€žnader€� ezt Ã*rta:

hi all dears

i need your helps
I use following mocro:

Sheets("Sheet1").Select
Selection.AutoFilter Field:=6, _
Criteria1:="=" & Range("Sheet2!A1").Value

I need to filter(All) by putting a value in cell ("Sheet2!A1").

Thanks.