ActiveX Control button to hide and unhide coloums

[Browneh89]

Hey,

I am a novice when it comes to using ActiveX Control and VBA to build macros but I am having incredible difficulty getting something simple to work. I want to build a macro which hides and unhides 3 columns in my excel sheet however when I run the macro it unhides unwanted columns and then hides the majority of the sheet..

I am at a bit of a loss as to why this is happening, could someone please enlighten me?

This is the VBA code which i'm running, i just used the record Macro feature and copied and pasted it into the "view code" option when you right click the activex control in design mode.

These Macros did work perfectly earlier on. i did add one massive merged row along the top of row one though.. is this the cause of the issue? if it is can i get around it without un merging that top row?



Sub showF()
'
' showF Macro
'


'
Columns("K:O").Select
Range("K2").Activate
Selection.EntireColumn.Hidden = False
Range("K2").Select
End Sub
Sub HideF()
'
' HideF Macro
'


'
Columns("L:N").Select
Range("L2").Activate
Selection.EntireColumn.Hidden = True
Range("K2").Select
End Sub

 

[Fluff]

Hi & welcome to MrExcel.

i did add one massive merged row along the top of row one though.. is this the cause of the issue?

YES, merged cells are a monumental problem & best avoided as they will cause you all sorts of problems.
Rather than using merged cells, have a look at "centre across selection" https://www.techonthenet.com/excel/cells/center_across2016.php

 

[mumps]

Definitely un merge the cells. You should avoid using merged cells at all cost because they create havoc for macros. Try the following:

Sub showF()
    Columns("K:O").EntireColumn.Hidden = False
    Range("K2").Select
End Sub

Sub HideF()
    Columns("L:N").EntireColumn.Hidden = True
    Range("K2").Select
End Sub

 

[Browneh89]

Thank you for your responses! It was just the merged cells messing everything up. it kinda clicked the second i hit the send button.

 

[mumps]

My pleasure.