Do they have macros assigned to them?
What code are they triggering?
If it's event code have you tried disabling events?
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
Title | # Comments | Views | Activity |
---|---|---|---|
Excel Formula - If And on Blank Cell | 7 | 26 | |
excel vba write value to the referenced cell formula location | 7 | 21 | |
Excel | 3 | 22 | |
Use cell value to specify decimal places in Excel | 9 | 0 |
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
13 Experts available now in Live!