Hi everybody,
I'm having a bit of a struggle to find out what's wrong with this code:
VBA CODE:
Private Sub Worksheet_Activate()
Dim rFilter As Range
On Error Resume Next
'turn on autofilter
Me.EnableAutoFilter = True
Set rFilter = Me.Range("tl_Transactions_Data")
rFilter.AutoFilter
If ActiveSheet.FilterMode Then
Me.ShowAllData
End If
'toggle drop-down arrows
If Not Me.AutoFilterMode Then rFilter.AutoFilter
Me.EnableOutlining = True
Me.Protect Password:="My_Sheet", Contents:=True, UserInterfaceOnly:=True, DrawingObjects:=False
'sort the transaction data range -no headers!
Me.Range("tl_transaction_data").Sort _
Key1:=[A1], Order1:=xlAscending, header:=xlNo, Orientation:=xlSortColumns
If Application.ScreenUpdating = False Then Application.ScreenUpdating = True
If Not Application.Calculation = xlCalculationAutomatic Then Application.Calculation = xlCalculationAutomatic
End Sub
VBA CODE
When the autofilter is enabled it displays the blue arrow on a different column, making things very difficult (for me as the developer ).
Any ideas, I couldn't find anything on this on the web..
Thank you very much,
bastanu
Bookmarks