Reply
 
LinkBack Thread Tools Search this Thread Display Modes
  #1   Report Post  
Posted to microsoft.public.excel.programming
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.


  #2   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 430
Default Code assistance

Never mind, I got it... Seem to work as I want it to.
I added:

If ActiveSheet.FilterMode Then
ActiveSheet.ShowAllData
End If

after Private... Line
Jim

"Jim May" wrote in message
news:Abile.18789$Fv.622@lakeread01...
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.




  #3   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 1,120
Default Code assistance



"Jim May" wrote in message
news:Abile.18789$Fv.622@lakeread01...
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


You just test AutoFilterMode for this

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).


Didn't really get this bit Jim. Do you mean if the autofilter is on another
column, remove it. and in all cases apply it to the new column? If so, I
don't get the target column -2. Would you not filter the target column?


  #4   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 430
Default Code assistance

My Autofilter Range is C4:G50; so If I click in column F (which is Col 6)
I must subtract 2 (always) to get my column Number in my range.. (that's
it)..

I figured out - and it now works great,,, see above..


"Bob Phillips" wrote in message
...


"Jim May" wrote in message
news:Abile.18789$Fv.622@lakeread01...
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


You just test AutoFilterMode for this

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).


Didn't really get this bit Jim. Do you mean if the autofilter is on

another
column, remove it. and in all cases apply it to the new column? If so, I
don't get the target column -2. Would you not filter the target column?




Reply
Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules

Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are On


Similar Threads
Thread Thread Starter Forum Replies Last Post
CODE Assistance needed PLEASE please please N.F[_2_] Excel Discussion (Misc queries) 0 July 9th 07 08:36 PM
Assistance with code Please Greg B... Excel Discussion (Misc queries) 8 March 2nd 05 10:55 PM
I need assistance getting VBA code to do the following... SD Excel Programming 1 February 3rd 05 03:17 AM
Code assistance please JMay Excel Programming 3 September 4th 04 05:21 PM
VBA Code Assistance chryo Excel Programming 9 August 7th 04 12:57 AM


All times are GMT +1. The time now is 09:13 AM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
Copyright ©2004-2025 ExcelBanter.
The comments are property of their posters.
 

About Us

"It's about Microsoft Excel"