Macro chaning

[pcor]

I currently use the following macro:
Selection.AutoFilter Field:=1, Criteria1:="<>"

How can I change thus macro so that the "1"in field would be changed to the
cell that is selected.
(IE how do I capture the cell where the cursor is located when I run this
macro
In visual basic the code would be something like:
d$=celladdress
Field=d$
Thanks

 

[Mark]

I currently use the following macro:
Selection.AutoFilter Field:=1, Criteria1:="<>"

How can I change thus macro so that the "1"in field would be changed to the
cell that is selected.
(IE how do I capture the cell where the cursor is located when I run this
macro
In visual basic the code would be something like:
d$=celladdress
Field=d$
Thanks

Try:
Selection.AutoFilter Field:=Application.ActiveCell,Criteria1:="<>"

 

[Dave Peterson]

How about something like:

Option Explicit
Sub testme()

Dim myCol As Long

With ActiveSheet
If Intersect(.AutoFilter.Range, ActiveCell) Is Nothing Then
Beep
Exit Sub
End If
myCol = ActiveCell.Column - .AutoFilter.Range.Column + 1
.AutoFilter.Range.AutoFilter Field:=myCol, Criteria1:="<>"
End With

End Sub

 

[Gord Dibben]

pcor

Selection.AutoFilter Field:=ActiveCell.Column, Criteria1:="<>"


Gord Dibben MS Excel MVP

 

[pcor]

My thanks to Mark, Dave and Gord for your efforts.
Much appreciated.