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 i do
this?

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

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

On Jun 3, 12:42*pm, anvarfromkz wrote:
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 i do
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

On Jun 3, 3:42*am, anvarfromkz wrote:
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 i do
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