How can I display selected worksheet areas with command buttons?

[Nikko]

Hello,

Would like to have worksheet sections displayed by command buttons, but I do not know how to do it.

In the worksheet the month range should be displayed by clicking on the respective button.
So that the respective desired month after column G appears (column A to G should always be displayed with). Example Column from A to G fixed and after column G the respective beginning of the month should appear as column AM for February. The whole area should not be selected at the end.

[/URL][/IMG]

Thx in Advance

 

[jim may]

Check out this video... 1st part of video deals with hiding and unhiding columns

https://www.youtube.com/watch?v=JwvBxisC9rU

 

[Nikko]

Hi jim,
Thank you for your suggestion.
But this is not what I am looking for or need. Would like to accomplish all this with VBA and Command Buttons (see picture).
Need actual support for the VBA code, as I can write and install this in a command button.

Any idea how to do it?

 

[jim may]

I will work on this for you. Later. JIM

 

[jim may]

Here is the Code behind your January Button (Only). You can create the Same MODIFIED- CODE for the Feb - Dec Buttons (the other 11)

Private Sub CommandButton1_Click() ' To Show ONLY your Janaury Columns
Application.ScreenUpdating = False
With ActiveSheet
    .Range("H:NH").EntireColumn.Hidden = False  'Always Unhides All your Columns from your previous action
    .Range("AM:NH").EntireColumn.Hidden = True   ' Displays the month of January ONLY
End With
Application.ScreenUpdating = True
End Sub

	*** COLUMN LETTERS ***
	Start	End
Jan	H	AL
Feb	AM	BN
Mar	BO	CS
Apr	??	??
May	??	??
Jun	??	??
Jly	??	??
Aug	??	??
Sep	??	??
Oct	??	??
Nov	??	??
Dec	??	NH

<tbody>
</tbody>

 

[jim may]

Here's the Code that should be BEHIND the February Button...

Private Sub CommandButton2_Click()     ' Show ONLY February
Application.ScreenUpdating = False
With ActiveSheet
    .Range("H:NH").EntireColumn.Hidden = False  'Always Unhides All your Columns
    .Range("H:AL,BO:NH").EntireColumn.Hidden = True
End With
Application.ScreenUpdating = True
End Sub

 

[Nikko]

Hi jim may,

big thank you for your effort.
Will try it tomorrow and let you know how it went.

Thanks again for your effort and patience with me

 

[Nikko]

Hi jim may,

its works

Can not thank enough

A hero is one who does what he can. The others do not do it. (Romain Rolland)

 

[jim may]

Glad it worked out for you. Thanks for your response. Jim