Thread: Code assistance
View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
Jim May Jim May is offline
external usenet poster
 
Posts: 430
Default Code assistance

The following allows me to "click" within a column of my auto-filter
and all blank rows (of that column only) are auto-hidden.

Existing problem(s), however:
1) It assumes that the AutoFilter is already "on".
Should probably allow (via code) when autofilter has been turned off
2) If one or more columns has been previously selected, I would like
to Unfilter them (remove say field:= 2, or 3) and replace with my newly
selected field (with nonblanks).

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(ActiveSheet.AutoFilter.Range, Target) Then
ColSel = Target.Column - 2 'Table starts in Column C
Selection.AutoFilter Field:=ColSel, Criteria1:="<"
End If
End Sub

Thanks for any help,
have already searched extentively, Goolgle
and all my Books, but No Luck.