Macro chaning

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

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
 
pcor said:
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:="<>"
 
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
 
pcor

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


Gord Dibben MS Excel MVP
 
Back
Top