ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Discussion (Misc queries) (https://www.excelbanter.com/excel-discussion-misc-queries/)
-   -   How do I get Excel to display a range of cells with a check box? (https://www.excelbanter.com/excel-discussion-misc-queries/51620-how-do-i-get-excel-display-range-cells-check-box.html)

bobm

How do I get Excel to display a range of cells with a check box?
 
I am trying to get excel to disply a range of cells when a check box is
checked and hide them when it is not checked.

Casey

How do I get Excel to display a range of cells with a check box?
 

bobm,

I am not one of the VBA experts, but if your range is in a column and
your checkbox is from the control toolbox and not from the Forms
toolbar this code should work.

Private Sub CheckBox1_Click()
Dim i As Boolean
Dim rng1 As Range

Application.DisplayAlerts = False
i = CheckBox1.Value
Set rng1 = Range("D1:D25") 'Change to suit your needs

If i = True Then
rng1.EntireColumn.Hidden = True
Else
rng1.EntireColumn.Hidden = False
End If
Application.DisplayAlerts = True

End Sub


--
Casey


------------------------------------------------------------------------
Casey's Profile: http://www.excelforum.com/member.php...fo&userid=4545
View this thread: http://www.excelforum.com/showthread...hreadid=478267


Dave Peterson

How do I get Excel to display a range of cells with a check box?
 
I put a checkbox from the control toolbox toolbar on a worksheet.

I doubleclicked on that checkbox (named checkbox1) and put this code in that
visible code window:

Option Explicit
Private Sub CheckBox1_Click()
Dim myRng As Range
Set myRng = Me.Range("a10:A20").EntireRow
myRng.Hidden = Me.CheckBox1.Value
End Sub

Then back to excel (click on that design mode icon also on the control toolbox
toolbar) and try checking that box.

bobm wrote:

I am trying to get excel to disply a range of cells when a check box is
checked and hide them when it is not checked.


--

Dave Peterson


All times are GMT +1. The time now is 07:34 PM.

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