ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   Buttons Embedded in a Worksheet (https://www.excelbanter.com/excel-programming/390360-buttons-embedded-worksheet.html)

Wendy

Buttons Embedded in a Worksheet
 
OK - I know - This is probably a basic questions for you experts, but I would
like to know how to add buttons to a worksheet that hide and unhide specific
colums, and how these commands/buttons are created.

I have inherited a workbook that someone else created, and now I need to add
more data to it in the same manner as the original author.



Jim Thomlinson

Buttons Embedded in a Worksheet
 
Bring up the Control Toolbox toolbar (Tools - Customize - Toolbars -
Control Toolbox). Click on the Button icon and then click on the worksheet to
place one on your sheet. Right click the button and select Properties. Change
the Caption to something like Hide/Unhide. Double click on the button. This
will take you to the code window. Add something like the following the the
code that was added for you...

Private Sub CommandButton1_Click()
Columns("B:C").Hidden = Not Columns("B:C").Hidden
End Sub
--
HTH...

Jim Thomlinson


"Wendy" wrote:

OK - I know - This is probably a basic questions for you experts, but I would
like to know how to add buttons to a worksheet that hide and unhide specific
colums, and how these commands/buttons are created.

I have inherited a workbook that someone else created, and now I need to add
more data to it in the same manner as the original author.



Wendy

Buttons Embedded in a Worksheet
 
Thanks Jim -
I have the button, and I pasted your code.
Now what? How do I save it, and make it work?



"Jim Thomlinson" wrote:

Bring up the Control Toolbox toolbar (Tools - Customize - Toolbars -
Control Toolbox). Click on the Button icon and then click on the worksheet to
place one on your sheet. Right click the button and select Properties. Change
the Caption to something like Hide/Unhide. Double click on the button. This
will take you to the code window. Add something like the following the the
code that was added for you...

Private Sub CommandButton1_Click()
Columns("B:C").Hidden = Not Columns("B:C").Hidden
End Sub
--
HTH...

Jim Thomlinson


"Wendy" wrote:

OK - I know - This is probably a basic questions for you experts, but I would
like to know how to add buttons to a worksheet that hide and unhide specific
colums, and how these commands/buttons are created.

I have inherited a workbook that someone else created, and now I need to add
more data to it in the same manner as the original author.



Jim Thomlinson

Buttons Embedded in a Worksheet
 
You are probably still in design mode. There is a little triangle / ruler
icon on the Control Toolbox toolbar. Click it to exit design mode. You should
now be able to click the button to hide or unhide the columns...
--
HTH...

Jim Thomlinson


"Wendy" wrote:

Thanks Jim -
I have the button, and I pasted your code.
Now what? How do I save it, and make it work?



"Jim Thomlinson" wrote:

Bring up the Control Toolbox toolbar (Tools - Customize - Toolbars -
Control Toolbox). Click on the Button icon and then click on the worksheet to
place one on your sheet. Right click the button and select Properties. Change
the Caption to something like Hide/Unhide. Double click on the button. This
will take you to the code window. Add something like the following the the
code that was added for you...

Private Sub CommandButton1_Click()
Columns("B:C").Hidden = Not Columns("B:C").Hidden
End Sub
--
HTH...

Jim Thomlinson


"Wendy" wrote:

OK - I know - This is probably a basic questions for you experts, but I would
like to know how to add buttons to a worksheet that hide and unhide specific
colums, and how these commands/buttons are created.

I have inherited a workbook that someone else created, and now I need to add
more data to it in the same manner as the original author.




All times are GMT +1. The time now is 04:33 AM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com