Macro hiding the wrong columns!

[SamAnnElizabeth]

I'm trying to record a macro to return my sheet to the print display. I recorded it and then edited in visual basic. Here's the code:

Sub Hide()
'
' Hide Macro
'


'
Rows("1:60").Select
Selection.EntireRow.Hidden = False
Columns("A:AZ").Select
Selection.EntireColumn.Hidden = False
Rows("34:51").Select
Selection.EntireRow.Hidden = True
Rows("3:9").Select
Selection.EntireRow.Hidden = True
Columns("K:K").Select
Selection.EntireColumn.Hidden = True
Columns("P:P").Select
Selection.EntireColumn.Hidden = True
Columns("AG:AX").Select
Selection.EntireColumn.Hidden = True
Range("A1").Select
End Sub


When I run it, it hides columns G:Q and Z:AX. The rows are right. I have no merged cells in the range. Does anyone have any ideas what I could do differently? Thanks!

 

[Jonmo1]

What is it that is wrong?

You say the wrong columns are hidden, which columns are you expecting to be hidden?


You can write the code without selecting anything

Sub Hide()
'
' Hide Macro
'

'
Rows("1:60").EntireRow.Hidden = False
Columns("A:AZ").EntireColumn.Hidden = False
Rows("34:51").EntireRow.Hidden = True
Rows("3:9").EntireRow.Hidden = True
Columns("K:K").EntireColumn.Hidden = True
Columns("P:P").EntireColumn.Hidden = True
Columns("AG:AX").EntireColumn.Hidden = True
Range("A1").Select
End Sub

 

[SamAnnElizabeth]

That worked great, but I now have another question. Is there a way to clear filtering at the beginning of a macro?

 

[Jonmo1]

By Clear Filtering, do you mean turn OFF any filters (dropdowns no longer visible)?
Oor just clear any criteria that had been selected by the filters?

 

[SamAnnElizabeth]

Sorry, clear the criteria that has been selected by a certain filter (just one).

 

[technicalupload]

Write this code at the beginning:

If Selection.AutoFilter Then Selection.AutoFilter

 

[Jonmo1]

This line will clear any criteria that has been set by autofilters

ActiveSheet.ShowAllData

 

[SamAnnElizabeth]

Incredible! Thanks for the help, I'm finally getting used to this VBA stuff, haha.

 

[Jonmo1]

Glad to help, thanks for the feedback.

 

[SamAnnElizabeth]

Ugh, I'm having another problem now.

I tried to insert a button for the Macro and it's now telling me that there is an error with the ActiveSheet.ShowAllData command when there wasn't before I tried to add the button.

Any advice?