Hiding Columns

[Max Alejandro Molina]

Hello Everyone,

I would like to do exactly what the title says, the issue is that i have already done so for each worksheet individually and I need to do this for the whole workbook as the structure is similar.

The question is How can I merge the following into a simple Sub??

Sub AmigosFood_Hide()
ActiveSheet.Range("A:A,F:F,H:I,L:M,W:W,Y:Y,AE:AG,AO:AP").EntireColumn.Hidden = True
End Sub

Sub BonAppetit_Hide()
ActiveSheet.Range("A:A,F:F,H:V,AB:AB,AH:AH,AN:AP,AX:AX").EntireColumn.Hidden = True
End Sub

Sub Bremner_Hide()
ActiveSheet.Range("A:A,F:F,H:I,T:T,Z:Z,AF:AH,AP:AR").EntireColumn.Hidden = True
End Sub

*Please note that those Subs are for worksheets separately so the worksheets' names are: AMIGOS FOOD, BON APPETIT, BREMNER,

 

[Nebu]

Sub Hide()
Dim i As Integer
i = 1
For Sheet = i To 3
Sheets(i).Activate
ActiveSheet.Range("A:A,F:F,H:I,L:M,W:W,Y:Y,AE:AG,AO:AP").EntireColumn.Hidden = True
i = i + 1
Next
End Sub

Try this code.

 

[Max Alejandro Molina]

But this does does not take into account that for sheet 1 I wanna hide different columns and for sheet 2 I also want to hide different columns..

 

[Nebu]

The macro works in a sequential order if you sheet index are not in a sequential order it wont work ,but still you can use the same macro without loop but u will have to activate the sheet using the sheet names.

 

[Max Alejandro Molina]

I don't think a loop is required I just need for instance hide several columns from several worksheets from a workbook, the there are different columns I want to hide in all the different worksheets, isn't there a macro that can do that If I provide you with the particular columns from each particular worksheet?

I got two worksheets: The first worksheet name is: DADDY RAYS
And the column ranges i want to hide are:
"A:A,F:F,H:N,Q:R,W:W,AC:AC,AI:AK,AI:AK,AT:AU"

I got two worksheets: The second worksheet name is: P&M
And the column ranges i want to hide are:
"A:A,F:F,H:J,T:T,Z:Z,AF:AH,AP:AQ"

 

[Nebu]

Sub Hide()
Sheets("YourSheetname").Activate
ActiveSheet.Range("A:A,F:F,H:I,L:M,W:W,Y:Y,AE:AG,AO:AP").EntireColumn.Hidden = True
End Sub

Repeat this code for the sheets you want to hide in the same subroutine you don't have to write multiple subroutine to hide different sheets...

 

[Max Alejandro Molina]

So then it would be:

Sub Hide()
Sheets("DADDY RAYS").Activate
ActiveSheet.Range("A:A,F:F,H:I,L:M,W:W,Y:Y,AE:AG,AO:AP").EntireColumn.Hidden = True

Sheets("P&M").Activate
ActiveSheet.Range("A:A,F:F,H:J,T:T,Z:Z,AF:AH,AP:AQ").EntireColumn.Hidden = True
End Sub

???? sorry for my ignorance i am totally new to VBA

 

[Nebu]

Yes , this is how it should be , since your ranges are different for different sheets you have to do it like this.

 

[Hui]

You don't need to activate or select the sheets
so it can be simplified to:

Sub Hide()
Sheets("DADDY RAYS").Range("A:A,F:F,H:I,L:M,W:W,Y:Y,AE:AG,AO:AP").EntireColumn.Hidden = True
Sheets("P&M").Range("A:A,F:F,H:J,T:T,Z:Z,AF:AH,AP:AQ").EntireColumn.Hidden = True
End Sub

 

[Max Alejandro Molina]

Amazing stuff guys, thank you so much!