SHARE
TWEET

Untitled

a guest Jun 20th, 2019 50 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Sub CheckBox1()
  2.  
  3. Dim cb As CheckBox
  4.  
  5. For Each cb In ActiveSheet.CheckBoxes
  6.     If cb.Name <> ActiveSheet.CheckBoxes("Check Box 1").Name Then
  7.         cb.Value = ActiveSheet.CheckBoxes("Check Box 2").Value = True
  8. End If
  9.  
  10. Next
  11.  
  12. End Sub
  13. Sub CheckBox2()
  14.  
  15. Dim cb As CheckBox
  16.  
  17. For Each cb In ActiveSheet.CheckBoxes
  18.     If cb.Name <> ActiveSheet.CheckBoxes("Check Box 2").Name Then
  19.         cb.Value = ActiveSheet.CheckBoxes("Check Box 3").Value = True
  20. End If
  21.  
  22. Next
  23.  
  24. End Sub
  25. Sub CheckBox3()
  26.  
  27. Dim cb As CheckBox
  28.  
  29. For Each cb In ActiveSheet.CheckBoxes
  30.     If cb.Name <> ActiveSheet.CheckBoxes("Check Box 3").Name Then
  31.         cb.Value = ActiveSheet.CheckBoxes("Check Box 1").Value = True
  32. End If
  33.  
  34. Next
  35.  
  36. End Sub
  37. Sub CheckBox4()
  38.  
  39. Dim cb As CheckBox
  40.  
  41. For Each cb In ActiveSheet.CheckBoxes
  42.     If cb.Name <> ActiveSheet.CheckBoxes("Check Box 4").Name Then
  43.         cb.Value = ActiveSheet.CheckBoxes("Check Box 5").Value = True
  44. End If
  45.  
  46. Next
  47.  
  48. End Sub
  49. Sub CheckBox5()
  50.  
  51. Dim cb As CheckBox
  52.  
  53. For Each cb In ActiveSheet.CheckBoxes
  54.     If cb.Name <> ActiveSheet.CheckBoxes("Check Box 5").Name Then
  55.         cb.Value = ActiveSheet.CheckBoxes("Check Box 6").Value = True
  56. End If
  57.  
  58. Next
  59.  
  60. End Sub
  61. Sub CheckBox6()
  62.  
  63. Dim cb As CheckBox
  64.  
  65. For Each cb In ActiveSheet.CheckBoxes
  66.     If cb.Name <> ActiveSheet.CheckBoxes("Check Box 6").Name Then
  67.         cb.Value = ActiveSheet.CheckBoxes("Check Box 4").Value = True
  68. End If
  69.  
  70. Next
  71.  
  72. End Sub
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!
 
Top