API tools faq
paste
Guest User

Untitled

a guest
Jun 25th, 2018
64
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 48.01 KB | None | 0 0
raw download clone embed print report
  1. Private Sub UserForm_Activate()
  2. Dim LastRow As Integer
  3. LastRow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
  4. Dim B_academy As Long, B_alice As Long, B_american As Long, B_apricot As Long, B_aqua As Long, B_beige As Long, B_black As Long, B_brightgold As Long, B_bronze As Long, B_brown As Long, B_burntorange As Long, B_cardinal As Long, B_citron As Long, B_coolgray As Long, B_copper As Long, B_cream As Long, B_drab As Long, B_forest As Long, B_gold As Long, B_gray As Long, B_kelly As Long, B_lemon As Long, B_ltblue As Long, B_lilac As Long, B_maize As Long, B_maroon As Long, B_navy As Long, B_nile As Long, B_oldgold As Long, B_olive As Long, B_orange As Long, B_peach As Long, B_peacock As Long, B_pink As Long, B_purple As Long, B_red As Long, B_sage As Long, B_salmon As Long, B_silver As Long, B_texasorange As Long, B_white As Long, B_wine As Long, B_yale As Long, _
  5. M_academy As Long, M_alice As Long, M_american As Long, M_apricot As Long, M_aqua As Long, M_beige As Long, M_black As Long, M_brightgold As Long, M_bronze As Long, M_brown As Long, M_burntorange As Long, M_cardinal As Long, M_citron As Long, M_coolgray As Long, M_copper As Long, M_cream As Long, M_drab As Long, M_forest As Long, M_gold As Long, M_gray As Long, M_kelly As Long, M_lemon As Long, M_ltblue As Long, M_lilac As Long, M_maize As Long, M_maroon As Long, M_navy As Long, M_nile As Long, M_oldgold As Long, M_olive As Long, M_orange As Long, M_peach As Long, M_peacock As Long, M_pink As Long, M_purple As Long, M_red As Long, M_sage As Long, M_salmon As Long, M_silver As Long, M_texasorange As Long, M_white As Long, M_wine As Long, M_yale As Long, _
  6. D_academy As Long, D_alice As Long, D_american As Long, D_apricot As Long, D_aqua As Long, D_beige As Long, D_black As Long, D_brightgold As Long, D_bronze As Long, D_brown As Long, D_burntorange As Long, D_cardinal As Long, D_citron As Long, D_coolgray As Long, D_copper As Long, D_cream As Long, D_drab As Long, D_forest As Long, D_gold As Long, D_gray As Long, D_kelly As Long, D_lemon As Long, D_ltblue As Long, D_lilac As Long, D_maize As Long, D_maroon As Long, D_navy As Long, D_nile As Long, D_oldgold As Long, D_olive As Long, D_orange As Long, D_peach As Long, D_peacock As Long, D_pink As Long, D_purple As Long, D_red As Long, D_sage As Long, D_salmon As Long, D_silver As Long, D_texasorange As Long, D_white As Long, D_wine As Long, D_yale As Long, _
  7. A_academy As Long, A_alice As Long, A_american As Long, A_apricot As Long, A_aqua As Long, A_beige As Long, A_black As Long, A_brightgold As Long, A_bronze As Long, A_brown As Long, A_burntorange As Long, A_cardinal As Long, A_citron As Long, A_coolgray As Long, A_copper As Long, A_cream As Long, A_drab As Long, A_forest As Long, A_gold As Long, A_gray As Long, A_kelly As Long, A_lemon As Long, A_ltblue As Long, A_lilac As Long, A_maize As Long, A_maroon As Long, A_navy As Long, A_nile As Long, A_oldgold As Long, A_olive As Long, A_orange As Long, A_peach As Long, A_peacock As Long, A_pink As Long, A_purple As Long, A_red As Long, A_sage As Long, A_salmon As Long, A_silver As Long, A_texasorange As Long, A_white As Long, A_wine As Long, A_yale As Long, _
  8. Mem_academy As Long, Mem_alice As Long, Mem_american As Long, Mem_apricot As Long, Mem_aqua As Long, Mem_beige As Long, Mem_black As Long, Mem_brightgold As Long, Mem_bronze As Long, Mem_brown As Long, Mem_burntorange As Long, Mem_cardinal As Long, Mem_citron As Long, Mem_coolgray As Long, Mem_copper As Long, Mem_cream As Long, Mem_drab As Long, Mem_forest As Long, Mem_gold As Long, Mem_gray As Long, Mem_kelly As Long, Mem_lemon As Long, Mem_ltblue As Long, Mem_lilac As Long, Mem_maize As Long, Mem_maroon As Long, Mem_navy As Long, Mem_nile As Long, Mem_oldgold As Long, Mem_olive As Long, Mem_orange As Long, Mem_peach As Long, Mem_peacock As Long, Mem_pink As Long, Mem_purple As Long, Mem_red As Long, Mem_sage As Long, Mem_salmon As Long, Mem_silver As Long, Mem_texasorange As Long, Mem_white As Long, Mem_wine As Long, Mem_yale As Long, _
  9. B_tasselCount As String, M_tasselCount As String, D_tasselCount As String, A_tasselCount As String, Mem_tasselCount As String
  10.  
  11. B_alice = Application.Sum(Application.SumIfs(Range("G84:G" & LastRow), Range("G84:G" & LastRow), "1", Range("K84:K" & LastRow), "B*", Range("L84:L" & LastRow), Array("5 (macro)", "5")))
  12. M_alice = Application.Sum(Application.SumIfs(Range("G84:G" & LastRow), Range("G84:G" & LastRow), "1", Range("K84:K" & LastRow), "M*", Range("L84:L" & LastRow), Array("5 (macro)", "5")))
  13. D_alice = Application.Sum(Application.SumIfs(Range("G84:G" & LastRow), Range("G84:G" & LastRow), "1", Range("K84:K" & LastRow), "D*", Range("L84:L" & LastRow), Array("5 (macro)", "5")))
  14. A_alice = Application.Sum(Application.SumIfs(Range("G84:G" & LastRow), Range("G84:G" & LastRow), "1", Range("K84:K" & LastRow), "A*", Range("L84:L" & LastRow), Array("5 (macro)", "5")))
  15.  
  16. B_apricot = Application.Sum(Application.SumIfs(Range("G84:G" & LastRow), Range("G84:G" & LastRow), "1", Range("K84:K" & LastRow), "B*", Range("L84:L" & LastRow), Array("58 (macro)", "58")))
  17. M_apricot = Application.Sum(Application.SumIfs(Range("G84:G" & LastRow), Range("G84:G" & LastRow), "1", Range("K84:K" & LastRow), "M*", Range("L84:L" & LastRow), Array("58 (macro)", "58")))
  18. D_apricot = Application.Sum(Application.SumIfs(Range("G84:G" & LastRow), Range("G84:G" & LastRow), "1", Range("K84:K" & LastRow), "D*", Range("L84:L" & LastRow), Array("58 (macro)", "58")))
  19. A_apricot = Application.Sum(Application.SumIfs(Range("G84:G" & LastRow), Range("G84:G" & LastRow), "1", Range("K84:K" & LastRow), "A*", Range("L84:L" & LastRow), Array("58 (macro)", "58")))
  20.  
  21. B_aqua = Application.Sum(Application.SumIfs(Range("G84:G" & LastRow), Range("G84:G" & LastRow), "1", Range("K84:K" & LastRow), "B*", Range("L84:L" & LastRow), Array("60 (macro)", "60")))
  22. M_aqua = Application.Sum(Application.SumIfs(Range("G84:G" & LastRow), Range("G84:G" & LastRow), "1", Range("K84:K" & LastRow), "M*", Range("L84:L" & LastRow), Array("60 (macro)", "60")))
  23. D_aqua = Application.Sum(Application.SumIfs(Range("G84:G" & LastRow), Range("G84:G" & LastRow), "1", Range("K84:K" & LastRow), "D*", Range("L84:L" & LastRow), Array("60 (macro)", "60")))
  24. A_aqua = Application.Sum(Application.SumIfs(Range("G84:G" & LastRow), Range("G84:G" & LastRow), "1", Range("K84:K" & LastRow), "A*", Range("L84:L" & LastRow), Array("60 (macro)", "60")))
  25.  
  26. B_black = Application.Sum(Application.SumIfs(Range("G84:G" & LastRow), Range("G84:G" & LastRow), "1", Range("K84:K" & LastRow), "B*", Range("L84:L" & LastRow), Array("98 (macro)", "98")))
  27. M_black = Application.Sum(Application.SumIfs(Range("G84:G" & LastRow), Range("G84:G" & LastRow), "1", Range("K84:K" & LastRow), "M*", Range("L84:L" & LastRow), Array("98 (macro)", "98")))
  28. D_black = Application.Sum(Application.SumIfs(Range("G84:G" & LastRow), Range("G84:G" & LastRow), "1", Range("K84:K" & LastRow), "D*", Range("L84:L" & LastRow), Array("98 (macro)", "98")))
  29. A_black = Application.Sum(Application.SumIfs(Range("G84:G" & LastRow), Range("G84:G" & LastRow), "1", Range("K84:K" & LastRow), "A*", Range("L84:L" & LastRow), Array("98 (macro)", "98", "0 (macro)", "0")))
  30.  
  31. B_brown = Application.Sum(Application.SumIfs(Range("G84:G" & LastRow), Range("G84:G" & LastRow), "1", Range("K84:K" & LastRow), "B*", Range("L84:L" & LastRow), Array("30 (macro)", "30")))
  32. M_brown = Application.Sum(Application.SumIfs(Range("G84:G" & LastRow), Range("G84:G" & LastRow), "1", Range("K84:K" & LastRow), "M*", Range("L84:L" & LastRow), Array("30 (macro)", "30")))
  33. D_brown = Application.Sum(Application.SumIfs(Range("G84:G" & LastRow), Range("G84:G" & LastRow), "1", Range("K84:K" & LastRow), "D*", Range("L84:L" & LastRow), Array("30 (macro)", "30")))
  34. A_brown = Application.Sum(Application.SumIfs(Range("G84:G" & LastRow), Range("G84:G" & LastRow), "1", Range("K84:K" & LastRow), "A*", Range("L84:L" & LastRow), Array("30 (macro)", "30")))
  35.  
  36. B_burntorange = Application.Sum(Application.SumIfs(Range("G84:G" & LastRow), Range("G84:G" & LastRow), "1", Range("K84:K" & LastRow), "B*", Range("L84:L" & LastRow), Array("32 (macro)", "32")))
  37. M_burntorange = Application.Sum(Application.SumIfs(Range("G84:G" & LastRow), Range("G84:G" & LastRow), "1", Range("K84:K" & LastRow), "M*", Range("L84:L" & LastRow), Array("32 (macro)", "32")))
  38. D_burntorange = Application.Sum(Application.SumIfs(Range("G84:G" & LastRow), Range("G84:G" & LastRow), "1", Range("K84:K" & LastRow), "D*", Range("L84:L" & LastRow), Array("32 (macro)", "32")))
  39. A_burntorange = Application.Sum(Application.SumIfs(Range("G84:G" & LastRow), Range("G84:G" & LastRow), "1", Range("K84:K" & LastRow), "A*", Range("L84:L" & LastRow), Array("32 (macro)", "32")))
  40.  
  41. B_cardinal = Application.Sum(Application.SumIfs(Range("G84:G" & LastRow), Range("G84:G" & LastRow), "1", Range("K84:K" & LastRow), "B*", Range("L84:L" & LastRow), Array("48 (macro)", "48")))
  42. M_cardinal = Application.Sum(Application.SumIfs(Range("G84:G" & LastRow), Range("G84:G" & LastRow), "1", Range("K84:K" & LastRow), "M*", Range("L84:L" & LastRow), Array("48 (macro)", "48")))
  43. D_cardinal = Application.Sum(Application.SumIfs(Range("G84:G" & LastRow), Range("G84:G" & LastRow), "1", Range("K84:K" & LastRow), "D*", Range("L84:L" & LastRow), Array("48 (macro)", "48")))
  44. A_cardinal = Application.Sum(Application.SumIfs(Range("G84:G" & LastRow), Range("G84:G" & LastRow), "1", Range("K84:K" & LastRow), "A*", Range("L84:L" & LastRow), Array("48 (macro)", "48")))
  45.  
  46. B_copper = Application.Sum(Application.SumIfs(Range("G84:G" & LastRow), Range("G84:G" & LastRow), "1", Range("K84:K" & LastRow), "B*", Range("L84:L" & LastRow), Array("20 (macro)", "20")))
  47. M_copper = Application.Sum(Application.SumIfs(Range("G84:G" & LastRow), Range("G84:G" & LastRow), "1", Range("K84:K" & LastRow), "M*", Range("L84:L" & LastRow), Array("20 (macro)", "20")))
  48. D_copper = Application.Sum(Application.SumIfs(Range("G84:G" & LastRow), Range("G84:G" & LastRow), "1", Range("K84:K" & LastRow), "D*", Range("L84:L" & LastRow), Array("20 (macro)", "20")))
  49. A_copper = Application.Sum(Application.SumIfs(Range("G84:G" & LastRow), Range("G84:G" & LastRow), "1", Range("K84:K" & LastRow), "A*", Range("L84:L" & LastRow), Array("20 (macro)", "20")))
  50. Mem_copper = Application.Sum(Application.SumIfs(Range("R84:R" & LastRow), Range("L84:L" & LastRow), Array("20 (macro)", "20")))
  51.  
  52. B_citron = Application.Sum(Application.SumIfs(Range("G84:G" & LastRow), Range("G84:G" & LastRow), "1", Range("K84:K" & LastRow), "B*", Range("L84:L" & LastRow), Array("84 (macro)", "84")))
  53. M_citron = Application.Sum(Application.SumIfs(Range("G84:G" & LastRow), Range("G84:G" & LastRow), "1", Range("K84:K" & LastRow), "M*", Range("L84:L" & LastRow), Array("84 (macro)", "84")))
  54. D_citron = Application.Sum(Application.SumIfs(Range("G84:G" & LastRow), Range("G84:G" & LastRow), "1", Range("K84:K" & LastRow), "D*", Range("L84:L" & LastRow), Array("84 (macro)", "84")))
  55. A_citron = Application.Sum(Application.SumIfs(Range("G84:G" & LastRow), Range("G84:G" & LastRow), "1", Range("K84:K" & LastRow), "A*", Range("L84:L" & LastRow), Array("84 (macro)", "84")))
  56. Mem_citron = Application.Sum(Application.SumIfs(Range("R84:R" & LastRow), Range("L84:L" & LastRow), Array("84 (macro)", "84")))
  57.  
  58. B_cream = Application.Sum(Application.SumIfs(Range("G84:G" & LastRow), Range("G84:G" & LastRow), "1", Range("K84:K" & LastRow), "B*", Range("L84:L" & LastRow), Array("99 (macro)", "99")))
  59. M_cream = Application.Sum(Application.SumIfs(Range("G84:G" & LastRow), Range("G84:G" & LastRow), "1", Range("K84:K" & LastRow), "M*", Range("L84:L" & LastRow), Array("99 (macro)", "99")))
  60. D_cream = Application.Sum(Application.SumIfs(Range("G84:G" & LastRow), Range("G84:G" & LastRow), "1", Range("K84:K" & LastRow), "D*", Range("L84:L" & LastRow), Array("99 (macro)", "99")))
  61. A_cream = Application.Sum(Application.SumIfs(Range("G84:G" & LastRow), Range("G84:G" & LastRow), "1", Range("K84:K" & LastRow), "A*", Range("L84:L" & LastRow), Array("99 (macro)", "99")))
  62. Mem_cream = Application.Sum(Application.SumIfs(Range("R84:R" & LastRow), Range("L84:L" & LastRow), Array("99 (macro)", "99")))
  63.  
  64. B_drab = Application.Sum(Application.SumIfs(Range("G84:G" & LastRow), Range("G84:G" & LastRow), "1", Range("K84:K" & LastRow), "B*", Range("L84:L" & LastRow), Array("8 (macro)", "8")))
  65. M_drab = Application.Sum(Application.SumIfs(Range("G84:G" & LastRow), Range("G84:G" & LastRow), "1", Range("K84:K" & LastRow), "M*", Range("L84:L" & LastRow), Array("8 (macro)", "8")))
  66. D_drab = Application.Sum(Application.SumIfs(Range("G84:G" & LastRow), Range("G84:G" & LastRow), "1", Range("K84:K" & LastRow), "D*", Range("L84:L" & LastRow), Array("8 (macro)", "8")))
  67. A_drab = Application.Sum(Application.SumIfs(Range("G84:G" & LastRow), Range("G84:G" & LastRow), "1", Range("K84:K" & LastRow), "A*", Range("L84:L" & LastRow), Array("8 (macro)", "8")))
  68. Mem_drab = Application.Sum(Application.SumIfs(Range("R84:R" & LastRow), Range("L84:L" & LastRow), Array("8 (macro)", "8")))
  69.  
  70. B_forest = Application.Sum(Application.SumIfs(Range("G84:G" & LastRow), Range("G84:G" & LastRow), "1", Range("K84:K" & LastRow), "B*", Range("L84:L" & LastRow), Array("81 (macro)", "81")))
  71. M_forest = Application.Sum(Application.SumIfs(Range("G84:G" & LastRow), Range("G84:G" & LastRow), "1", Range("K84:K" & LastRow), "M*", Range("L84:L" & LastRow), Array("81 (macro)", "81")))
  72. D_forest = Application.Sum(Application.SumIfs(Range("G84:G" & LastRow), Range("G84:G" & LastRow), "1", Range("K84:K" & LastRow), "D*", Range("L84:L" & LastRow), Array("81 (macro)", "81")))
  73. A_forest = Application.Sum(Application.SumIfs(Range("G84:G" & LastRow), Range("G84:G" & LastRow), "1", Range("K84:K" & LastRow), "A*", Range("L84:L" & LastRow), Array("81 (macro)", "81")))
  74. Mem_forest = Application.Sum(Application.SumIfs(Range("R84:R" & LastRow), Range("L84:L" & LastRow), Array("81 (macro)", "81")))
  75.  
  76. B_gold = Application.Sum(Application.SumIfs(Range("G84:G" & LastRow), Range("G84:G" & LastRow), "1", Range("K84:K" & LastRow), "B*", Range("L84:L" & LastRow), Array("80 (macro)", "80")))
  77. M_gold = Application.Sum(Application.SumIfs(Range("G84:G" & LastRow), Range("G84:G" & LastRow), "1", Range("K84:K" & LastRow), "M*", Range("L84:L" & LastRow), Array("80 (macro)", "80")))
  78. D_gold = Application.Sum(Application.SumIfs(Range("G84:G" & LastRow), Range("G84:G" & LastRow), "1", Range("K84:K" & LastRow), "D*", Range("L84:L" & LastRow), Array("80 (macro)", "80")))
  79. A_gold = Application.Sum(Application.SumIfs(Range("G84:G" & LastRow), Range("G84:G" & LastRow), "1", Range("K84:K" & LastRow), "A*", Range("L84:L" & LastRow), Array("80 (macro)", "80")))
  80. Mem_gold = Application.Sum(Application.SumIfs(Range("R84:R" & LastRow), Range("L84:L" & LastRow), Array("80 (macro)", "80")))
  81.  
  82. B_gray = Application.Sum(Application.SumIfs(Range("G84:G" & LastRow), Range("G84:G" & LastRow), "1", Range("K84:K" & LastRow), "B*", Range("L84:L" & LastRow), Array("88 (macro)", "88")))
  83. M_gray = Application.Sum(Application.SumIfs(Range("G84:G" & LastRow), Range("G84:G" & LastRow), "1", Range("K84:K" & LastRow), "M*", Range("L84:L" & LastRow), Array("88 (macro)", "88")))
  84. D_gray = Application.Sum(Application.SumIfs(Range("G84:G" & LastRow), Range("G84:G" & LastRow), "1", Range("K84:K" & LastRow), "D*", Range("L84:L" & LastRow), Array("88 (macro)", "88")))
  85. A_gray = Application.Sum(Application.SumIfs(Range("G84:G" & LastRow), Range("G84:G" & LastRow), "1", Range("K84:K" & LastRow), "A*", Range("L84:L" & LastRow), Array("88 (macro)", "88")))
  86. Mem_gray = Application.Sum(Application.SumIfs(Range("R84:R" & LastRow), Range("L84:L" & LastRow), Array("88 (macro)", "88")))
  87.  
  88. B_kelly = Application.Sum(Application.SumIfs(Range("G84:G" & LastRow), Range("G84:G" & LastRow), "1", Range("K84:K" & LastRow), "B*", Range("L84:L" & LastRow), Array("54 (macro)", "54")))
  89. M_kelly = Application.Sum(Application.SumIfs(Range("G84:G" & LastRow), Range("G84:G" & LastRow), "1", Range("K84:K" & LastRow), "M*", Range("L84:L" & LastRow), Array("54 (macro)", "54")))
  90. D_kelly = Application.Sum(Application.SumIfs(Range("G84:G" & LastRow), Range("G84:G" & LastRow), "1", Range("K84:K" & LastRow), "D*", Range("L84:L" & LastRow), Array("54 (macro)", "54")))
  91. A_kelly = Application.Sum(Application.SumIfs(Range("G84:G" & LastRow), Range("G84:G" & LastRow), "1", Range("K84:K" & LastRow), "A*", Range("L84:L" & LastRow), Array("54 (macro)", "54")))
  92. Mem_kelly = Application.Sum(Application.SumIfs(Range("R84:R" & LastRow), Range("L84:L" & LastRow), Array("54 (macro)", "54")))
  93.  
  94. B_lemon = Application.Sum(Application.SumIfs(Range("G84:G" & LastRow), Range("G84:G" & LastRow), "1", Range("K84:K" & LastRow), "B*", Range("L84:L" & LastRow), Array("52 (macro)", "52")))
  95. M_lemon = Application.Sum(Application.SumIfs(Range("G84:G" & LastRow), Range("G84:G" & LastRow), "1", Range("K84:K" & LastRow), "M*", Range("L84:L" & LastRow), Array("52 (macro)", "52")))
  96. D_lemon = Application.Sum(Application.SumIfs(Range("G84:G" & LastRow), Range("G84:G" & LastRow), "1", Range("K84:K" & LastRow), "D*", Range("L84:L" & LastRow), Array("52 (macro)", "52")))
  97. A_lemon = Application.Sum(Application.SumIfs(Range("G84:G" & LastRow), Range("G84:G" & LastRow), "1", Range("K84:K" & LastRow), "A*", Range("L84:L" & LastRow), Array("52 (macro)", "52")))
  98. Mem_lemon = Application.Sum(Application.SumIfs(Range("R84:R" & LastRow), Range("L84:L" & LastRow), Array("52 (macro)", "52")))
  99.  
  100. B_lilac = Application.Sum(Application.SumIfs(Range("G84:G" & LastRow), Range("G84:G" & LastRow), "1", Range("K84:K" & LastRow), "B*", Range("L84:L" & LastRow), Array("18 (macro)", "18"))) + Application.Sum(Application.SumIfs(Range("G84:G" & LastRow), Range("G84:G" & LastRow), "1", Range("K84:K" & LastRow), "B*", Range("L84:L" & LastRow), Array("6 (macro)", "6")))
  101. M_lilac = Application.Sum(Application.SumIfs(Range("G84:G" & LastRow), Range("G84:G" & LastRow), "1", Range("K84:K" & LastRow), "M*", Range("L84:L" & LastRow), Array("18 (macro)", "18"))) + M_lilac = Application.Sum(Application.SumIfs(Range("G84:G" & LastRow), Range("G84:G" & LastRow), "1", Range("K84:K" & LastRow), "M*", Range("L84:L" & LastRow), Array("6 (macro)", "6")))
  102. D_lilac = Application.Sum(Application.SumIfs(Range("G84:G" & LastRow), Range("G84:G" & LastRow), "1", Range("K84:K" & LastRow), "D*", Range("L84:L" & LastRow), Array("18 (macro)", "18"))) + D_lilac = Application.Sum(Application.SumIfs(Range("G84:G" & LastRow), Range("G84:G" & LastRow), "1", Range("K84:K" & LastRow), "D*", Range("L84:L" & LastRow), Array("6 (macro)", "6")))
  103. A_lilac = Application.Sum(Application.SumIfs(Range("G84:G" & LastRow), Range("G84:G" & LastRow), "1", Range("K84:K" & LastRow), "A*", Range("L84:L" & LastRow), Array("18 (macro)", "18"))) + A_lilac = Application.Sum(Application.SumIfs(Range("G84:G" & LastRow), Range("G84:G" & LastRow), "1", Range("K84:K" & LastRow), "A*", Range("L84:L" & LastRow), Array("6 (macro)", "6")))
  104. Mem_lilac = Application.Sum(Application.SumIfs(Range("R84:R" & LastRow), Range("L84:L" & LastRow), Array("18 (macro)", "18")))
  105.  
  106. B_ltblue = Application.Sum(Application.SumIfs(Range("G84:G" & LastRow), Range("G84:G" & LastRow), "1", Range("K84:K" & LastRow), "B*", Range("L84:L" & LastRow), Array("22 (macro)", "22")))
  107. M_ltblue = Application.Sum(Application.SumIfs(Range("G84:G" & LastRow), Range("G84:G" & LastRow), "1", Range("K84:K" & LastRow), "M*", Range("L84:L" & LastRow), Array("22 (macro)", "22")))
  108. D_ltblue = Application.Sum(Application.SumIfs(Range("G84:G" & LastRow), Range("G84:G" & LastRow), "1", Range("K84:K" & LastRow), "D*", Range("L84:L" & LastRow), Array("22 (macro)", "22")))
  109. A_ltblue = Application.Sum(Application.SumIfs(Range("G84:G" & LastRow), Range("G84:G" & LastRow), "1", Range("K84:K" & LastRow), "A*", Range("L84:L" & LastRow), Array("22 (macro)", "22")))
  110. Mem_ltblue = Application.Sum(Application.SumIfs(Range("R84:R" & LastRow), Range("L84:L" & LastRow), Array("22 (macro)", "22")))
  111.  
  112. B_maize = Application.Sum(Application.SumIfs(Range("G84:G" & LastRow), Range("G84:G" & LastRow), "1", Range("K84:K" & LastRow), "B*", Range("L84:L" & LastRow), Array("4 (macro)", "4")))
  113. M_maize = Application.Sum(Application.SumIfs(Range("G84:G" & LastRow), Range("G84:G" & LastRow), "1", Range("K84:K" & LastRow), "M*", Range("L84:L" & LastRow), Array("4 (macro)", "4")))
  114. D_maize = Application.Sum(Application.SumIfs(Range("G84:G" & LastRow), Range("G84:G" & LastRow), "1", Range("K84:K" & LastRow), "D*", Range("L84:L" & LastRow), Array("4 (macro)", "4")))
  115. A_maize = Application.Sum(Application.SumIfs(Range("G84:G" & LastRow), Range("G84:G" & LastRow), "1", Range("K84:K" & LastRow), "A*", Range("L84:L" & LastRow), Array("4 (macro)", "4")))
  116. Mem_maize = Application.Sum(Application.SumIfs(Range("R84:R" & LastRow), Range("L84:L" & LastRow), Array("4 (macro)", "4")))
  117.  
  118. B_maroon = Application.Sum(Application.SumIfs(Range("G84:G" & LastRow), Range("G84:G" & LastRow), "1", Range("K84:K" & LastRow), "B*", Range("L84:L" & LastRow), Array("40 (macro)", "40")))
  119. M_maroon = Application.Sum(Application.SumIfs(Range("G84:G" & LastRow), Range("G84:G" & LastRow), "1", Range("K84:K" & LastRow), "M*", Range("L84:L" & LastRow), Array("40 (macro)", "40")))
  120. D_maroon = Application.Sum(Application.SumIfs(Range("G84:G" & LastRow), Range("G84:G" & LastRow), "1", Range("K84:K" & LastRow), "D*", Range("L84:L" & LastRow), Array("40 (macro)", "40")))
  121. A_maroon = Application.Sum(Application.SumIfs(Range("G84:G" & LastRow), Range("G84:G" & LastRow), "1", Range("K84:K" & LastRow), "A*", Range("L84:L" & LastRow), Array("40 (macro)", "40")))
  122. Mem_maroon = Application.Sum(Application.SumIfs(Range("R84:R" & LastRow), Range("L84:L" & LastRow), Array("40 (macro)", "40")))
  123.  
  124. B_navy = Application.Sum(Application.SumIfs(Range("G84:G" & LastRow), Range("G84:G" & LastRow), "1", Range("K84:K" & LastRow), "B*", Range("L84:L" & LastRow), Array("41 (macro)", "41")))
  125. M_navy = Application.Sum(Application.SumIfs(Range("G84:G" & LastRow), Range("G84:G" & LastRow), "1", Range("K84:K" & LastRow), "M*", Range("L84:L" & LastRow), Array("41 (macro)", "41")))
  126. D_navy = Application.Sum(Application.SumIfs(Range("G84:G" & LastRow), Range("G84:G" & LastRow), "1", Range("K84:K" & LastRow), "D*", Range("L84:L" & LastRow), Array("41 (macro)", "41")))
  127. A_navy = Application.Sum(Application.SumIfs(Range("G84:G" & LastRow), Range("G84:G" & LastRow), "1", Range("K84:K" & LastRow), "A*", Range("L84:L" & LastRow), Array("41 (macro)", "41")))
  128. Mem_navy = Application.Sum(Application.SumIfs(Range("R84:R" & LastRow), Range("L84:L" & LastRow), Array("41 (macro)", "41")))
  129.  
  130. B_nile = Application.Sum(Application.SumIfs(Range("G84:G" & LastRow), Range("G84:G" & LastRow), "1", Range("K84:K" & LastRow), "B*", Range("L84:L" & LastRow), Array("74 (macro)", "74")))
  131. M_nile = Application.Sum(Application.SumIfs(Range("G84:G" & LastRow), Range("G84:G" & LastRow), "1", Range("K84:K" & LastRow), "M*", Range("L84:L" & LastRow), Array("74 (macro)", "74")))
  132. D_nile = Application.Sum(Application.SumIfs(Range("G84:G" & LastRow), Range("G84:G" & LastRow), "1", Range("K84:K" & LastRow), "D*", Range("L84:L" & LastRow), Array("74 (macro)", "74")))
  133. A_nile = Application.Sum(Application.SumIfs(Range("G84:G" & LastRow), Range("G84:G" & LastRow), "1", Range("K84:K" & LastRow), "A*", Range("L84:L" & LastRow), Array("74 (macro)", "74")))
  134. Mem_nile = Application.Sum(Application.SumIfs(Range("R84:R" & LastRow), Range("L84:L" & LastRow), Array("74 (macro)", "74")))
  135.  
  136. B_olive = Application.Sum(Application.SumIfs(Range("G84:G" & LastRow), Range("G84:G" & LastRow), "1", Range("K84:K" & LastRow), "B*", Range("L84:L" & LastRow), Array("72 (macro)", "72")))
  137. M_olive = Application.Sum(Application.SumIfs(Range("G84:G" & LastRow), Range("G84:G" & LastRow), "1", Range("K84:K" & LastRow), "M*", Range("L84:L" & LastRow), Array("72 (macro)", "72")))
  138. D_olive = Application.Sum(Application.SumIfs(Range("G84:G" & LastRow), Range("G84:G" & LastRow), "1", Range("K84:K" & LastRow), "D*", Range("L84:L" & LastRow), Array("72 (macro)", "72")))
  139. A_olive = Application.Sum(Application.SumIfs(Range("G84:G" & LastRow), Range("G84:G" & LastRow), "1", Range("K84:K" & LastRow), "A*", Range("L84:L" & LastRow), Array("72 (macro)", "72")))
  140. Mem_olive = Application.Sum(Application.SumIfs(Range("R84:R" & LastRow), Range("L84:L" & LastRow), Array("72 (macro)", "72")))
  141.  
  142. B_orange = Application.Sum(Application.SumIfs(Range("G84:G" & LastRow), Range("G84:G" & LastRow), "1", Range("K84:K" & LastRow), "B*", Range("L84:L" & LastRow), Array("28 (macro)", "28")))
  143. M_orange = Application.Sum(Application.SumIfs(Range("G84:G" & LastRow), Range("G84:G" & LastRow), "1", Range("K84:K" & LastRow), "M*", Range("L84:L" & LastRow), Array("28 (macro)", "28")))
  144. D_orange = Application.Sum(Application.SumIfs(Range("G84:G" & LastRow), Range("G84:G" & LastRow), "1", Range("K84:K" & LastRow), "D*", Range("L84:L" & LastRow), Array("28 (macro)", "28")))
  145. A_orange = Application.Sum(Application.SumIfs(Range("G84:G" & LastRow), Range("G84:G" & LastRow), "1", Range("K84:K" & LastRow), "A*", Range("L84:L" & LastRow), Array("28 (macro)", "28")))
  146. Mem_orange = Application.Sum(Application.SumIfs(Range("R84:R" & LastRow), Range("L84:L" & LastRow), Array("28 (macro)", "28")))
  147.  
  148. B_peacock = Application.Sum(Application.SumIfs(Range("G84:G" & LastRow), Range("G84:G" & LastRow), "1", Range("K84:K" & LastRow), "B*", Range("L84:L" & LastRow), Array("66 (macro)", "66")))
  149. M_peacock = Application.Sum(Application.SumIfs(Range("G84:G" & LastRow), Range("G84:G" & LastRow), "1", Range("K84:K" & LastRow), "M*", Range("L84:L" & LastRow), Array("66 (macro)", "66")))
  150. D_peacock = Application.Sum(Application.SumIfs(Range("G84:G" & LastRow), Range("G84:G" & LastRow), "1", Range("K84:K" & LastRow), "D*", Range("L84:L" & LastRow), Array("66 (macro)", "66")))
  151. A_peacock = Application.Sum(Application.SumIfs(Range("G84:G" & LastRow), Range("G84:G" & LastRow), "1", Range("K84:K" & LastRow), "A*", Range("L84:L" & LastRow), Array("66 (macro)", "66")))
  152. Mem_peacock = Application.Sum(Application.SumIfs(Range("R84:R" & LastRow), Range("L84:L" & LastRow), Array("66 (macro)", "66")))
  153.  
  154. B_pink = Application.Sum(Application.SumIfs(Range("G84:G" & LastRow), Range("G84:G" & LastRow), "1", Range("K84:K" & LastRow), "B*", Range("L84:L" & LastRow), Array("56 (macro)", "56")))
  155. M_pink = Application.Sum(Application.SumIfs(Range("G84:G" & LastRow), Range("G84:G" & LastRow), "1", Range("K84:K" & LastRow), "M*", Range("L84:L" & LastRow), Array("56 (macro)", "56")))
  156. D_pink = Application.Sum(Application.SumIfs(Range("G84:G" & LastRow), Range("G84:G" & LastRow), "1", Range("K84:K" & LastRow), "D*", Range("L84:L" & LastRow), Array("56 (macro)", "56")))
  157. A_pink = Application.Sum(Application.SumIfs(Range("G84:G" & LastRow), Range("G84:G" & LastRow), "1", Range("K84:K" & LastRow), "A*", Range("L84:L" & LastRow), Array("56 (macro)", "56")))
  158. Mem_pink = Application.Sum(Application.SumIfs(Range("R84:R" & LastRow), Range("L84:L" & LastRow), Array("56 (macro)", "56")))
  159.  
  160. B_purple = Application.Sum(Application.SumIfs(Range("G84:G" & LastRow), Range("G84:G" & LastRow), "1", Range("K84:K" & LastRow), "B*", Range("L84:L" & LastRow), Array("50 (macro)", "50")))
  161. M_purple = Application.Sum(Application.SumIfs(Range("G84:G" & LastRow), Range("G84:G" & LastRow), "1", Range("K84:K" & LastRow), "M*", Range("L84:L" & LastRow), Array("50 (macro)", "50")))
  162. D_purple = Application.Sum(Application.SumIfs(Range("G84:G" & LastRow), Range("G84:G" & LastRow), "1", Range("K84:K" & LastRow), "D*", Range("L84:L" & LastRow), Array("50 (macro)", "50")))
  163. A_purple = Application.Sum(Application.SumIfs(Range("G84:G" & LastRow), Range("G84:G" & LastRow), "1", Range("K84:K" & LastRow), "A*", Range("L84:L" & LastRow), Array("50 (macro)", "50")))
  164. Mem_purple = Application.Sum(Application.SumIfs(Range("R84:R" & LastRow), Range("L84:L" & LastRow), Array("50 (macro)", "50")))
  165.  
  166. B_red = Application.Sum(Application.SumIfs(Range("G84:G" & LastRow), Range("G84:G" & LastRow), "1", Range("K84:K" & LastRow), "B*", Range("L84:L" & LastRow), Array("16 (macro)", "16")))
  167. M_red = Application.Sum(Application.SumIfs(Range("G84:G" & LastRow), Range("G84:G" & LastRow), "1", Range("K84:K" & LastRow), "M*", Range("L84:L" & LastRow), Array("16 (macro)", "16")))
  168. D_red = Application.Sum(Application.SumIfs(Range("G84:G" & LastRow), Range("G84:G" & LastRow), "1", Range("K84:K" & LastRow), "D*", Range("L84:L" & LastRow), Array("16 (macro)", "16")))
  169. A_red = Application.Sum(Application.SumIfs(Range("G84:G" & LastRow), Range("G84:G" & LastRow), "1", Range("K84:K" & LastRow), "A*", Range("L84:L" & LastRow), Array("16 (macro)", "16")))
  170. Mem_reb = Application.Sum(Application.SumIfs(Range("R84:R" & LastRow), Range("L84:L" & LastRow), Array("16 (macro)", "16")))
  171.  
  172. B_sage = Application.Sum(Application.SumIfs(Range("G84:G" & LastRow), Range("G84:G" & LastRow), "1", Range("K84:K" & LastRow), "B*", Range("L84:L" & LastRow), Array("68 (macro)", "68")))
  173. M_sage = Application.Sum(Application.SumIfs(Range("G84:G" & LastRow), Range("G84:G" & LastRow), "1", Range("K84:K" & LastRow), "M*", Range("L84:L" & LastRow), Array("68 (macro)", "68")))
  174. D_sage = Application.Sum(Application.SumIfs(Range("G84:G" & LastRow), Range("G84:G" & LastRow), "1", Range("K84:K" & LastRow), "D*", Range("L84:L" & LastRow), Array("68 (macro)", "68")))
  175. A_sage = Application.Sum(Application.SumIfs(Range("G84:G" & LastRow), Range("G84:G" & LastRow), "1", Range("K84:K" & LastRow), "A*", Range("L84:L" & LastRow), Array("68 (macro)", "68")))
  176. Mem_sage = Application.Sum(Application.SumIfs(Range("R84:R" & LastRow), Range("L84:L" & LastRow), Array("68 (macro)", "68")))
  177.  
  178. B_salmon = Application.Sum(Application.SumIfs(Range("G84:G" & LastRow), Range("G84:G" & LastRow), "1", Range("K84:K" & LastRow), "B*", Range("L84:L" & LastRow), Array("70 (macro)", "70")))
  179. M_salmon = Application.Sum(Application.SumIfs(Range("G84:G" & LastRow), Range("G84:G" & LastRow), "1", Range("K84:K" & LastRow), "M*", Range("L84:L" & LastRow), Array("70 (macro)", "70")))
  180. D_salmon = Application.Sum(Application.SumIfs(Range("G84:G" & LastRow), Range("G84:G" & LastRow), "1", Range("K84:K" & LastRow), "D*", Range("L84:L" & LastRow), Array("70 (macro)", "70")))
  181. A_salmon = Application.Sum(Application.SumIfs(Range("G84:G" & LastRow), Range("G84:G" & LastRow), "1", Range("K84:K" & LastRow), "A*", Range("L84:L" & LastRow), Array("70 (macro)", "70")))
  182. Mem_salmon = Application.Sum(Application.SumIfs(Range("R84:R" & LastRow), Range("L84:L" & LastRow), Array("70 (macro)", "70")))
  183.  
  184. B_silver = Application.Sum(Application.SumIfs(Range("G84:G" & LastRow), Range("G84:G" & LastRow), "1", Range("K84:K" & LastRow), "B*", Range("L84:L" & LastRow), Array("62 (macro)", "62")))
  185. M_silver = Application.Sum(Application.SumIfs(Range("G84:G" & LastRow), Range("G84:G" & LastRow), "1", Range("K84:K" & LastRow), "M*", Range("L84:L" & LastRow), Array("62 (macro)", "62")))
  186. D_silver = Application.Sum(Application.SumIfs(Range("G84:G" & LastRow), Range("G84:G" & LastRow), "1", Range("K84:K" & LastRow), "D*", Range("L84:L" & LastRow), Array("62 (macro)", "62")))
  187. A_silver = Application.Sum(Application.SumIfs(Range("G84:G" & LastRow), Range("G84:G" & LastRow), "1", Range("K84:K" & LastRow), "A*", Range("L84:L" & LastRow), Array("62 (macro)", "62")))
  188. Mem_silver = Application.Sum(Application.SumIfs(Range("R84:R" & LastRow), Range("L84:L" & LastRow), Array("62 (macro)", "62")))
  189.  
  190. B_yale = Application.Sum(Application.SumIfs(Range("G84:G" & LastRow), Range("G84:G" & LastRow), "1", Range("K84:K" & LastRow), "B*", Range("L84:L" & LastRow), Array("71 (macro)", "71")))
  191. M_yale = Application.Sum(Application.SumIfs(Range("G84:G" & LastRow), Range("G84:G" & LastRow), "1", Range("K84:K" & LastRow), "M*", Range("L84:L" & LastRow), Array("71 (macro)", "71")))
  192. D_yale = Application.Sum(Application.SumIfs(Range("G84:G" & LastRow), Range("G84:G" & LastRow), "1", Range("K84:K" & LastRow), "D*", Range("L84:L" & LastRow), Array("71 (macro)", "71")))
  193. A_yale = Application.Sum(Application.SumIfs(Range("G84:G" & LastRow), Range("G84:G" & LastRow), "1", Range("K84:K" & LastRow), "A*", Range("L84:L" & LastRow), Array("71 (macro)", "71")))
  194. Mem_yale = Application.Sum(Application.SumIfs(Range("R84:R" & LastRow), Range("L84:L" & LastRow), Array("71 (macro)", "71")))
  195.  
  196. B_white = Application.Sum(Application.SumIfs(Range("G84:G" & LastRow), Range("G84:G" & LastRow), "1", Range("K84:K" & LastRow), "B*", Range("L84:L" & LastRow), Array("2 (macro)", "2")))
  197. M_white = Application.Sum(Application.SumIfs(Range("G84:G" & LastRow), Range("G84:G" & LastRow), "1", Range("K84:K" & LastRow), "M*", Range("L84:L" & LastRow), Array("2 (macro)", "2")))
  198. D_white = Application.Sum(Application.SumIfs(Range("G84:G" & LastRow), Range("G84:G" & LastRow), "1", Range("K84:K" & LastRow), "D*", Range("L84:L" & LastRow), Array("2 (macro)", "2")))
  199. A_white = Application.Sum(Application.SumIfs(Range("G84:G" & LastRow), Range("G84:G" & LastRow), "1", Range("K84:K" & LastRow), "A*", Range("L84:L" & LastRow), Array("2 (macro)", "2")))
  200. Mem_white = Application.Sum(Application.SumIfs(Range("R84:R" & LastRow), Range("L84:L" & LastRow), Array("2 (macro)", "2")))
  201.  
  202. If B_alice > 0 Then B_tasselCount = B_tasselCount & "Alice:" & vbTab & vbTab & B_alice & vbLf
  203. If B_apricot > 0 Then B_tasselCount = B_tasselCount & "Apricot" & vbTab & vbTab & B_apricot & vbLf
  204. If B_aqua > 0 Then B_tasselCount = B_tasselCount & "Aqua" & vbTab & vbTab & B_aqua & vbLf
  205. If B_black > 0 Then B_tasselCount = B_tasselCount & "Black" & vbTab & vbTab & B_black & vbLf
  206. If B_brown > 0 Then B_tasselCount = B_tasselCount & "Brown" & vbTab & vbTab & B_brown & vbLf
  207. If B_burntorange > 0 Then B_tasselCount = B_tasselCount & "Burnt Orange" & vbTab & B_burntorange & vbLf
  208. If B_cardinal > 0 Then B_tasselCount = B_tasselCount & "Cardinal/Wine" & vbTab & B_cardinal & vbLf
  209. If B_copper > 0 Then B_tasselCount = B_tasselCount & "Copper" & vbTab & vbTab & B_copper & vbLf
  210. If B_citron > 0 Then B_tasselCount = B_tasselCount & "Citron" & vbTab & vbTab & B_citron & vbLf
  211. If B_cream > 0 Then B_tasselCount = B_tasselCount & "Cream" & vbTab & vbTab & B_cream & vbLf
  212. If B_drab > 0 Then B_tasselCount = B_tasselCount & "Drab" & vbTab & vbTab & B_drab & vbLf
  213. If B_forest > 0 Then B_tasselCount = B_tasselCount & "Forest Green" & vbTab & B_forest & vbLf
  214. If B_gold > 0 Then B_tasselCount = B_tasselCount & "Gold" & vbTab & vbTab & B_gold & vbLf
  215. If B_gray > 0 Then B_tasselCount = B_tasselCount & "Gray" & vbTab & vbTab & B_gray & vbLf
  216. If B_kelly > 0 Then B_tasselCount = B_tasselCount & "Kelly Green" & vbTab & B_kelly & vbLf
  217. If B_lemon > 0 Then B_tasselCount = B_tasselCount & "Lemon" & vbTab & vbTab & B_lemon & vbLf
  218. If B_lilac > 0 Then B_tasselCount = B_tasselCount & "Lilac" & vbTab & vbTab & B_lilac & vbLf
  219. If B_ltblue > 0 Then B_tasselCount = B_tasselCount & "Light Blue" & vbTab & B_ltblue & vbLf
  220. If B_maize > 0 Then B_tasselCount = B_tasselCount & "Maize" & vbTab & vbTab & B_maize & vbLf
  221. If B_maroon > 0 Then B_tasselCount = B_tasselCount & "Maroon" & vbTab & vbTab & B_maroon & vbLf
  222. If B_navy > 0 Then B_tasselCount = B_tasselCount & "Navy" & vbTab & vbTab & B_navy & vbLf
  223. If B_nile > 0 Then B_tasselCount = B_tasselCount & "Nile Green" & vbTab & B_nile & vbLf
  224. If B_olive > 0 Then B_tasselCount = B_tasselCount & "Olive Green" & vbTab & B_olive & vbLf
  225. If B_orange > 0 Then B_tasselCount = B_tasselCount & "Orange" & vbTab & vbTab & B_orange & vbLf
  226. If B_peacock > 0 Then B_tasselCount = B_tasselCount & "Peacock Blue" & vbTab & B_peacock & vbLf
  227. If B_pink > 0 Then B_tasselCount = B_tasselCount & "Pink" & vbTab & vbTab & B_pink & vbLf
  228. If B_purple > 0 Then B_tasselCount = B_tasselCount & "Purple" & vbTab & vbTab & B_purple & vbLf
  229. If B_red > 0 Then B_tasselCount = B_tasselCount & "Red" & vbTab & vbTab & B_red & vbLf
  230. If B_sage > 0 Then B_tasselCount = B_tasselCount & "Sage Green" & vbTab & B_sage & vbLf
  231. If B_salmon > 0 Then B_tasselCount = B_tasselCount & "Salmon" & vbTab & vbTab & B_salmon & vbLf
  232. If B_silver > 0 Then B_tasselCount = B_tasselCount & "Silver" & vbTab & vbTab & B_silver & vbLf
  233. If B_white > 0 Then B_tasselCount = B_tasselCount & "White" & vbTab & vbTab & B_white & vbLf
  234. If B_yale > 0 Then B_tasselCount = B_tasselCount & "Yale" & vbTab & vbTab & B_yale & vbLf
  235. If B_tasselCount = "" Then B_tasselCount = "N/A"
  236.  
  237. If M_alice > 0 Then M_tasselCount = M_tasselCount & "Alice:" & vbTab & vbTab & M_alice & vbLf
  238. If M_apricot > 0 Then M_tasselCount = M_tasselCount & "Apricot" & vbTab & vbTab & M_apricot & vbLf
  239. If M_aqua > 0 Then M_tasselCount = M_tasselCount & "Aqua" & vbTab & vbTab & M_aqua & vbLf
  240. If M_black > 0 Then M_tasselCount = M_tasselCount & "Black" & vbTab & vbTab & M_black & vbLf
  241. If M_brown > 0 Then M_tasselCount = M_tasselCount & "Brown" & vbTab & vbTab & M_brown & vbLf
  242. If M_burntorange > 0 Then M_tasselCount = M_tasselCount & "Burnt Orange" & vbTab & M_burntorange & vbLf
  243. If M_cardinal > 0 Then M_tasselCount = M_tasselCount & "Cardinal/Wine" & vbTab & M_cardinal & vbLf
  244. If M_copper > 0 Then M_tasselCount = M_tasselCount & "Copper" & vbTab & vbTab & M_copper & vbLf
  245. If M_citron > 0 Then M_tasselCount = M_tasselCount & "Citron" & vbTab & vbTab & M_citron & vbLf
  246. If M_cream > 0 Then M_tasselCount = M_tasselCount & "Cream" & vbTab & vbTab & M_cream & vbLf
  247. If M_drab > 0 Then M_tasselCount = M_tasselCount & "Drab" & vbTab & vbTab & M_drab & vbLf
  248. If M_forest > 0 Then M_tasselCount = M_tasselCount & "Forest Green" & vbTab & M_forest & vbLf
  249. If M_gold > 0 Then M_tasselCount = M_tasselCount & "Gold" & vbTab & vbTab & M_gold & vbLf
  250. If M_gray > 0 Then M_tasselCount = M_tasselCount & "Gray" & vbTab & vbTab & M_gray & vbLf
  251. If M_kelly > 0 Then M_tasselCount = M_tasselCount & "Kelly Green" & vbTab & M_kelly & vbLf
  252. If M_lemon > 0 Then M_tasselCount = M_tasselCount & "Lemon" & vbTab & vbTab & M_lemon & vbLf
  253. If M_lilac > 0 Then M_tasselCount = M_tasselCount & "Lilac" & vbTab & vbTab & M_lilac & vbLf
  254. If M_ltblue > 0 Then M_tasselCount = M_tasselCount & "Light Blue" & vbTab & M_ltblue & vbLf
  255. If M_maize > 0 Then M_tasselCount = M_tasselCount & "Maize" & vbTab & vbTab & M_maize & vbLf
  256. If M_maroon > 0 Then M_tasselCount = M_tasselCount & "Maroon" & vbTab & vbTab & M_maroon & vbLf
  257. If M_navy > 0 Then M_tasselCount = M_tasselCount & "Navy" & vbTab & vbTab & M_navy & vbLf
  258. If M_nile > 0 Then M_tasselCount = M_tasselCount & "Nile Green" & vbTab & M_nile & vbLf
  259. If M_olive > 0 Then M_tasselCount = M_tasselCount & "Olive Green" & vbTab & M_olive & vbLf
  260. If M_orange > 0 Then M_tasselCount = M_tasselCount & "Orange" & vbTab & vbTab & M_orange & vbLf
  261. If M_peacock > 0 Then M_tasselCount = M_tasselCount & "Peacock Blue" & vbTab & M_peacock & vbLf
  262. If M_pink > 0 Then M_tasselCount = M_tasselCount & "Pink" & vbTab & vbTab & M_pink & vbLf
  263. If M_purple > 0 Then M_tasselCount = M_tasselCount & "Purple" & vbTab & vbTab & M_purple & vbLf
  264. If M_red > 0 Then M_tasselCount = M_tasselCount & "Red" & vbTab & vbTab & M_red & vbLf
  265. If M_sage > 0 Then M_tasselCount = M_tasselCount & "Sage Green" & vbTab & M_sage & vbLf
  266. If M_salmon > 0 Then M_tasselCount = M_tasselCount & "Salmon" & vbTab & vbTab & M_salmon & vbLf
  267. If M_silver > 0 Then M_tasselCount = M_tasselCount & "Silver" & vbTab & vbTab & M_silver & vbLf
  268. If M_white > 0 Then M_tasselCount = M_tasselCount & "White" & vbTab & vbTab & M_white & vbLf
  269. If M_yale > 0 Then M_tasselCount = M_tasselCount & "Yale" & vbTab & vbTab & M_yale & vbLf
  270. If M_tasselCount = "" Then M_tasselCount = "N/A"
  271.  
  272. If D_alice > 0 Then D_tasselCount = D_tasselCount & "Alice:" & vbTab & vbTab & D_alice & vbLf
  273. If D_apricot > 0 Then D_tasselCount = D_tasselCount & "Apricot" & vbTab & vbTab & D_apricot & vbLf
  274. If D_aqua > 0 Then D_tasselCount = D_tasselCount & "Aqua" & vbTab & vbTab & D_aqua & vbLf
  275. If D_black > 0 Then D_tasselCount = D_tasselCount & "Black" & vbTab & vbTab & D_black & vbLf
  276. If D_brown > 0 Then D_tasselCount = D_tasselCount & "Brown" & vbTab & vbTab & D_brown & vbLf
  277. If D_burntorange > 0 Then D_tasselCount = D_tasselCount & "Burnt Orange" & vbTab & D_burntorange & vbLf
  278. If D_cardinal > 0 Then D_tasselCount = D_tasselCount & "Cardinal/Wine" & vbTab & D_cardinal & vbLf
  279. If D_copper > 0 Then D_tasselCount = D_tasselCount & "Copper" & vbTab & vbTab & D_copper & vbLf
  280. If D_citron > 0 Then D_tasselCount = D_tasselCount & "Citron" & vbTab & vbTab & D_citron & vbLf
  281. If D_cream > 0 Then D_tasselCount = D_tasselCount & "Cream" & vbTab & vbTab & D_cream & vbLf
  282. If D_drab > 0 Then D_tasselCount = D_tasselCount & "Drab" & vbTab & vbTab & D_drab & vbLf
  283. If D_forest > 0 Then D_tasselCount = D_tasselCount & "Forest Green" & vbTab & D_forest & vbLf
  284. If D_gold > 0 Then D_tasselCount = D_tasselCount & "Gold" & vbTab & vbTab & D_gold & vbLf
  285. If D_gray > 0 Then D_tasselCount = D_tasselCount & "Gray" & vbTab & vbTab & D_gray & vbLf
  286. If D_kelly > 0 Then D_tasselCount = D_tasselCount & "Kelly Green" & vbTab & D_kelly & vbLf
  287. If D_lemon > 0 Then D_tasselCount = D_tasselCount & "Lemon" & vbTab & vbTab & D_lemon & vbLf
  288. If D_lilac > 0 Then D_tasselCount = D_tasselCount & "Lilac" & vbTab & vbTab & D_lilac & vbLf
  289. If D_ltblue > 0 Then D_tasselCount = D_tasselCount & "Light Blue" & vbTab & D_ltblue & vbLf
  290. If D_maize > 0 Then D_tasselCount = D_tasselCount & "Maize" & vbTab & vbTab & D_maize & vbLf
  291. If D_maroon > 0 Then D_tasselCount = D_tasselCount & "Maroon" & vbTab & vbTab & D_maroon & vbLf
  292. If D_navy > 0 Then D_tasselCount = D_tasselCount & "Navy" & vbTab & vbTab & D_navy & vbLf
  293. If D_nile > 0 Then D_tasselCount = D_tasselCount & "Nile Green" & vbTab & D_nile & vbLf
  294. If D_olive > 0 Then D_tasselCount = D_tasselCount & "Olive Green" & vbTab & D_olive & vbLf
  295. If D_orange > 0 Then D_tasselCount = D_tasselCount & "Orange" & vbTab & vbTab & D_orange & vbLf
  296. If D_peacock > 0 Then D_tasselCount = D_tasselCount & "Peacock Blue" & vbTab & D_peacock & vbLf
  297. If D_pink > 0 Then D_tasselCount = D_tasselCount & "Pink" & vbTab & vbTab & D_pink & vbLf
  298. If D_purple > 0 Then D_tasselCount = D_tasselCount & "Purple" & vbTab & vbTab & D_purple & vbLf
  299. If D_red > 0 Then D_tasselCount = D_tasselCount & "Red" & vbTab & vbTab & D_red & vbLf
  300. If D_sage > 0 Then D_tasselCount = D_tasselCount & "Sage Green" & vbTab & D_sage & vbLf
  301. If D_salmon > 0 Then D_tasselCount = D_tasselCount & "Salmon" & vbTab & vbTab & D_salmon & vbLf
  302. If D_silver > 0 Then D_tasselCount = D_tasselCount & "Silver" & vbTab & vbTab & D_silver & vbLf
  303. If D_white > 0 Then D_tasselCount = D_tasselCount & "White" & vbTab & vbTab & D_white & vbLf
  304. If D_yale > 0 Then D_tasselCount = D_tasselCount & "Yale" & vbTab & vbTab & D_yale & vbLf
  305. If D_tasselCount = "" Then D_tasselCount = "N/A"
  306.  
  307. If A_alice > 0 Then A_tasselCount = A_tasselCount & "Alice:" & vbTab & vbTab & A_alice & vbLf
  308. If A_apricot > 0 Then A_tasselCount = A_tasselCount & "Apricot" & vbTab & vbTab & A_apricot & vbLf
  309. If A_aqua > 0 Then A_tasselCount = A_tasselCount & "Aqua" & vbTab & vbTab & A_aqua & vbLf
  310. If A_black > 0 Then A_tasselCount = A_tasselCount & "Black" & vbTab & vbTab & A_black & vbLf
  311. If A_brown > 0 Then A_tasselCount = A_tasselCount & "Brown" & vbTab & vbTab & A_brown & vbLf
  312. If A_burntorange > 0 Then A_tasselCount = A_tasselCount & "Burnt Orange" & vbTab & A_burntorange & vbLf
  313. If A_cardinal > 0 Then A_tasselCount = A_tasselCount & "Cardinal/Wine" & vbTab & A_cardinal & vbLf
  314. If A_copper > 0 Then A_tasselCount = A_tasselCount & "Copper" & vbTab & vbTab & A_copper & vbLf
  315. If A_citron > 0 Then A_tasselCount = A_tasselCount & "Citron" & vbTab & vbTab & A_citron & vbLf
  316. If A_cream > 0 Then A_tasselCount = A_tasselCount & "Cream" & vbTab & vbTab & A_cream & vbLf
  317. If A_drab > 0 Then A_tasselCount = A_tasselCount & "Drab" & vbTab & vbTab & A_drab & vbLf
  318. If A_forest > 0 Then A_tasselCount = A_tasselCount & "Forest Green" & vbTab & A_forest & vbLf
  319. If A_gold > 0 Then A_tasselCount = A_tasselCount & "Gold" & vbTab & vbTab & A_gold & vbLf
  320. If A_gray > 0 Then A_tasselCount = A_tasselCount & "Gray" & vbTab & vbTab & A_gray & vbLf
  321. If A_kelly > 0 Then A_tasselCount = A_tasselCount & "Kelly Green" & vbTab & A_kelly & vbLf
  322. If A_lemon > 0 Then A_tasselCount = A_tasselCount & "Lemon" & vbTab & vbTab & A_lemon & vbLf
  323. If A_lilac > 0 Then A_tasselCount = A_tasselCount & "Lilac" & vbTab & vbTab & A_lilac & vbLf
  324. If A_ltblue > 0 Then A_tasselCount = A_tasselCount & "Light Blue" & vbTab & A_ltblue & vbLf
  325. If A_maize > 0 Then A_tasselCount = A_tasselCount & "Maize" & vbTab & vbTab & A_maize & vbLf
  326. If A_maroon > 0 Then A_tasselCount = A_tasselCount & "Maroon" & vbTab & vbTab & A_maroon & vbLf
  327. If A_navy > 0 Then A_tasselCount = A_tasselCount & "Navy" & vbTab & vbTab & A_navy & vbLf
  328. If A_nile > 0 Then A_tasselCount = A_tasselCount & "Nile Green" & vbTab & A_nile & vbLf
  329. If A_olive > 0 Then A_tasselCount = A_tasselCount & "Olive Green" & vbTab & A_olive & vbLf
  330. If A_orange > 0 Then A_tasselCount = A_tasselCount & "Orange" & vbTab & vbTab & A_orange & vbLf
  331. If A_peacock > 0 Then A_tasselCount = A_tasselCount & "Peacock Blue" & vbTab & A_peacock & vbLf
  332. If A_pink > 0 Then A_tasselCount = A_tasselCount & "Pink" & vbTab & vbTab & A_pink & vbLf
  333. If A_purple > 0 Then A_tasselCount = A_tasselCount & "Purple" & vbTab & vbTab & A_purple & vbLf
  334. If A_red > 0 Then A_tasselCount = A_tasselCount & "Red" & vbTab & vbTab & A_red & vbLf
  335. If A_sage > 0 Then A_tasselCount = A_tasselCount & "Sage Green" & vbTab & A_sage & vbLf
  336. If A_salmon > 0 Then A_tasselCount = A_tasselCount & "Salmon" & vbTab & vbTab & A_salmon & vbLf
  337. If A_silver > 0 Then A_tasselCount = A_tasselCount & "Silver" & vbTab & vbTab & A_silver & vbLf
  338. If A_white > 0 Then A_tasselCount = A_tasselCount & "White" & vbTab & vbTab & A_white & vbLf
  339. If A_yale > 0 Then A_tasselCount = A_tasselCount & "Yale" & vbTab & vbTab & A_yale & vbLf
  340. If A_tasselCount = "" Then B_tasselCount = "N/A"
  341.  
  342. If Mem_alice > 0 Then Mem_tasselCount = Mem_tasselCount & "Alice:" & vbTab & vbTab & Mem_alice & vbLf
  343. If Mem_apricot > 0 Then Mem_tasselCount = Mem_tasselCount & "Apricot" & vbTab & vbTab & Mem_apricot & vbLf
  344. If Mem_aqua > 0 Then Mem_tasselCount = Mem_tasselCount & "Aqua" & vbTab & vbTab & Mem_aqua & vbLf
  345. If Mem_black > 0 Then Mem_tasselCount = Mem_tasselCount & "Black" & vbTab & vbTab & Mem_black & vbLf
  346. If Mem_brown > 0 Then Mem_tasselCount = Mem_tasselCount & "Brown" & vbTab & vbTab & Mem_brown & vbLf
  347. If Mem_burntorange > 0 Then Mem_tasselCount = Mem_tasselCount & "Burnt Orange" & vbTab & Mem_burntorange & vbLf
  348. If Mem_cardinal > 0 Then Mem_tasselCount = Mem_tasselCount & "Cardinal/Wine" & vbTab & Mem_cardinal & vbLf
  349. If Mem_copper > 0 Then Mem_tasselCount = Mem_tasselCount & "Copper" & vbTab & vbTab & Mem_copper & vbLf
  350. If Mem_citron > 0 Then Mem_tasselCount = Mem_tasselCount & "Citron" & vbTab & vbTab & Mem_citron & vbLf
  351. If Mem_cream > 0 Then Mem_tasselCount = Mem_tasselCount & "Cream" & vbTab & vbTab & Mem_cream & vbLf
  352. If Mem_drab > 0 Then Mem_tasselCount = Mem_tasselCount & "Drab" & vbTab & vbTab & Mem_drab & vbLf
  353. If Mem_forest > 0 Then Mem_tasselCount = Mem_tasselCount & "Forest Green" & vbTab & Mem_forest & vbLf
  354. If Mem_gold > 0 Then Mem_tasselCount = Mem_tasselCount & "Gold" & vbTab & vbTab & Mem_gold & vbLf
  355. If Mem_gray > 0 Then Mem_tasselCount = Mem_tasselCount & "Gray" & vbTab & vbTab & Mem_gray & vbLf
  356. If Mem_kelly > 0 Then Mem_tasselCount = Mem_tasselCount & "Kelly Green" & vbTab & Mem_kelly & vbLf
  357. If Mem_lemon > 0 Then Mem_tasselCount = Mem_tasselCount & "Lemon" & vbTab & vbTab & Mem_lemon & vbLf
  358. If Mem_lilac > 0 Then Mem_tasselCount = Mem_tasselCount & "Lilac" & vbTab & vbTab & Mem_lilac & vbLf
  359. If Mem_ltblue > 0 Then Mem_tasselCount = Mem_tasselCount & "Light Blue" & vbTab & Mem_ltblue & vbLf
  360. If Mem_maize > 0 Then Mem_tasselCount = Mem_tasselCount & "Maize" & vbTab & vbTab & Mem_maize & vbLf
  361. If Mem_maroon > 0 Then Mem_tasselCount = Mem_tasselCount & "Maroon" & vbTab & vbTab & Mem_maroon & vbLf
  362. If Mem_navy > 0 Then Mem_tasselCount = Mem_tasselCount & "Navy" & vbTab & vbTab & Mem_navy & vbLf
  363. If Mem_nile > 0 Then Mem_tasselCount = Mem_tasselCount & "Nile Green" & vbTab & Mem_nile & vbLf
  364. If Mem_olive > 0 Then Mem_tasselCount = Mem_tasselCount & "Olive Green" & vbTab & Mem_olive & vbLf
  365. If Mem_orange > 0 Then Mem_tasselCount = Mem_tasselCount & "Orange" & vbTab & vbTab & Mem_orange & vbLf
  366. If Mem_peacock > 0 Then Mem_tasselCount = Mem_tasselCount & "Peacock Blue" & vbTab & Mem_peacock & vbLf
  367. If Mem_pink > 0 Then Mem_tasselCount = Mem_tasselCount & "Pink" & vbTab & vbTab & Mem_pink & vbLf
  368. If Mem_purple > 0 Then Mem_tasselCount = Mem_tasselCount & "Purple" & vbTab & vbTab & Mem_purple & vbLf
  369. If Mem_red > 0 Then Mem_tasselCount = Mem_tasselCount & "Red" & vbTab & vbTab & Mem_red & vbLf
  370. If Mem_sage > 0 Then Mem_tasselCount = Mem_tasselCount & "Sage Green" & vbTab & Mem_sage & vbLf
  371. If Mem_salmon > 0 Then Mem_tasselCount = Mem_tasselCount & "Salmon" & vbTab & vbTab & Mem_salmon & vbLf
  372. If Mem_silver > 0 Then Mem_tasselCount = Mem_tasselCount & "Silver" & vbTab & vbTab & Mem_silver & vbLf
  373. If Mem_white > 0 Then Mem_tasselCount = Mem_tasselCount & "White" & vbTab & vbTab & Mem_white & vbLf
  374. If Mem_yale > 0 Then Mem_tasselCount = Mem_tasselCount & "Yale" & vbTab & vbTab & Mem_yale & vbLf
  375. If Mem_tasselCount = "" Then Mem_tasselCount = "N/A"
  376.  
  377. Label1.Caption = B_tasselCount
  378. Label2.Caption = M_tasselCount
  379. Label3.Caption = D_tasselCount
  380. Label4.Caption = A_tasselCount
  381. Label5.Caption = Mem_tasselCount
  382. End Sub
Add Comment
Please, Sign In to add comment
Public Pastes
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!