Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Whats happened?
Hi, the code below used to update the hidden columns after I pressed the
autofilter button. It has now changed and I have to click in a column before it updates. Any thoughts as to why or how I can get it autoupdate when I use the autofilter drop-down? Sub ABC() Dim lastColumn As Long, rngA As Range, i As Long Dim rng1 As Range Application.ScreenUpdating = False Columns.Hidden = False lastColumn = Me.Cells(1, "IV").End(xlToLeft).Column Set rngA = Me.AutoFilter.Range Set rngA = rngA.Offset(1, 0) _ .Resize(rngA.Rows.Count - 1, 1) For i = 5 To lastColumn Set rng1 = Cells(3, i).Resize(rngA.Rows.Count, 1) If Application.Subtotal(3, rng1) = 0 Then Columns(i).Hidden = True End If Next Application.ScreenUpdating = True End Sub Private Sub Worksheet_Calculate() If Me.AutoFilterMode Then ABC Else Columns.Hidden = False End If End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Me.AutoFilterMode Then ABC Else Columns.Hidden = False End If End Sub |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
What happened to m.p.excel? | Excel Discussion (Misc queries) | |||
Now what happened? | Excel Discussion (Misc queries) | |||
what happened | Excel Worksheet Functions | |||
what happened | Excel Discussion (Misc queries) | |||
What happened to Excel? | Setting up and Configuration of Excel |