Please Help AutoFilter

[anvarfromkz]

Hello, Friend
1
Application.Dialogs(......................).Sho

I need Custom Filter Dialog, but in VBA it have not, if found onl
this(xlDialogFilterAdvanced, xlDialogFilter) Is someone know how can i d
this

2
ActiveSheet.Range(ActiveSheet.UsedRange.Address).AutoFilte
Field:=ActiveCell.Column, Criteria1:="=5&quot

I need to know how to get not absolute position of Field:=(ActiveCell.Column)

 

[Javed]

Hello, Friends
 1.
 Application.Dialogs(......................).Show

 I need Custom Filter Dialog, but in VBA it have not, if found only
 this(xlDialogFilterAdvanced, xlDialogFilter) Is someone know how can ido
this?

 2.
 ActiveSheet.Range(ActiveSheet.UsedRange.Address).AutoFilter
 Field:=ActiveCell.Column, Criteria1:="=5"

 I need to know how to get not absolute position of Field:=(ActiveCell.Column)

For your 2nd Query:

The field argument takes absolute column no
Use following:

With ActiveSheet.UsedRange
.AutoFilter Field:=ActiveCell.Column+1 - .Column,
Criteria1:="=5" 'Don.t Miss the . after +1
End With

For 1st :No such dialog available for only custom filter

 

[Jef Gorbach]

Hello, Friends
 1.
 Application.Dialogs(......................).Show

 I need Custom Filter Dialog, but in VBA it have not, if found only
 this(xlDialogFilterAdvanced, xlDialogFilter) Is someone know how can ido
this?

 2.
 ActiveSheet.Range(ActiveSheet.UsedRange.Address).AutoFilter
 Field:=ActiveCell.Column, Criteria1:="=5"

 I need to know how to get not absolute position of Field:=(ActiveCell.Column)

Oz has an example of using variables for the filter criteria which
might help.
http://www.ozgrid.com/forum/showthread.php?t=50818