Macro for Hide/Unhide columns with the same button

[diazmlogistics]

Hi everyone, I work mostly with formulas but am now trying out macros. I've seen many similar questions, but since I'm not familiar with macro's i'm having difficulty applying the concept. I figure this is a good starting point....

Need a macro for each button.
The sheet will be protected with a password (in the future, users will have varied access privileges).-No help on this.
Column A is designated as the "Button" Column.
There are 5 buttons here. Each representing the area on the sheet that needs to be viewed. Once the button is pressed, it takes you to that section of the sheet.
At this time, I have designated each column area as:
a-z
aa-az
ba-bz
ca-cz
da-dz
I have tried this formula with opening tabs, but this won't work.

Thanks!!!

 

[diazmlogistics]

Correction:
b-z
aa-az
ba-bz
ca-cz
da-dz
Column A is always the "Button Column

 

[Rick Rothstein]

Hi everyone, I work mostly with formulas but am now trying out macros. I've seen many similar questions, but since I'm not familiar with macro's i'm having difficulty applying the concept. I figure this is a good starting point....

Need a macro for each button.
The sheet will be protected with a password (in the future, users will have varied access privileges).-No help on this.
Column A is designated as the "Button" Column.
There are 5 buttons here. Each representing the area on the sheet that needs to be viewed. Once the button is pressed, it takes you to that section of the sheet.
At this time, I have designated each column area as:
a-z
aa-az
ba-bz
ca-cz
da-dz
I have tried this formula with opening tabs, but this won't work.

Thanks!!!

1. What kind of buttons are they... Form Controls or ActiveX?

2. What are the button names and which button (name) controls which set of columns?

 

[diazmlogistics]

Hi, I haven't made them yet but they will be form controls. For now lets say:

DASH= b-z
WAVE= aa-az
PULL= ba-bz
HOLD= ca-cz
SUMMARY= da-dz

Thanks

 

[craigg3]

Is this kind of what you are looking for?

Columns("B:Z").Select
If Selection.EntireColumn.Hidden = True Then

Columns("A:AA").Select
Selection.EntireColumn.Hidden = False
Else
Columns("B:Z").Select
Selection.EntireColumn.Hidden = True
Range("A1").Select
End If

 

[diazmlogistics]

Very close, Thanks!! I've set name ranges for the sections. Maybe this will help.