Is your cloud always on? With an Always On cloud you won't have to worry about downtime for maintenance or software application code updates, ensuring that your bottom line isn't affected.
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
Join the community of 500,000 technology professionals and ask your questions.