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