MVEs are more concerned with the satisfaction of those they help than with the considerable points they can earn. They are the types of people you feel privileged to call colleagues. Join us in honoring this amazing group of Experts.
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Range("D4"), Target) Is Nothing Then
CBX_PB3.Value = True
MsgBox "D4 has changed"
End If
End Sub
Thanks for any suggestions!
Sub CBX_P3_Click() 'Toggles "Mail" column between "True" and "False"
If Range("AG3").Value = True Then
Range("AG4:AG23") = True
Range("AF3:AF23") = False
Range("AH3:AH23") = False
Else: Range("AG3:AG23") = False
End If
End Sub
Sub CBX_Q3_Click() 'Toggles "Online" column between "True" and "False"
If Range("AH3").Value = True Then
Range("AH4:AH23") = True
Range("AF3:AF23") = False
Range("AG3:AG23") = False
Else: Range("AH3:AH23") = False
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Range("D4"), Target) Is Nothing Then
If Target.Value = "" Then
Me.CheckBoxes("CBX_P3").Value = True
Else
Me.CheckBoxes("CBX_Q3").Value = True
End If
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim cel As Range, targ As Range
Set targ = Range("D4") 'Watch cells in this range
Set targ = Intersect(targ, Target)
If targ Is Nothing Then Exit Sub
If targ.Cells.Count > 1 Then Set targ = targ.Cells(1) 'If more than one cell is selected, just work with the first one
For Each cel In targ.Cells
If cel.Value = "" Then
ActiveSheet.Shapes("CBX_P3").ControlFormat.Value = True
CBX_P3_Click
End If
Next
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Dim cel As Range, targ As Range
Set targ = Range("D4") 'Watch cells in this range
Set targ = Intersect(targ, Target)
If targ Is Nothing Then Exit Sub
If targ.Cells.Count > 1 Then Set targ = targ.Cells(1) 'If more than one cell is selected, just work with the first one
For Each cel In targ.Cells
If cel.Value <> "" Then
ActiveSheet.Shapes("CBX_Q3").ControlFormat.Value = True
CBX_Q3_Click
End If
Next
End Sub
Control-Sheet-Final-Q27656920.xlsm
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Range("D4"), Target) Is Nothing Then
If Target.Value = "" Then
Me.CheckBoxes("CBX_P3").Value = True
Call CBX_P3_Click
Else
Me.CheckBoxes("CBX_Q3").Value = True
Call CBX_Q3_Click
End If
End If
End Sub
If Target.Value = "" Then
Private Sub Worksheet_Change(ByVal Target As Range)
Dim cel As Range, targ As Range
Set targ = Range("D4") 'Watch cells in this range
Set targ = Intersect(targ, Target)
If targ Is Nothing Then Exit Sub
If targ.Cells.Count > 1 Then Set targ = targ.Cells(1) 'If more than one cell is selected, just work with the first one
For Each cel In targ.Cells
If cel.Value = "" Then
ActiveSheet.Shapes("CBX_P3").ControlFormat.Value = True
CBX_P3_Click
Else
ActiveSheet.Shapes("CBX_Q3").ControlFormat.Value = True
CBX_Q3_Click
End If
Next
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim cel As Range, targ As Range
Set targ = Range("E4") 'Watch cells in this range
Set targ = Intersect(targ, Target)
If targ Is Nothing Then Exit Sub
If targ.Cells.Count > 1 Then Set targ = targ.Cells(1) 'If more than one cell is selected, just work with the first one
For Each cel In targ.Offset(0, -1).Cells 'Look at value in column D
If cel.Value = "" Then
ActiveSheet.Shapes("CBX_P3").ControlFormat.Value = True
CBX_P3_Click
Else
ActiveSheet.Shapes("CBX_Q3").ControlFormat.Value = True
CBX_Q3_Click
End If
Next
End Sub
If you are experiencing a similar issue, please ask a related question
Title | # Comments | Views | Activity |
---|---|---|---|
round down to max number | 11 | 32 | |
Using an Average(IF statement to return values from closed external workbooks | 5 | 19 | |
locking multiple column ranges | 10 | 22 | |
Creating An Intelligent Dropdown | 8 | 18 |
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
14 Experts available now in Live!