API tools faq
paste
Advertisement
Guest User

Untitled

a guest
Feb 25th, 2017
73
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 27.96 KB | None | 0 0
raw download clone embed print report
  1. Private Sub Worksheet_Change(ByVal Target As Range)
  2.  
  3. Set r1 = Sheets("Priority Table").Range("B2")
  4. Set r2 = Sheets("Priority Table").Range("I2")
  5. Set r3 = Sheets("Priority Table").Range("P2")
  6. Set r4 = Sheets("Priority Table").Range("B13")
  7. Set r5 = Sheets("Priority Table").Range("I13")
  8. Set r6 = Sheets("Priority Table").Range("P13")
  9. Set r7 = Sheets("Priority Table").Range("B24")
  10. Set r8 = Sheets("Priority Table").Range("I24")
  11. Set r9 = Sheets("Priority Table").Range("P24")
  12. Set r10 = Sheets("Priority Table").Range("B35")
  13. Set r11 = Sheets("Priority Table").Range("B4")
  14. Set r12 = Sheets("Priority Table").Range("I4")
  15. Set r13 = Sheets("Priority Table").Range("P4")
  16. Set r14 = Sheets("Priority Table").Range("B15")
  17. Set r15 = Sheets("Priority Table").Range("I15")
  18. Set r16 = Sheets("Priority Table").Range("P15")
  19. Set r17 = Sheets("Priority Table").Range("B26")
  20. Set r18 = Sheets("Priority Table").Range("I26")
  21. Set r19 = Sheets("Priority Table").Range("P26")
  22. Set r20 = Sheets("Priority Table").Range("B37")
  23. Set r21 = Sheets("Priority Table").Range("D4")
  24. Set r22 = Sheets("Priority Table").Range("K4")
  25. Set r23 = Sheets("Priority Table").Range("R4")
  26. Set r24 = Sheets("Priority Table").Range("D15")
  27. Set r25 = Sheets("Priority Table").Range("K15")
  28. Set r26 = Sheets("Priority Table").Range("R15")
  29. Set r27 = Sheets("Priority Table").Range("D26")
  30. Set r28 = Sheets("Priority Table").Range("K26")
  31. Set r29 = Sheets("Priority Table").Range("R26")
  32. Set r30 = Sheets("Priority Table").Range("D37")
  33. Set r31 = Sheets("Priority Table").Range("C8")
  34. Set r32 = Sheets("Priority Table").Range("J8")
  35. Set r33 = Sheets("Priority Table").Range("Q8")
  36. Set r34 = Sheets("Priority Table").Range("C19")
  37. Set r35 = Sheets("Priority Table").Range("J19")
  38. Set r36 = Sheets("Priority Table").Range("Q19")
  39. Set r37 = Sheets("Priority Table").Range("C30")
  40. Set r38 = Sheets("Priority Table").Range("J30")
  41. Set r39 = Sheets("Priority Table").Range("Q30")
  42. Set r40 = Sheets("Priority Table").Range("C41")
  43. Set r41 = Sheets("Priority Table").Range("C9")
  44. Set r42 = Sheets("Priority Table").Range("J9")
  45. Set r43 = Sheets("Priority Table").Range("Q9")
  46. Set r44 = Sheets("Priority Table").Range("C20")
  47. Set r45 = Sheets("Priority Table").Range("J20")
  48. Set r46 = Sheets("Priority Table").Range("Q20")
  49. Set r47 = Sheets("Priority Table").Range("C31")
  50. Set r48 = Sheets("Priority Table").Range("J31")
  51. Set r49 = Sheets("Priority Table").Range("Q31")
  52. Set r50 = Sheets("Priority Table").Range("C42")
  53. Set r51 = Sheets("Priority Table").Range("B11")
  54. Set r52 = Sheets("Priority Table").Range("I11")
  55. Set r53 = Sheets("Priority Table").Range("P11")
  56. Set r54 = Sheets("Priority Table").Range("B22")
  57. Set r55 = Sheets("Priority Table").Range("I22")
  58. Set r56 = Sheets("Priority Table").Range("P22")
  59. Set r57 = Sheets("Priority Table").Range("B33")
  60. Set r58 = Sheets("Priority Table").Range("I33")
  61. Set r59 = Sheets("Priority Table").Range("P33")
  62. Set r60 = Sheets("Priority Table").Range("B44")
  63. Set r61 = Sheets("Priority Table").Range("D6")
  64. Set r62 = Sheets("Priority Table").Range("K6")
  65. Set r63 = Sheets("Priority Table").Range("R6")
  66. Set r64 = Sheets("Priority Table").Range("D17")
  67. Set r65 = Sheets("Priority Table").Range("K17")
  68. Set r66 = Sheets("Priority Table").Range("R17")
  69. Set r67 = Sheets("Priority Table").Range("D28")
  70. Set r68 = Sheets("Priority Table").Range("K28")
  71. Set r69 = Sheets("Priority Table").Range("R28")
  72. Set r70 = Sheets("Priority Table").Range("D39")
  73. Set r71 = Sheets("Priority Table").Range("D7")
  74. Set r72 = Sheets("Priority Table").Range("K7")
  75. Set r73 = Sheets("Priority Table").Range("R7")
  76. Set r74 = Sheets("Priority Table").Range("D18")
  77. Set r75 = Sheets("Priority Table").Range("K18")
  78. Set r76 = Sheets("Priority Table").Range("R18")
  79. Set r77 = Sheets("Priority Table").Range("D29")
  80. Set r78 = Sheets("Priority Table").Range("K29")
  81. Set r79 = Sheets("Priority Table").Range("R29")
  82. Set r80 = Sheets("Priority Table").Range("D40")
  83. Set r81 = Sheets("Priority Table").Range("D8")
  84. Set r82 = Sheets("Priority Table").Range("K8")
  85. Set r83 = Sheets("Priority Table").Range("R8")
  86. Set r84 = Sheets("Priority Table").Range("D19")
  87. Set r85 = Sheets("Priority Table").Range("K19")
  88. Set r86 = Sheets("Priority Table").Range("R19")
  89. Set r87 = Sheets("Priority Table").Range("D30")
  90. Set r88 = Sheets("Priority Table").Range("K30")
  91. Set r89 = Sheets("Priority Table").Range("R30")
  92. Set r90 = Sheets("Priority Table").Range("D41")
  93. Set r91 = Sheets("Priority Table").Range("D9")
  94. Set r92 = Sheets("Priority Table").Range("K9")
  95. Set r93 = Sheets("Priority Table").Range("R9")
  96. Set r94 = Sheets("Priority Table").Range("D20")
  97. Set r95 = Sheets("Priority Table").Range("K20")
  98. Set r96 = Sheets("Priority Table").Range("R20")
  99. Set r97 = Sheets("Priority Table").Range("D31")
  100. Set r98 = Sheets("Priority Table").Range("K31")
  101. Set r99 = Sheets("Priority Table").Range("R31")
  102. Set r100 = Sheets("Priority Table").Range("D42")
  103. Set r101 = Sheets("Priority Table").Range("D10")
  104. Set r102 = Sheets("Priority Table").Range("K10")
  105. Set r103 = Sheets("Priority Table").Range("R10")
  106. Set r104 = Sheets("Priority Table").Range("D21")
  107. Set r105 = Sheets("Priority Table").Range("K21")
  108. Set r106 = Sheets("Priority Table").Range("R21")
  109. Set r107 = Sheets("Priority Table").Range("D32")
  110. Set r108 = Sheets("Priority Table").Range("K32")
  111. Set r109 = Sheets("Priority Table").Range("R32")
  112. Set r110 = Sheets("Priority Table").Range("D43")
  113. Set r111 = Sheets("Priority Table").Range("D11")
  114. Set r112 = Sheets("Priority Table").Range("K11")
  115. Set r113 = Sheets("Priority Table").Range("R11")
  116. Set r114 = Sheets("Priority Table").Range("D22")
  117. Set r115 = Sheets("Priority Table").Range("K22")
  118. Set r116 = Sheets("Priority Table").Range("R22")
  119. Set r117 = Sheets("Priority Table").Range("D33")
  120. Set r118 = Sheets("Priority Table").Range("K33")
  121. Set r119 = Sheets("Priority Table").Range("R33")
  122. Set r120 = Sheets("Priority Table").Range("D44")
  123. Set r121 = Sheets("Priority Table").Range("E4")
  124. Set r122 = Sheets("Priority Table").Range("L4")
  125. Set r123 = Sheets("Priority Table").Range("S4")
  126. Set r124 = Sheets("Priority Table").Range("E15")
  127. Set r125 = Sheets("Priority Table").Range("L15")
  128. Set r126 = Sheets("Priority Table").Range("S15")
  129. Set r127 = Sheets("Priority Table").Range("E26")
  130. Set r128 = Sheets("Priority Table").Range("L26")
  131. Set r129 = Sheets("Priority Table").Range("S26")
  132. Set r130 = Sheets("Priority Table").Range("E37")
  133. Set r131 = Sheets("Priority Table").Range("F4")
  134. Set r132 = Sheets("Priority Table").Range("M4")
  135. Set r133 = Sheets("Priority Table").Range("T4")
  136. Set r134 = Sheets("Priority Table").Range("F15")
  137. Set r135 = Sheets("Priority Table").Range("M15")
  138. Set r136 = Sheets("Priority Table").Range("S15")
  139. Set r137 = Sheets("Priority Table").Range("F26")
  140. Set r138 = Sheets("Priority Table").Range("M26")
  141. Set r139 = Sheets("Priority Table").Range("T26")
  142. Set r140 = Sheets("Priority Table").Range("F37")
  143. Set r141 = Sheets("Priority Table").Range("E6")
  144. Set r142 = Sheets("Priority Table").Range("L6")
  145. Set r143 = Sheets("Priority Table").Range("S6")
  146. Set r144 = Sheets("Priority Table").Range("E17")
  147. Set r145 = Sheets("Priority Table").Range("L17")
  148. Set r146 = Sheets("Priority Table").Range("S17")
  149. Set r147 = Sheets("Priority Table").Range("E28")
  150. Set r148 = Sheets("Priority Table").Range("L28")
  151. Set r149 = Sheets("Priority Table").Range("S28")
  152. Set r150 = Sheets("Priority Table").Range("E39")
  153. Set r151 = Sheets("Priority Table").Range("F6")
  154. Set r152 = Sheets("Priority Table").Range("M6")
  155. Set r153 = Sheets("Priority Table").Range("T6")
  156. Set r154 = Sheets("Priority Table").Range("F17")
  157. Set r155 = Sheets("Priority Table").Range("M17")
  158. Set r156 = Sheets("Priority Table").Range("T17")
  159. Set r157 = Sheets("Priority Table").Range("F28")
  160. Set r158 = Sheets("Priority Table").Range("M28")
  161. Set r159 = Sheets("Priority Table").Range("T28")
  162. Set r160 = Sheets("Priority Table").Range("F39")
  163. Set r161 = Sheets("Priority Table").Range("E8")
  164. Set r162 = Sheets("Priority Table").Range("L8")
  165. Set r163 = Sheets("Priority Table").Range("S8")
  166. Set r164 = Sheets("Priority Table").Range("E19")
  167. Set r165 = Sheets("Priority Table").Range("L19")
  168. Set r166 = Sheets("Priority Table").Range("S19")
  169. Set r167 = Sheets("Priority Table").Range("E30")
  170. Set r168 = Sheets("Priority Table").Range("L30")
  171. Set r169 = Sheets("Priority Table").Range("S30")
  172. Set r170 = Sheets("Priority Table").Range("E41")
  173. Set r171 = Sheets("Priority Table").Range("F8")
  174. Set r172 = Sheets("Priority Table").Range("M8")
  175. Set r173 = Sheets("Priority Table").Range("T8")
  176. Set r174 = Sheets("Priority Table").Range("F19")
  177. Set r175 = Sheets("Priority Table").Range("M19")
  178. Set r176 = Sheets("Priority Table").Range("T19")
  179. Set r177 = Sheets("Priority Table").Range("F30")
  180. Set r178 = Sheets("Priority Table").Range("M30")
  181. Set r179 = Sheets("Priority Table").Range("T30")
  182. Set r180 = Sheets("Priority Table").Range("F41")
  183. Set r181 = Sheets("Priority Table").Range("E10")
  184. Set r182 = Sheets("Priority Table").Range("L10")
  185. Set r183 = Sheets("Priority Table").Range("S10")
  186. Set r184 = Sheets("Priority Table").Range("E21")
  187. Set r185 = Sheets("Priority Table").Range("L21")
  188. Set r186 = Sheets("Priority Table").Range("S21")
  189. Set r187 = Sheets("Priority Table").Range("E32")
  190. Set r188 = Sheets("Priority Table").Range("L32")
  191. Set r189 = Sheets("Priority Table").Range("S32")
  192. Set r190 = Sheets("Priority Table").Range("E43")
  193. Set r191 = Sheets("Priority Table").Range("F10")
  194. Set r192 = Sheets("Priority Table").Range("M10")
  195. Set r193 = Sheets("Priority Table").Range("T10")
  196. Set r194 = Sheets("Priority Table").Range("F21")
  197. Set r195 = Sheets("Priority Table").Range("M21")
  198. Set r196 = Sheets("Priority Table").Range("T21")
  199. Set r197 = Sheets("Priority Table").Range("F32")
  200. Set r198 = Sheets("Priority Table").Range("M32")
  201. Set r199 = Sheets("Priority Table").Range("T32")
  202. Set r200 = Sheets("Priority Table").Range("F43")
  203. Set r201 = Sheets("Priority Table").Range("F11")
  204. Set r202 = Sheets("Priority Table").Range("M11")
  205. Set r203 = Sheets("Priority Table").Range("T11")
  206. Set r204 = Sheets("Priority Table").Range("F22")
  207. Set r205 = Sheets("Priority Table").Range("M22")
  208. Set r206 = Sheets("Priority Table").Range("T22")
  209. Set r207 = Sheets("Priority Table").Range("F33")
  210. Set r208 = Sheets("Priority Table").Range("M33")
  211. Set r209 = Sheets("Priority Table").Range("T33")
  212. Set r210 = Sheets("Priority Table").Range("F44")
  213. Set r211 = Sheets("Priority Table").Range("G6")
  214. Set r212 = Sheets("Priority Table").Range("N6")
  215. Set r213 = Sheets("Priority Table").Range("U6")
  216. Set r214 = Sheets("Priority Table").Range("G17")
  217. Set r215 = Sheets("Priority Table").Range("N17")
  218. Set r216 = Sheets("Priority Table").Range("U17")
  219. Set r217 = Sheets("Priority Table").Range("G28")
  220. Set r218 = Sheets("Priority Table").Range("N28")
  221. Set r219 = Sheets("Priority Table").Range("U28")
  222. Set r220 = Sheets("Priority Table").Range("G39")
  223. Set r221 = Sheets("Issue List").Range("B2")
  224. Set r222 = Sheets("Issue List").Range("B3")
  225. Set r223 = Sheets("Issue List").Range("B4")
  226. Set r224 = Sheets("Issue List").Range("B5")
  227. Set r225 = Sheets("Issue List").Range("B6")
  228. Set r226 = Sheets("Issue List").Range("B7")
  229. Set r227 = Sheets("Issue List").Range("B8")
  230. Set r228 = Sheets("Issue List").Range("B9")
  231. Set r229 = Sheets("Issue List").Range("B10")
  232. Set r230 = Sheets("Issue List").Range("B11")
  233. Set r231 = Sheets("Issue List").Range("C2")
  234. Set r232 = Sheets("Issue List").Range("C3")
  235. Set r233 = Sheets("Issue List").Range("C4")
  236. Set r234 = Sheets("Issue List").Range("C5")
  237. Set r235 = Sheets("Issue List").Range("C6")
  238. Set r236 = Sheets("Issue List").Range("C7")
  239. Set r237 = Sheets("Issue List").Range("C8")
  240. Set r238 = Sheets("Issue List").Range("C9")
  241. Set r239 = Sheets("Issue List").Range("C10")
  242. Set r240 = Sheets("Issue List").Range("C11")
  243. Set r241 = Sheets("Issue List").Range("D2")
  244. Set r242 = Sheets("Issue List").Range("D3")
  245. Set r243 = Sheets("Issue List").Range("D4")
  246. Set r244 = Sheets("Issue List").Range("D5")
  247. Set r245 = Sheets("Issue List").Range("D6")
  248. Set r246 = Sheets("Issue List").Range("D7")
  249. Set r247 = Sheets("Issue List").Range("D8")
  250. Set r248 = Sheets("Issue List").Range("D9")
  251. Set r249 = Sheets("Issue List").Range("D10")
  252. Set r250 = Sheets("Issue List").Range("D11")
  253. Set r251 = Sheets("Issue List").Range("E2")
  254. Set r252 = Sheets("Issue List").Range("E3")
  255. Set r253 = Sheets("Issue List").Range("E4")
  256. Set r254 = Sheets("Issue List").Range("E5")
  257. Set r255 = Sheets("Issue List").Range("E6")
  258. Set r256 = Sheets("Issue List").Range("E7")
  259. Set r257 = Sheets("Issue List").Range("E8")
  260. Set r258 = Sheets("Issue List").Range("E9")
  261. Set r259 = Sheets("Issue List").Range("E10")
  262. Set r260 = Sheets("Issue List").Range("E11")
  263. Set r261 = Sheets("Issue List").Range("F2")
  264. Set r262 = Sheets("Issue List").Range("F3")
  265. Set r263 = Sheets("Issue List").Range("F4")
  266. Set r264 = Sheets("Issue List").Range("F5")
  267. Set r265 = Sheets("Issue List").Range("F6")
  268. Set r266 = Sheets("Issue List").Range("F7")
  269. Set r267 = Sheets("Issue List").Range("F8")
  270. Set r268 = Sheets("Issue List").Range("F9")
  271. Set r269 = Sheets("Issue List").Range("F10")
  272. Set r270 = Sheets("Issue List").Range("F11")
  273. Set r271 = Sheets("Issue List").Range("G2")
  274. Set r272 = Sheets("Issue List").Range("G3")
  275. Set r273 = Sheets("Issue List").Range("G4")
  276. Set r274 = Sheets("Issue List").Range("G5")
  277. Set r275 = Sheets("Issue List").Range("G6")
  278. Set r276 = Sheets("Issue List").Range("G7")
  279. Set r277 = Sheets("Issue List").Range("G8")
  280. Set r278 = Sheets("Issue List").Range("G9")
  281. Set r279 = Sheets("Issue List").Range("G10")
  282. Set r280 = Sheets("Issue List").Range("G11")
  283. Set r281 = Sheets("Issue List").Range("H2")
  284. Set r282 = Sheets("Issue List").Range("H3")
  285. Set r283 = Sheets("Issue List").Range("H4")
  286. Set r284 = Sheets("Issue List").Range("H5")
  287. Set r285 = Sheets("Issue List").Range("H6")
  288. Set r286 = Sheets("Issue List").Range("H7")
  289. Set r287 = Sheets("Issue List").Range("H8")
  290. Set r288 = Sheets("Issue List").Range("H9")
  291. Set r289 = Sheets("Issue List").Range("H10")
  292. Set r290 = Sheets("Issue List").Range("H11")
  293. Set r291 = Sheets("Issue List").Range("I2")
  294. Set r292 = Sheets("Issue List").Range("I3")
  295. Set r293 = Sheets("Issue List").Range("I4")
  296. Set r294 = Sheets("Issue List").Range("I5")
  297. Set r295 = Sheets("Issue List").Range("I6")
  298. Set r296 = Sheets("Issue List").Range("I7")
  299. Set r297 = Sheets("Issue List").Range("I8")
  300. Set r298 = Sheets("Issue List").Range("I9")
  301. Set r299 = Sheets("Issue List").Range("I10")
  302. Set r300 = Sheets("Issue List").Range("I11")
  303. Set r301 = Sheets("Issue List").Range("J2")
  304. Set r302 = Sheets("Issue List").Range("J3")
  305. Set r303 = Sheets("Issue List").Range("J4")
  306. Set r304 = Sheets("Issue List").Range("J5")
  307. Set r305 = Sheets("Issue List").Range("J6")
  308. Set r306 = Sheets("Issue List").Range("J7")
  309. Set r307 = Sheets("Issue List").Range("J8")
  310. Set r308 = Sheets("Issue List").Range("J9")
  311. Set r309 = Sheets("Issue List").Range("J10")
  312. Set r310 = Sheets("Issue List").Range("J11")
  313. Set r311 = Sheets("Issue List").Range("K2")
  314. Set r312 = Sheets("Issue List").Range("K3")
  315. Set r313 = Sheets("Issue List").Range("K4")
  316. Set r314 = Sheets("Issue List").Range("K5")
  317. Set r315 = Sheets("Issue List").Range("K6")
  318. Set r316 = Sheets("Issue List").Range("K7")
  319. Set r317 = Sheets("Issue List").Range("K8")
  320. Set r318 = Sheets("Issue List").Range("K9")
  321. Set r319 = Sheets("Issue List").Range("K10")
  322. Set r320 = Sheets("Issue List").Range("K11")
  323. Set r321 = Sheets("Issue List").Range("L2")
  324. Set r322 = Sheets("Issue List").Range("L3")
  325. Set r323 = Sheets("Issue List").Range("L4")
  326. Set r324 = Sheets("Issue List").Range("L5")
  327. Set r325 = Sheets("Issue List").Range("L6")
  328. Set r326 = Sheets("Issue List").Range("L7")
  329. Set r327 = Sheets("Issue List").Range("L8")
  330. Set r328 = Sheets("Issue List").Range("L9")
  331. Set r329 = Sheets("Issue List").Range("L10")
  332. Set r330 = Sheets("Issue List").Range("L11")
  333. Set r331 = Sheets("Issue List").Range("M2")
  334. Set r332 = Sheets("Issue List").Range("M3")
  335. Set r333 = Sheets("Issue List").Range("M4")
  336. Set r334 = Sheets("Issue List").Range("M5")
  337. Set r335 = Sheets("Issue List").Range("M6")
  338. Set r336 = Sheets("Issue List").Range("M7")
  339. Set r337 = Sheets("Issue List").Range("M8")
  340. Set r338 = Sheets("Issue List").Range("M9")
  341. Set r339 = Sheets("Issue List").Range("M10")
  342. Set r340 = Sheets("Issue List").Range("M11")
  343. Set r341 = Sheets("Issue List").Range("P2")
  344. Set r342 = Sheets("Issue List").Range("P3")
  345. Set r343 = Sheets("Issue List").Range("P4")
  346. Set r344 = Sheets("Issue List").Range("P5")
  347. Set r345 = Sheets("Issue List").Range("P6")
  348. Set r346 = Sheets("Issue List").Range("P7")
  349. Set r347 = Sheets("Issue List").Range("P8")
  350. Set r348 = Sheets("Issue List").Range("P9")
  351. Set r349 = Sheets("Issue List").Range("P10")
  352. Set r350 = Sheets("Issue List").Range("P11")
  353. Set r351 = Sheets("Issue List").Range("Q2")
  354. Set r352 = Sheets("Issue List").Range("Q3")
  355. Set r353 = Sheets("Issue List").Range("Q4")
  356. Set r354 = Sheets("Issue List").Range("Q5")
  357. Set r355 = Sheets("Issue List").Range("Q6")
  358. Set r356 = Sheets("Issue List").Range("Q7")
  359. Set r357 = Sheets("Issue List").Range("Q8")
  360. Set r358 = Sheets("Issue List").Range("Q9")
  361. Set r359 = Sheets("Issue List").Range("Q10")
  362. Set r360 = Sheets("Issue List").Range("Q11")
  363. Set r361 = Sheets("Issue List").Range("R2")
  364. Set r362 = Sheets("Issue List").Range("R3")
  365. Set r363 = Sheets("Issue List").Range("R4")
  366. Set r364 = Sheets("Issue List").Range("R5")
  367. Set r365 = Sheets("Issue List").Range("R6")
  368. Set r366 = Sheets("Issue List").Range("R7")
  369. Set r367 = Sheets("Issue List").Range("R8")
  370. Set r368 = Sheets("Issue List").Range("R9")
  371. Set r369 = Sheets("Issue List").Range("R10")
  372. Set r370 = Sheets("Issue List").Range("R11")
  373. Set r371 = Sheets("Issue List").Range("S2")
  374. Set r372 = Sheets("Issue List").Range("S3")
  375. Set r373 = Sheets("Issue List").Range("S4")
  376. Set r374 = Sheets("Issue List").Range("S5")
  377. Set r375 = Sheets("Issue List").Range("S6")
  378. Set r376 = Sheets("Issue List").Range("S7")
  379. Set r377 = Sheets("Issue List").Range("S8")
  380. Set r378 = Sheets("Issue List").Range("S9")
  381. Set r379 = Sheets("Issue List").Range("S10")
  382. Set r380 = Sheets("Issue List").Range("S11")
  383. Set r381 = Sheets("Issue List").Range("T2")
  384. Set r382 = Sheets("Issue List").Range("T3")
  385. Set r383 = Sheets("Issue List").Range("T4")
  386. Set r384 = Sheets("Issue List").Range("T5")
  387. Set r385 = Sheets("Issue List").Range("T6")
  388. Set r386 = Sheets("Issue List").Range("T7")
  389. Set r387 = Sheets("Issue List").Range("T8")
  390. Set r388 = Sheets("Issue List").Range("T9")
  391. Set r389 = Sheets("Issue List").Range("T10")
  392. Set r390 = Sheets("Issue List").Range("T11")
  393. Set r391 = Sheets("Issue List").Range("U2")
  394. Set r392 = Sheets("Issue List").Range("U3")
  395. Set r393 = Sheets("Issue List").Range("U4")
  396. Set r394 = Sheets("Issue List").Range("U5")
  397. Set r395 = Sheets("Issue List").Range("U6")
  398. Set r396 = Sheets("Issue List").Range("U7")
  399. Set r397 = Sheets("Issue List").Range("U8")
  400. Set r398 = Sheets("Issue List").Range("U9")
  401. Set r399 = Sheets("Issue List").Range("U10")
  402. Set r400 = Sheets("Issue List").Range("U11")
  403. Set r401 = Sheets("Issue List").Range("V2")
  404. Set r402 = Sheets("Issue List").Range("V3")
  405. Set r403 = Sheets("Issue List").Range("V4")
  406. Set r404 = Sheets("Issue List").Range("V5")
  407. Set r405 = Sheets("Issue List").Range("V6")
  408. Set r406 = Sheets("Issue List").Range("V7")
  409. Set r407 = Sheets("Issue List").Range("V8")
  410. Set r408 = Sheets("Issue List").Range("V9")
  411. Set r409 = Sheets("Issue List").Range("V10")
  412. Set r410 = Sheets("Issue List").Range("V11")
  413. Set r411 = Sheets("Issue List").Range("W2")
  414. Set r412 = Sheets("Issue List").Range("W3")
  415. Set r413 = Sheets("Issue List").Range("W4")
  416. Set r414 = Sheets("Issue List").Range("W5")
  417. Set r415 = Sheets("Issue List").Range("W6")
  418. Set r416 = Sheets("Issue List").Range("W7")
  419. Set r417 = Sheets("Issue List").Range("W8")
  420. Set r418 = Sheets("Issue List").Range("W9")
  421. Set r419 = Sheets("Issue List").Range("W10")
  422. Set r420 = Sheets("Issue List").Range("W11")
  423. Set r421 = Sheets("Issue List").Range("X2")
  424. Set r422 = Sheets("Issue List").Range("X3")
  425. Set r423 = Sheets("Issue List").Range("X4")
  426. Set r424 = Sheets("Issue List").Range("X5")
  427. Set r425 = Sheets("Issue List").Range("X6")
  428. Set r426 = Sheets("Issue List").Range("X7")
  429. Set r427 = Sheets("Issue List").Range("X8")
  430. Set r428 = Sheets("Issue List").Range("X9")
  431. Set r429 = Sheets("Issue List").Range("X10")
  432. Set r430 = Sheets("Issue List").Range("X11")
  433. Set r431 = Sheets("Issue List").Range("Y2")
  434. Set r432 = Sheets("Issue List").Range("Y3")
  435. Set r433 = Sheets("Issue List").Range("Y4")
  436. Set r434 = Sheets("Issue List").Range("Y5")
  437. Set r435 = Sheets("Issue List").Range("Y6")
  438. Set r436 = Sheets("Issue List").Range("Y7")
  439. Set r437 = Sheets("Issue List").Range("Y8")
  440. Set r438 = Sheets("Issue List").Range("Y9")
  441. Set r439 = Sheets("Issue List").Range("Y10")
  442. Set r440 = Sheets("Issue List").Range("Y11")
  443. Set r441 = Sheets("Priority Table").Range("G4")
  444. Set r442 = Sheets("Priority Table").Range("N4")
  445. Set r443 = Sheets("Priority Table").Range("U4")
  446. Set r444 = Sheets("Priority Table").Range("G15")
  447. Set r445 = Sheets("Priority Table").Range("N15")
  448. Set r446 = Sheets("Priority Table").Range("U15")
  449. Set r447 = Sheets("Priority Table").Range("G26")
  450. Set r448 = Sheets("Priority Table").Range("N26")
  451. Set r449 = Sheets("Priority Table").Range("U26")
  452. Set r450 = Sheets("Priority Table").Range("G37")
  453. Set r451 = Sheets("Issue List").Range("O2")
  454. Set r452 = Sheets("Issue List").Range("O3")
  455. Set r453 = Sheets("Issue List").Range("O4")
  456. Set r454 = Sheets("Issue List").Range("O5")
  457. Set r455 = Sheets("Issue List").Range("O6")
  458. Set r456 = Sheets("Issue List").Range("O7")
  459. Set r457 = Sheets("Issue List").Range("O8")
  460. Set r458 = Sheets("Issue List").Range("O9")
  461. Set r459 = Sheets("Issue List").Range("O10")
  462. Set r460 = Sheets("Issue List").Range("O11")
  463. Set r461 = Sheets("Priority Table").Range("B2:G11")
  464. Set r462 = Sheets("Priority Table").Range("I2:N11")
  465. Set r463 = Sheets("Priority Table").Range("P2:U11")
  466. Set r464 = Sheets("Priority Table").Range("B13:G22")
  467. Set r465 = Sheets("Priority Table").Range("I13:N22")
  468. Set r466 = Sheets("Priority Table").Range("P13:U22")
  469. Set r467 = Sheets("Priority Table").Range("B24:G33")
  470. Set r468 = Sheets("Priority Table").Range("I24:N33")
  471. Set r469 = Sheets("Priority Table").Range("P24:U33")
  472. Set r470 = Sheets("Priority Table").Range("B35:G44")
  473.  
  474.  
  475. If Not (Intersect(Target, r461) Is Nothing) Then
  476.  
  477. Application.EnableEvents = False
  478.  
  479. r221.Value = r1.Value
  480. r231.Value = r11.Value
  481. r251.Value = r31.Value
  482. r261.Value = r41.Value
  483. r271.Value = r51.Value
  484. r281.Value = r61.Value
  485. r291.Value = r71.Value
  486. r301.Value = r81.Value
  487. r311.Value = r91.Value
  488. r321.Value = r101.Value
  489. r331.Value = r111.Value
  490. r451.Value = r441.Value
  491. r361.Value = r141.Value
  492. r371.Value = r151.Value
  493. r381.Value = r161.Value
  494. r391.Value = r171.Value
  495. r401.Value = r181.Value
  496. r411.Value = r191.Value
  497. r421.Value = r201.Value
  498. r431.Value = r211.Value
  499.  
  500. Application.EnableEvents = True
  501.  
  502. End If
  503.  
  504. If Not (Intersect(Target, r462) Is Nothing) Then
  505.  
  506. Application.EnableEvents = False
  507.  
  508. r222.Value = r2.Value
  509. r232.Value = r12.Value
  510. r252.Value = r32.Value
  511. r262.Value = r42.Value
  512. r272.Value = r52.Value
  513. r282.Value = r62.Value
  514. r292.Value = r72.Value
  515. r302.Value = r82.Value
  516. r312.Value = r92.Value
  517. r322.Value = r102.Value
  518. r332.Value = r112.Value
  519. r452.Value = r442.Value
  520. r362.Value = r142.Value
  521. r372.Value = r152.Value
  522. r382.Value = r162.Value
  523. r392.Value = r172.Value
  524. r402.Value = r182.Value
  525. r412.Value = r192.Value
  526. r422.Value = r202.Value
  527. r432.Value = r212.Value
  528.  
  529. Application.EnableEvents = True
  530.  
  531. End If
  532.  
  533. If Not (Intersect(Target, r463) Is Nothing) Then
  534.  
  535. Application.EnableEvents = False
  536.  
  537. r223.Value = r3.Value
  538. r233.Value = r13.Value
  539. r253.Value = r33.Value
  540. r263.Value = r43.Value
  541. r273.Value = r53.Value
  542. r283.Value = r63.Value
  543. r293.Value = r73.Value
  544. r303.Value = r83.Value
  545. r313.Value = r93.Value
  546. r323.Value = r103.Value
  547. r333.Value = r113.Value
  548. r453.Value = r443.Value
  549. r363.Value = r143.Value
  550. r373.Value = r153.Value
  551. r383.Value = r163.Value
  552. r393.Value = r173.Value
  553. r403.Value = r183.Value
  554. r413.Value = r193.Value
  555. r423.Value = r203.Value
  556. r433.Value = r213.Value
  557.  
  558. Application.EnableEvents = True
  559.  
  560. End If
  561.  
  562. If Not (Intersect(Target, r464) Is Nothing) Then
  563.  
  564. Application.EnableEvents = False
  565.  
  566. r224.Value = r4.Value
  567. r234.Value = r14.Value
  568. r254.Value = r34.Value
  569. r264.Value = r44.Value
  570. r274.Value = r54.Value
  571. r284.Value = r64.Value
  572. r294.Value = r74.Value
  573. r304.Value = r84.Value
  574. r314.Value = r94.Value
  575. r324.Value = r104.Value
  576. r334.Value = r114.Value
  577. r454.Value = r444.Value
  578. r364.Value = r144.Value
  579. r374.Value = r154.Value
  580. r384.Value = r164.Value
  581. r394.Value = r174.Value
  582. r404.Value = r184.Value
  583. r414.Value = r194.Value
  584. r424.Value = r204.Value
  585. r434.Value = r214.Value
  586.  
  587. Application.EnableEvents = True
  588.  
  589. End If
  590.  
  591. If Not (Intersect(Target, r465) Is Nothing) Then
  592.  
  593. Application.EnableEvents = False
  594.  
  595. r225.Value = r5.Value
  596. r235.Value = r15.Value
  597. r255.Value = r35.Value
  598. r265.Value = r45.Value
  599. r275.Value = r55.Value
  600. r285.Value = r65.Value
  601. r295.Value = r75.Value
  602. r305.Value = r85.Value
  603. r315.Value = r95.Value
  604. r325.Value = r105.Value
  605. r335.Value = r115.Value
  606. r455.Value = r445.Value
  607. r365.Value = r145.Value
  608. r375.Value = r155.Value
  609. r385.Value = r165.Value
  610. r395.Value = r175.Value
  611. r405.Value = r185.Value
  612. r415.Value = r195.Value
  613. r425.Value = r205.Value
  614. r435.Value = r215.Value
  615.  
  616. Application.EnableEvents = True
  617.  
  618. End If
  619.  
  620. If Not (Intersect(Target, r466) Is Nothing) Then
  621.  
  622. Application.EnableEvents = False
  623.  
  624. r226.Value = r6.Value
  625. r236.Value = r16.Value
  626. r256.Value = r36.Value
  627. r266.Value = r46.Value
  628. r276.Value = r56.Value
  629. r286.Value = r66.Value
  630. r296.Value = r76.Value
  631. r306.Value = r86.Value
  632. r316.Value = r96.Value
  633. r326.Value = r106.Value
  634. r336.Value = r116.Value
  635. r456.Value = r446.Value
  636. r366.Value = r146.Value
  637. r376.Value = r156.Value
  638. r386.Value = r166.Value
  639. r396.Value = r176.Value
  640. r406.Value = r186.Value
  641. r416.Value = r196.Value
  642. r426.Value = r206.Value
  643. r436.Value = r216.Value
  644.  
  645. Application.EnableEvents = True
  646.  
  647. End If
  648.  
  649. If Not (Intersect(Target, r467) Is Nothing) Then
  650.  
  651. Application.EnableEvents = False
  652.  
  653. r227.Value = r7.Value
  654. r237.Value = r17.Value
  655. r257.Value = r37.Value
  656. r267.Value = r47.Value
  657. r277.Value = r57.Value
  658. r287.Value = r67.Value
  659. r297.Value = r77.Value
  660. r307.Value = r87.Value
  661. r317.Value = r97.Value
  662. r327.Value = r107.Value
  663. r337.Value = r117.Value
  664. r457.Value = r447.Value
  665. r367.Value = r147.Value
  666. r377.Value = r157.Value
  667. r387.Value = r167.Value
  668. r397.Value = r177.Value
  669. r407.Value = r187.Value
  670. r417.Value = r197.Value
  671. r427.Value = r207.Value
  672. r437.Value = r217.Value
  673.  
  674. Application.EnableEvents = True
  675.  
  676. End If
  677.  
  678. If Not (Intersect(Target, r468) Is Nothing) Then
  679.  
  680. Application.EnableEvents = False
  681.  
  682. r228.Value = r8.Value
  683. r238.Value = r18.Value
  684. r258.Value = r38.Value
  685. r268.Value = r48.Value
  686. r278.Value = r58.Value
  687. r288.Value = r68.Value
  688. r298.Value = r78.Value
  689. r308.Value = r88.Value
  690. r318.Value = r98.Value
  691. r328.Value = r108.Value
  692. r338.Value = r118.Value
  693. r458.Value = r448.Value
  694. r368.Value = r148.Value
  695. r378.Value = r158.Value
  696. r388.Value = r168.Value
  697. r398.Value = r178.Value
  698. r408.Value = r188.Value
  699. r418.Value = r198.Value
  700. r428.Value = r208.Value
  701. r438.Value = r218.Value
  702.  
  703. Application.EnableEvents = True
  704.  
  705. End If
  706.  
  707. If Not (Intersect(Target, r469) Is Nothing) Then
  708.  
  709. Application.EnableEvents = False
  710.  
  711. r229.Value = r9.Value
  712. r239.Value = r19.Value
  713. r259.Value = r39.Value
  714. r269.Value = r49.Value
  715. r279.Value = r59.Value
  716. r289.Value = r69.Value
  717. r299.Value = r79.Value
  718. r309.Value = r89.Value
  719. r319.Value = r99.Value
  720. r329.Value = r109.Value
  721. r339.Value = r119.Value
  722. r459.Value = r449.Value
  723. r369.Value = r149.Value
  724. r379.Value = r159.Value
  725. r389.Value = r169.Value
  726. r399.Value = r179.Value
  727. r409.Value = r189.Value
  728. r419.Value = r199.Value
  729. r429.Value = r209.Value
  730. r439.Value = r219.Value
  731.  
  732. Application.EnableEvents = True
  733.  
  734. End If
  735.  
  736. If Not (Intersect(Target, r470) Is Nothing) Then
  737.  
  738. Application.EnableEvents = False
  739.  
  740. r230.Value = r10.Value
  741. r240.Value = r20.Value
  742. r260.Value = r40.Value
  743. r270.Value = r50.Value
  744. r280.Value = r60.Value
  745. r290.Value = r70.Value
  746. r300.Value = r80.Value
  747. r310.Value = r90.Value
  748. r320.Value = r100.Value
  749. r330.Value = r110.Value
  750. r340.Value = r120.Value
  751. r460.Value = r450.Value
  752. r370.Value = r150.Value
  753. r380.Value = r160.Value
  754. r390.Value = r170.Value
  755. r400.Value = r180.Value
  756. r410.Value = r190.Value
  757. r420.Value = r200.Value
  758. r430.Value = r210.Value
  759. r440.Value = r220.Value
  760.  
  761. Application.EnableEvents = True
  762.  
  763. End If
  764.  
  765. End Sub
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
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!