Do not use on any
shared computer
August 30, 2008 03:16am pdt
 
[x]
Attachment Details

Macro works fine locks up when I delete rows????

Zones: Microsoft Excel Spreadsheet Software, Microsoft Applications
I have a workbook with a couple of macros in it. The macros work fine...but when I try and delete a row the workbook locks up and the only thing that I can do is close it out.

I isolated the issue to the following set of code. If I delete this from the workbook I can operate as normal, but I need these calculations.

What am I doing wrong?????????
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
111:
112:
113:
114:
115:
116:
117:
118:
119:
120:
121:
122:
123:
124:
125:
126:
127:
128:
129:
130:
131:
132:
133:
134:
135:
136:
137:
138:
139:
140:
141:
142:
143:
144:
145:
146:
147:
148:
149:
150:
151:
152:
153:
154:
155:
156:
157:
158:
159:
160:
161:
162:
163:
164:
165:
166:
167:
168:
169:
170:
171:
172:
173:
174:
175:
176:
177:
178:
179:
180:
181:
182:
183:
184:
185:
186:
187:
188:
189:
190:
191:
192:
193:
194:
195:
196:
197:
198:
199:
200:
201:
202:
203:
204:
205:
206:
207:
208:
209:
210:
211:
212:
213:
214:
215:
216:
217:
218:
219:
220:
221:
222:
223:
224:
225:
226:
227:
228:
229:
230:
231:
232:
233:
234:
235:
236:
237:
238:
239:
240:
241:
242:
243:
244:
245:
246:
247:
248:
249:
250:
251:
252:
253:
254:
255:
256:
257:
258:
259:
260:
261:
262:
263:
264:
265:
266:
267:
268:
269:
270:
271:
272:
273:
274:
275:
276:
277:
278:
279:
280:
281:
282:
283:
284:
285:
286:
287:
288:
289:
290:
291:
292:
293:
294:
295:
296:
297:
298:
299:
300:
301:
302:
303:
304:
305:
306:
307:
308:
309:
310:
311:
312:
313:
314:
315:
316:
317:
318:
319:
320:
321:
322:
323:
324:
325:
326:
327:
328:
329:
330:
331:
332:
333:
334:
335:
336:
337:
338:
339:
340:
341:
342:
343:
344:
345:
346:
347:
348:
349:
350:
351:
352:
353:
354:
355:
356:
357:
358:
359:
360:
361:
362:
363:
364:
365:
366:
367:
368:
369:
370:
371:
372:
373:
374:
375:
376:
377:
378:
379:
380:
381:
382:
383:
384:
385:
386:
387:
388:
389:
390:
391:
392:
393:
394:
395:
396:
397:
398:
399:
400:
401:
402:
403:
404:
405:
406:
407:
408:
409:
410:
411:
412:
413:
414:
415:
416:
417:
418:
419:
420:
421:
422:
423:
424:
425:
426:
427:
428:
429:
430:
431:
432:
433:
434:
435:
436:
437:
438:
439:
440:
441:
442:
443:
444:
445:
446:
447:
448:
449:
450:
451:
452:
453:
454:
455:
456:
457:
458:
459:
460:
461:
462:
463:
464:
465:
466:
467:
468:
469:
470:
471:
472:
473:
474:
475:
476:
477:
478:
479:
480:
481:
482:
483:
484:
485:
486:
487:
488:
489:
490:
491:
492:
493:
494:
495:
496:
497:
498:
499:
500:
501:
502:
503:
504:
505:
506:
507:
508:
509:
510:
511:
512:
513:
514:
515:
516:
517:
518:
519:
520:
521:
522:
523:
524:
525:
526:
527:
528:
529:
530:
531:
532:
533:
534:
535:
536:
537:
538:
539:
540:
541:
542:
543:
544:
545:
546:
547:
548:
549:
550:

Private Sub Worksheet_Calculate()
 
'Application.Calculation = xlCalculationAutomatic
Application.EnableEvents = False
Application.ScreenUpdating = False
 
'***********************SELF***********************
If Cells(37, 9) = 0 Then Cells(50, 2) = 1
If Cells(37, 9) = 1 Then Cells(50, 2) = 5
If Cells(37, 9) = 2 Then Cells(50, 2) = 9
If Cells(37, 9) = 3 Then Cells(50, 2) = 12
If Cells(37, 9) = 4 Then Cells(50, 2) = 14
If Cells(37, 9) = 5 Then Cells(50, 2) = 16
If Cells(37, 9) = 6 Then Cells(50, 2) = 18
If Cells(37, 9) = 7 Then Cells(50, 2) = 20
If Cells(37, 9) = 8 Then Cells(50, 2) = 22
If Cells(37, 9) = 9 Then Cells(50, 2) = 24
If Cells(37, 9) = 10 Then Cells(50, 2) = 26
If Cells(37, 9) = 11 Then Cells(50, 2) = 28
If Cells(37, 9) = 12 Then Cells(50, 2) = 30
If Cells(37, 9) = 13 Then Cells(50, 2) = 32
If Cells(37, 9) = 14 Then Cells(50, 2) = 34
If Cells(37, 9) = 15 Then Cells(50, 2) = 36
If Cells(37, 9) = 16 Then Cells(50, 2) = 30
If Cells(37, 9) = 17 Then Cells(50, 2) = 40
 
If Cells(36, 9) = 0 Then Cells(50, 3) = 1
If Cells(36, 9) = 1 Then Cells(50, 3) = 5
If Cells(36, 9) = 2 Then Cells(50, 3) = 6
If Cells(36, 9) = 3 Then Cells(50, 3) = 8
If Cells(36, 9) = 4 Then Cells(50, 3) = 9
If Cells(36, 9) = 5 Then Cells(50, 3) = 11
If Cells(36, 9) = 6 Then Cells(50, 3) = 13
If Cells(36, 9) = 7 Then Cells(50, 3) = 15
If Cells(36, 9) = 8 Then Cells(50, 3) = 17
If Cells(36, 9) = 9 Then Cells(50, 3) = 19
If Cells(36, 9) = 10 Then Cells(50, 3) = 21
If Cells(36, 9) = 11 Then Cells(50, 3) = 23
If Cells(36, 9) = 12 Then Cells(50, 3) = 25
If Cells(36, 9) = 13 Then Cells(50, 3) = 27
If Cells(36, 9) = 14 Then Cells(50, 3) = 29
If Cells(36, 9) = 15 Then Cells(50, 3) = 31
If Cells(36, 9) = 16 Then Cells(50, 3) = 32
If Cells(36, 9) = 17 Then Cells(50, 3) = 34
If Cells(36, 9) = 18 Then Cells(50, 3) = 36
If Cells(36, 9) = 19 Then Cells(50, 3) = 38
If Cells(36, 9) = 20 Then Cells(50, 3) = 40
 
If Cells(35, 9) = 0 Then Cells(50, 4) = 1
If Cells(35, 9) = 1 Then Cells(50, 4) = 3
If Cells(35, 9) = 2 Then Cells(50, 4) = 5
If Cells(35, 9) = 3 Then Cells(50, 4) = 8
If Cells(35, 9) = 4 Then Cells(50, 4) = 9
If Cells(35, 9) = 5 Then Cells(50, 4) = 11
If Cells(35, 9) = 6 Then Cells(50, 4) = 12
If Cells(35, 9) = 7 Then Cells(50, 4) = 15
If Cells(35, 9) = 8 Then Cells(50, 4) = 17
If Cells(35, 9) = 9 Then Cells(50, 4) = 19
If Cells(35, 9) = 10 Then Cells(50, 4) = 20
If Cells(35, 9) = 11 Then Cells(50, 4) = 22
If Cells(35, 9) = 12 Then Cells(50, 4) = 24
If Cells(35, 9) = 13 Then Cells(50, 4) = 26
If Cells(35, 9) = 14 Then Cells(50, 4) = 28
If Cells(35, 9) = 15 Then Cells(50, 4) = 30
If Cells(35, 9) = 16 Then Cells(50, 4) = 32
 
If Cells(34, 9) = 0 Then Cells(50, 5) = 1
If Cells(34, 9) = 1 Then Cells(50, 5) = 3
If Cells(34, 9) = 2 Then Cells(50, 5) = 4
If Cells(34, 9) = 3 Then Cells(50, 5) = 5
If Cells(34, 9) = 4 Then Cells(50, 5) = 7
If Cells(34, 9) = 5 Then Cells(50, 5) = 8
If Cells(34, 9) = 6 Then Cells(50, 5) = 9
If Cells(34, 9) = 7 Then Cells(50, 5) = 11
If Cells(34, 9) = 8 Then Cells(50, 5) = 12
If Cells(34, 9) = 9 Then Cells(50, 5) = 13
If Cells(34, 9) = 10 Then Cells(50, 5) = 14
If Cells(34, 9) = 11 Then Cells(50, 5) = 15
If Cells(34, 9) = 12 Then Cells(50, 5) = 16
If Cells(34, 9) = 13 Then Cells(50, 5) = 17
If Cells(34, 9) = 14 Then Cells(50, 5) = 18
If Cells(34, 9) = 15 Then Cells(50, 5) = 19
If Cells(34, 9) = 16 Then Cells(50, 5) = 20
If Cells(34, 9) = 17 Then Cells(50, 5) = 21
If Cells(34, 9) = 18 Then Cells(50, 5) = 22
If Cells(34, 9) = 19 Then Cells(50, 5) = 23
If Cells(34, 9) = 20 Then Cells(50, 5) = 24
If Cells(34, 9) = 21 Then Cells(50, 5) = 25
If Cells(34, 9) = 22 Then Cells(50, 5) = 27
If Cells(34, 9) = 23 Then Cells(50, 5) = 28
If Cells(34, 9) = 24 Then Cells(50, 5) = 29
If Cells(34, 9) = 25 Then Cells(50, 5) = 30
If Cells(34, 9) = 26 Then Cells(50, 5) = 31
If Cells(34, 9) = 27 Then Cells(50, 5) = 32
If Cells(34, 9) = 28 Then Cells(50, 5) = 33
If Cells(34, 9) = 29 Then Cells(50, 5) = 34
If Cells(34, 9) = 30 Then Cells(50, 5) = 35
If Cells(34, 9) = 31 Then Cells(50, 5) = 36
If Cells(34, 9) = 32 Then Cells(50, 5) = 37
If Cells(34, 9) = 33 Then Cells(50, 5) = 38
 
'**********************SELF CONCEPT************************
If Cells(37, 10) = 0 Then Cells(51, 2) = 0
If Cells(37, 10) = 1 Then Cells(51, 2) = 3
If Cells(37, 10) = 2 Then Cells(51, 2) = 9
If Cells(37, 10) = 3 Then Cells(51, 2) = 12
If Cells(37, 10) = 4 Then Cells(51, 2) = 14
If Cells(37, 10) = 5 Then Cells(51, 2) = 16
If Cells(37, 10) = 6 Then Cells(51, 2) = 18
If Cells(37, 10) = 7 Then Cells(51, 2) = 20
If Cells(37, 10) = 8 Then Cells(51, 2) = 22
If Cells(37, 10) = 9 Then Cells(51, 2) = 24
If Cells(37, 10) = 10 Then Cells(51, 2) = 26
If Cells(37, 10) = 11 Then Cells(51, 2) = 28
If Cells(37, 10) = 12 Then Cells(51, 2) = 30
If Cells(37, 10) = 13 Then Cells(51, 2) = 32
If Cells(37, 10) = 14 Then Cells(51, 2) = 34
If Cells(37, 10) = 15 Then Cells(51, 2) = 36
If Cells(37, 10) = 16 Then Cells(51, 2) = 38
If Cells(37, 10) = 17 Then Cells(51, 2) = 41
 
If Cells(36, 10) = 0 Then Cells(51, 3) = 0
If Cells(36, 10) = 1 Then Cells(51, 3) = 3
If Cells(36, 10) = 2 Then Cells(51, 3) = 5
If Cells(36, 10) = 3 Then Cells(51, 3) = 7
If Cells(36, 10) = 4 Then Cells(51, 3) = 9
If Cells(36, 10) = 5 Then Cells(51, 3) = 11
If Cells(36, 10) = 6 Then Cells(51, 3) = 13
If Cells(36, 10) = 7 Then Cells(51, 3) = 15
If Cells(36, 10) = 8 Then Cells(51, 3) = 17
If Cells(36, 10) = 9 Then Cells(51, 3) = 19
If Cells(36, 10) = 10 Then Cells(51, 3) = 21
If Cells(36, 10) = 11 Then Cells(51, 3) = 23
If Cells(36, 10) = 12 Then Cells(51, 3) = 25
If Cells(36, 10) = 13 Then Cells(51, 3) = 27
If Cells(36, 10) = 14 Then Cells(51, 3) = 29
If Cells(36, 10) = 15 Then Cells(51, 3) = 31
If Cells(36, 10) = 16 Then Cells(51, 3) = 33
If Cells(36, 10) = 17 Then Cells(51, 3) = 35
If Cells(36, 10) = 18 Then Cells(51, 3) = 37
If Cells(36, 10) = 19 Then Cells(51, 3) = 39
If Cells(36, 10) = 20 Then Cells(51, 3) = 41
 
If Cells(35, 10) = 0 Then Cells(51, 4) = 0
If Cells(35, 10) = 1 Then Cells(51, 4) = 1
If Cells(35, 10) = 2 Then Cells(51, 4) = 5
If Cells(35, 10) = 3 Then Cells(51, 4) = 8
If Cells(35, 10) = 4 Then Cells(51, 4) = 11
If Cells(35, 10) = 5 Then Cells(51, 4) = 14
If Cells(35, 10) = 6 Then Cells(51, 4) = 16
If Cells(35, 10) = 7 Then Cells(51, 4) = 19
If Cells(35, 10) = 8 Then Cells(51, 4) = 22
If Cells(35, 10) = 9 Then Cells(51, 4) = 25
If Cells(35, 10) = 10 Then Cells(51, 4) = 28
If Cells(35, 10) = 11 Then Cells(51, 4) = 31
If Cells(35, 10) = 12 Then Cells(51, 4) = 33
 
If Cells(34, 10) = 0 Then Cells(51, 5) = 0
If Cells(34, 10) = 1 Then Cells(51, 5) = 1
If Cells(34, 10) = 2 Then Cells(51, 5) = 3
If Cells(34, 10) = 3 Then Cells(51, 5) = 5
If Cells(34, 10) = 4 Then Cells(51, 5) = 7
If Cells(34, 10) = 5 Then Cells(51, 5) = 8
If Cells(34, 10) = 6 Then Cells(51, 5) = 9
If Cells(34, 10) = 7 Then Cells(51, 5) = 11
If Cells(34, 10) = 8 Then Cells(51, 5) = 12
If Cells(34, 10) = 9 Then Cells(51, 5) = 13
If Cells(34, 10) = 10 Then Cells(51, 5) = 14
If Cells(34, 10) = 11 Then Cells(51, 5) = 15
If Cells(34, 10) = 12 Then Cells(51, 5) = 16
If Cells(34, 10) = 13 Then Cells(51, 5) = 17
If Cells(34, 10) = 14 Then Cells(51, 5) = 18
If Cells(34, 10) = 15 Then Cells(51, 5) = 19
If Cells(34, 10) = 16 Then Cells(51, 5) = 20
If Cells(34, 10) = 17 Then Cells(51, 5) = 21
If Cells(34, 10) = 18 Then Cells(51, 5) = 22
If Cells(34, 10) = 19 Then Cells(51, 5) = 23
If Cells(34, 10) = 20 Then Cells(51, 5) = 24
If Cells(34, 10) = 21 Then Cells(51, 5) = 25
If Cells(34, 10) = 22 Then Cells(51, 5) = 27
If Cells(34, 10) = 23 Then Cells(51, 5) = 28
If Cells(34, 10) = 24 Then Cells(51, 5) = 29
If Cells(34, 10) = 25 Then Cells(51, 5) = 30
If Cells(34, 10) = 26 Then Cells(51, 5) = 31
If Cells(34, 10) = 27 Then Cells(51, 5) = 32
If Cells(34, 10) = 28 Then Cells(51, 5) = 33
If Cells(34, 10) = 29 Then Cells(51, 5) = 34
If Cells(34, 10) = 30 Then Cells(51, 5) = 35
If Cells(34, 10) = 31 Then Cells(51, 5) = 36
If Cells(34, 10) = 32 Then Cells(51, 5) = 37
If Cells(34, 10) = 33 Then Cells(51, 5) = 38
 
'**********************SYNTHESIS************************
If Cells(37, 11) = 0 Then Cells(52, 2) = 0
If Cells(37, 11) = 1 Then Cells(52, 2) = 4
If Cells(37, 11) = 2 Then Cells(52, 2) = 7
If Cells(37, 11) = 3 Then Cells(52, 2) = 8
If Cells(37, 11) = 4 Then Cells(52, 2) = 9
If Cells(37, 11) = 5 Then Cells(52, 2) = 11
If Cells(37, 11) = 6 Then Cells(52, 2) = 12
If Cells(37, 11) = 7 Then Cells(52, 2) = 13
If Cells(37, 11) = 8 Then Cells(52, 2) = 14
If Cells(37, 11) = 9 Then Cells(52, 2) = 15
If Cells(37, 11) = 10 Then Cells(52, 2) = 16
If Cells(37, 11) = 11 Then Cells(52, 2) = 17
If Cells(37, 11) = 12 Then Cells(52, 2) = 18
If Cells(37, 11) = 13 Then Cells(52, 2) = 19
If Cells(37, 11) = 14 Then Cells(52, 2) = 20
If Cells(37, 11) = 15 Then Cells(52, 2) = 21
If Cells(37, 11) = 16 Then Cells(52, 2) = 22
If Cells(37, 11) = 17 Then Cells(52, 2) = 23
If Cells(37, 11) = 18 Then Cells(52, 2) = 24
If Cells(37, 11) = 19 Then Cells(52, 2) = 25
If Cells(37, 11) = 20 Then Cells(52, 2) = 26
If Cells(37, 11) = 21 Then Cells(52, 2) = 27
If Cells(37, 11) = 22 Then Cells(52, 2) = 28
If Cells(37, 11) = 23 Then Cells(52, 2) = 29
If Cells(37, 11) = 24 Then Cells(52, 2) = 30
If Cells(37, 11) = 25 Then Cells(52, 2) = 31
If Cells(37, 11) = 26 Then Cells(52, 2) = 30
If Cells(37, 11) = 27 Then Cells(52, 2) = 33
If Cells(37, 11) = 28 Then Cells(52, 2) = 34
If Cells(37, 11) = 29 Then Cells(52, 2) = 35
If Cells(37, 11) = 30 Then Cells(52, 2) = 36
If Cells(37, 11) = 31 Then Cells(52, 2) = 37
If Cells(37, 11) = 32 Then Cells(52, 2) = 39
If Cells(37, 11) = 33 Then Cells(52, 2) = 40
If Cells(37, 11) = 34 Then Cells(52, 2) = 41
 
If Cells(36, 11) = 0 Then Cells(52, 3) = 0
If Cells(36, 11) = 1 Then Cells(52, 3) = 4
If Cells(36, 11) = 2 Then Cells(52, 3) = 5
If Cells(36, 11) = 3 Then Cells(52, 3) = 6
If Cells(36, 11) = 4 Then Cells(52, 3) = 7
If Cells(36, 11) = 5 Then Cells(52, 3) = 8
If Cells(36, 11) = 6 Then Cells(52, 3) = 9
If Cells(36, 11) = 8 Then Cells(52, 3) = 10
If Cells(36, 11) = 9 Then Cells(52, 3) = 11
If Cells(36, 11) = 10 Then Cells(52, 3) = 12
If Cells(36, 11) = 11 Then Cells(52, 3) = 13
If Cells(36, 11) = 12 Then Cells(52, 3) = 14
If Cells(36, 11) = 13 Then Cells(52, 3) = 15
If Cells(36, 11) = 14 Then Cells(52, 3) = 16
If Cells(36, 11) = 15 Then Cells(52, 3) = 17
If Cells(36, 11) = 16 Then Cells(52, 3) = 18
If Cells(36, 11) = 17 Then Cells(52, 3) = 19
If Cells(36, 11) = 18 Then Cells(52, 3) = 20
If Cells(36, 11) = 19 Then Cells(52, 3) = 21
If Cells(36, 11) = 20 Then Cells(52, 3) = 22
If Cells(36, 11) = 21 Then Cells(52, 3) = 23
If Cells(36, 11) = 22 Then Cells(52, 3) = 24
If Cells(36, 11) = 23 Then Cells(52, 3) = 25
If Cells(36, 11) = 24 Then Cells(52, 3) = 26
If Cells(36, 11) = 25 Then Cells(52, 3) = 27
If Cells(36, 11) = 26 Then Cells(52, 3) = 28
If Cells(36, 11) = 27 Then Cells(52, 3) = 29
If Cells(36, 11) = 28 Then Cells(52, 3) = 30
If Cells(36, 11) = 29 Then Cells(52, 3) = 31
If Cells(36, 11) = 30 Then Cells(52, 3) = 32
If Cells(36, 11) = 32 Then Cells(52, 3) = 33
If Cells(36, 11) = 33 Then Cells(52, 3) = 34
If Cells(36, 11) = 34 Then Cells(52, 3) = 35
If Cells(36, 11) = 35 Then Cells(52, 3) = 36
If Cells(36, 11) = 36 Then Cells(52, 3) = 37
If Cells(36, 11) = 37 Then Cells(52, 3) = 38
If Cells(36, 11) = 38 Then Cells(52, 3) = 39
If Cells(36, 11) = 39 Then Cells(52, 3) = 40
If Cells(36, 11) = 40 Then Cells(52, 3) = 41
 
If Cells(35, 11) = 0 Then Cells(52, 4) = 0
If Cells(35, 11) = 1 Then Cells(52, 4) = 1
If Cells(35, 11) = 2 Then Cells(52, 4) = 2
If Cells(35, 11) = 3 Then Cells(52, 4) = 3
If Cells(35, 11) = 4 Then Cells(52, 4) = 4
If Cells(35, 11) = 5 Then Cells(52, 4) = 5
If Cells(35, 11) = 6 Then Cells(52, 4) = 6
If Cells(35, 11) = 7 Then Cells(52, 4) = 7
If Cells(35, 11) = 8 Then Cells(52, 4) = 8
If Cells(35, 11) = 9 Then Cells(52, 4) = 10
If Cells(35, 11) = 10 Then Cells(52, 4) = 11
If Cells(35, 11) = 11 Then Cells(52, 4) = 12
If Cells(35, 11) = 12 Then Cells(52, 4) = 14
If Cells(35, 11) = 13 Then Cells(52, 4) = 15
If Cells(35, 11) = 14 Then Cells(52, 4) = 16
If Cells(35, 11) = 15 Then Cells(52, 4) = 17
If Cells(35, 11) = 16 Then Cells(52, 4) = 18
If Cells(35, 11) = 17 Then Cells(52, 4) = 19
If Cells(35, 11) = 18 Then Cells(52, 4) = 21
If Cells(35, 11) = 19 Then Cells(52, 4) = 22
If Cells(35, 11) = 20 Then Cells(52, 4) = 23
If Cells(35, 11) = 21 Then Cells(52, 4) = 25
If Cells(35, 11) = 22 Then Cells(52, 4) = 27
If Cells(35, 11) = 23 Then Cells(52, 4) = 28
If Cells(35, 11) = 24 Then Cells(52, 4) = 29
If Cells(35, 11) = 25 Then Cells(52, 4) = 30
If Cells(35, 11) = 26 Then Cells(52, 4) = 31
If Cells(35, 11) = 27 Then Cells(52, 4) = 32
If Cells(35, 11) = 28 Then Cells(52, 4) = 33
 
If Cells(34, 11) = 0 Then Cells(52, 5) = 0
If Cells(34, 11) = 1 Then Cells(52, 5) = 1
If Cells(34, 11) = 2 Then Cells(52, 5) = 2
If Cells(34, 11) = 3 Then Cells(52, 5) = 3
If Cells(34, 11) = 4 Then Cells(52, 5) = 4
If Cells(34, 11) = 6 Then Cells(52, 5) = 5
If Cells(34, 11) >= 7 And Cells(43, 5) <= 8 Then Cells(52, 5) = 6
If Cells(34, 11) >= 9 And Cells(43, 5) <= 10 Then Cells(52, 5) = 7
If Cells(34, 11) >= 11 And Cells(43, 5) <= 12 Then Cells(52, 5) = 8
If Cells(34, 11) = 13 Then Cells(52, 5) = 9
If Cells(34, 11) = 14 Then Cells(52, 5) = 10
If Cells(34, 11) >= 15 And Cells(43, 5) <= 16 Then Cells(52, 5) = 11
If Cells(34, 11) = 17 Then Cells(52, 5) = 12
If Cells(34, 11) >= 18 And Cells(43, 5) <= 20 Then Cells(52, 5) = 13
If Cells(34, 11) = 21 Then Cells(52, 5) = 14
If Cells(34, 11) = 22 Then Cells(52, 5) = 15
If Cells(34, 11) >= 23 And Cells(43, 5) <= 24 Then Cells(52, 5) = 16
If Cells(34, 11) >= 25 And Cells(43, 5) <= 26 Then Cells(52, 5) = 17
If Cells(34, 11) >= 27 And Cells(43, 5) <= 28 Then Cells(52, 5) = 18
If Cells(34, 11) >= 29 And Cells(43, 5) <= 30 Then Cells(52, 5) = 19
If Cells(34, 11) >= 31 And Cells(43, 5) <= 32 Then Cells(52, 5) = 20
If Cells(34, 11) >= 33 And Cells(43, 5) <= 34 Then Cells(52, 5) = 21
If Cells(34, 11) >= 35 And Cells(43, 5) <= 36 Then Cells(52, 5) = 22
If Cells(34, 11) >= 37 And Cells(43, 5) <= 38 Then Cells(52, 5) = 23
If Cells(34, 11) >= 39 And Cells(43, 5) <= 40 Then Cells(52, 5) = 24
If Cells(34, 11) >= 41 And Cells(43, 5) <= 42 Then Cells(52, 5) = 25
If Cells(34, 11) >= 43 And Cells(43, 5) <= 44 Then Cells(52, 5) = 26
If Cells(34, 11) >= 45 And Cells(43, 5) <= 46 Then Cells(52, 5) = 27
If Cells(34, 11) = 47 Then Cells(52, 5) = 28
If Cells(34, 11) >= 48 And Cells(43, 5) <= 49 Then Cells(52, 5) = 29
If Cells(34, 11) >= 50 And Cells(43, 5) <= 51 Then Cells(52, 5) = 30
If Cells(34, 11) >= 52 And Cells(43, 5) <= 53 Then Cells(52, 5) = 31
If Cells(34, 11) >= 54 And Cells(43, 5) <= 55 Then Cells(52, 5) = 32
If Cells(34, 11) >= 56 And Cells(43, 5) <= 57 Then Cells(52, 5) = 33
If Cells(34, 11) >= 58 And Cells(43, 5) <= 59 Then Cells(52, 5) = 34
If Cells(34, 11) >= 60 And Cells(43, 5) <= 61 Then Cells(52, 5) = 35
If Cells(34, 11) >= 62 And Cells(43, 5) <= 63 Then Cells(52, 5) = 36
If Cells(34, 11) >= 64 And Cells(43, 5) <= 65 Then Cells(52, 5) = 37
If Cells(34, 11) = 66 Then Cells(52, 5) = 38
 
'**********************SYNTHESIS E************************
If Cells(32, 11) = 0 Then Cells(52, 7) = 0
If Cells(32, 11) = 1 Then Cells(52, 7) = 5
If Cells(32, 11) = 2 Then Cells(52, 7) = 6
If Cells(32, 11) = 3 Then Cells(52, 7) = 7
If Cells(32, 11) = 4 Then Cells(52, 7) = 8
If Cells(32, 11) = 5 Then Cells(52, 7) = 9
If Cells(32, 11) = 6 Then Cells(52, 7) = 10
If Cells(32, 11) = 7 Then Cells(52, 7) = 11
If Cells(32, 11) = 8 Then Cells(52, 7) = 12
If Cells(32, 11) = 9 Then Cells(52, 7) = 13
If Cells(32, 11) = 10 Then Cells(52, 7) = 14
If Cells(32, 11) = 11 Then Cells(52, 7) = 15
If Cells(32, 11) = 12 Then Cells(52, 7) = 16
If Cells(32, 11) = 13 Then Cells(52, 7) = 17
If Cells(32, 11) = 14 Then Cells(52, 7) = 18
If Cells(32, 11) = 15 Then Cells(52, 7) = 19
If Cells(32, 11) = 16 Then Cells(52, 7) = 20
If Cells(32, 11) = 17 Then Cells(52, 7) = 21
If Cells(32, 11) = 18 Then Cells(52, 7) = 22
If Cells(32, 11) = 19 Then Cells(52, 7) = 23
If Cells(32, 11) = 20 Then Cells(52, 7) = 24
If Cells(32, 11) = 21 Then Cells(52, 7) = 25
If Cells(32, 11) = 22 Then Cells(52, 7) = 26
If Cells(32, 11) = 23 Then Cells(52, 7) = 27
If Cells(32, 11) = 24 Then Cells(52, 7) = 28
If Cells(32, 11) = 25 Then Cells(52, 7) = 29
If Cells(32, 11) = 26 Then Cells(52, 7) = 30
If Cells(32, 11) >= 27 And Cells(52, 7) <= 28 Then Cells(52, 7) = 31
If Cells(32, 11) >= 29 And Cells(52, 7) <= 31 Then Cells(52, 7) = 32
If Cells(32, 11) = 32 Then Cells(52, 7) = 33
If Cells(32, 11) = 33 Then Cells(52, 7) = 34
If Cells(32, 11) = 34 Then Cells(52, 7) = 35
If Cells(32, 11) >= 35 And Cells(52, 7) <= 36 Then Cells(52, 7) = 36
If Cells(32, 11) = 37 Then Cells(52, 7) = 37
 
 
'**********************SYNTHESIS E************************
If Cells(32, 11) = 0 Then Cells(52, 7) = 0
If Cells(32, 11) = 1 Then Cells(52, 7) = 5
If Cells(32, 11) = 2 Then Cells(52, 7) = 6
If Cells(32, 11) = 3 Then Cells(52, 7) = 7
If Cells(32, 11) = 4 Then Cells(52, 7) = 8
If Cells(32, 11) = 5 Then Cells(52, 7) = 9
If Cells(32, 11) = 6 Then Cells(52, 7) = 10
If Cells(32, 11) = 7 Then Cells(52, 7) = 11
If Cells(32, 11) = 8 Then Cells(52, 7) = 12
If Cells(32, 11) = 9 Then Cells(52, 7) = 13
If Cells(32, 11) = 10 Then Cells(52, 7) = 14
If Cells(32, 11) = 11 Then Cells(52, 7) = 15
If Cells(32, 11) = 12 Then Cells(52, 7) = 16
If Cells(32, 11) = 13 Then Cells(52, 7) = 17
If Cells(32, 11) = 14 Then Cells(52, 7) = 18
If Cells(32, 11) = 15 Then Cells(52, 7) = 19
If Cells(32, 11) = 16 Then Cells(52, 7) = 20
If Cells(32, 11) = 17 Then Cells(52, 7) = 21
If Cells(32, 11) = 18 Then Cells(52, 7) = 22
If Cells(32, 11) = 19 Then Cells(52, 7) = 23
If Cells(32, 11) = 20 Then Cells(52, 7) = 24
If Cells(32, 11) = 21 Then Cells(52, 7) = 25
If Cells(32, 11) = 22 Then Cells(52, 7) = 26
If Cells(32, 11) = 23 Then Cells(52, 7) = 27
If Cells(32, 11) = 24 Then Cells(52, 7) = 28
If Cells(32, 11) = 25 Then Cells(52, 7) = 29
If Cells(32, 11) = 26 Then Cells(52, 7) = 30
If Cells(32, 11) >= 27 And Cells(52, 7) <= 28 Then Cells(52, 7) = 31
If Cells(32, 11) >= 29 And Cells(52, 7) <= 31 Then Cells(52, 7) = 32
If Cells(32, 11) = 32 Then Cells(52, 7) = 33
If Cells(32, 11) = 33 Then Cells(52, 7) = 34
If Cells(32, 11) = 34 Then Cells(52, 7) = 35
If Cells(32, 11) >= 35 And Cells(52, 7) <= 36 Then Cells(52, 7) = 36
If Cells(32, 11) = 37 Then Cells(52, 7) = 37
 
 
 
 
 
 
 
'**********************M1 CONVERSION************************
If Cells(33, 9) = 0 Then Cells(50, 6) = 1
If Cells(33, 9) >= 1 And M1 <= 2 Then Cells(50, 6) = 2
If Cells(33, 9) = 3 Then Cells(50, 6) = 3
If Cells(33, 9) = 4 Then Cells(50, 6) = 4
If Cells(33, 9) >= 5 And M1 <= 6 Then Cells(50, 6) = 5
If Cells(33, 9) >= 7 And M1 <= 9 Then Cells(50, 6) = 6
If Cells(33, 9) >= 10 And M1 <= 12 Then Cells(50, 6) = 7
If Cells(33, 9) >= 13 And M1 <= 14 Then Cells(50, 6) = 8
If Cells(33, 9) >= 15 And M1 <= 16 Then Cells(50, 6) = 9
If Cells(33, 9) >= 17 And M1 <= 18 Then Cells(50, 6) = 10
If Cells(33, 9) >= 19 And M1 <= 20 Then Cells(50, 6) = 11
If Cells(33, 9) >= 21 And M1 <= 22 Then Cells(50, 6) = 12
If Cells(33, 9) >= 23 And M1 <= 24 Then Cells(50, 6) = 13
If Cells(33, 9) >= 25 And M1 <= 27 Then Cells(50, 6) = 14
If Cells(33, 9) >= 28 And M1 <= 29 Then Cells(50, 6) = 15
If Cells(33, 9) >= 30 And M1 <= 32 Then Cells(50, 6) = 16
If Cells(33, 9) >= 33 And M1 <= 35 Then Cells(50, 6) = 17
If Cells(33, 9) >= 36 And M1 <= 37 Then Cells(50, 6) = 18
If Cells(33, 9) >= 38 And M1 <= 40 Then Cells(50, 6) = 19
If Cells(33, 9) >= 41 And M1 <= 43 Then Cells(50, 6) = 20
If Cells(33, 9) >= 44 And M1 <= 45 Then Cells(50, 6) = 21
If Cells(33, 9) >= 46 And M1 <= 48 Then Cells(50, 6) = 22
If Cells(33, 9) >= 49 And M1 <= 50 Then Cells(50, 6) = 23
If Cells(33, 9) >= 51 And M1 <= 52 Then Cells(50, 6) = 24
If Cells(33, 9) >= 53 And M1 <= 55 Then Cells(50, 6) = 25
If Cells(33, 9) >= 56 And M1 <= 58 Then Cells(50, 6) = 26
If Cells(33, 9) >= 59 And M1 <= 60 Then Cells(50, 6) = 27
If Cells(33, 9) >= 61 And M1 <= 62 Then Cells(50, 6) = 28
If Cells(33, 9) >= 63 And M1 <= 65 Then Cells(50, 6) = 29
If Cells(33, 9) >= 66 And M1 <= 67 Then Cells(50, 6) = 30
If Cells(33, 9) >= 68 And M1 <= 70 Then Cells(50, 6) = 31
If Cells(33, 9) >= 71 And M1 <= 73 Then Cells(50, 6) = 32
If Cells(33, 9) >= 74 And M1 <= 75 Then Cells(50, 6) = 33
If Cells(33, 9) >= 76 And M1 <= 78 Then Cells(50, 6) = 34
If Cells(33, 9) >= 79 And M1 <= 80 Then Cells(50, 6) = 35
If Cells(33, 9) >= 81 And M1 <= 83 Then Cells(50, 6) = 36
If Cells(33, 9) >= 84 And M1 <= 86 Then Cells(50, 6) = 37
If Cells(33, 9) = 87 Then Cells(50, 6) = 38
 
 
'**********************M2 CONVERSION************************
If Cells(33, 10) = 0 Then Cells(51, 6) = 0
If Cells(33, 10) >= 1 And M2 <= 2 Then Cells(51, 6) = 1
If Cells(33, 10) = 3 Then Cells(51, 6) = 2
If Cells(33, 10) = 4 Then Cells(51, 6) = 3
If Cells(33, 10) = 5 Then Cells(51, 6) = 4
If Cells(33, 10) = 6 Then Cells(51, 6) = 5
If Cells(33, 10) >= 7 And M2 <= 9 Then Cells(51, 6) = 6
If Cells(33, 10) >= 10 And M2 <= 12 Then Cells(51, 6) = 7
If Cells(33, 10) >= 13 And M2 <= 14 Then Cells(51, 6) = 8
If Cells(33, 10) >= 15 And M2 <= 16 Then Cells(51, 6) = 9
If Cells(33, 10) >= 17 And M2 <= 18 Then Cells(51, 6) = 10
If Cells(33, 10) >= 19 And M2 <= 20 Then Cells(51, 6) = 11
If Cells(33, 10) >= 21 And M2 <= 22 Then Cells(51, 6) = 12
If Cells(33, 10) >= 23 And M2 <= 24 Then Cells(51, 6) = 13
If Cells(33, 10) >= 25 And M2 <= 27 Then Cells(51, 6) = 14
If Cells(33, 10) >= 28 And M2 <= 30 Then Cells(51, 6) = 15
If Cells(33, 10) >= 31 And M2 <= 32 Then Cells(51, 6) = 16
If Cells(33, 10) >= 33 And M2 <= 34 Then Cells(51, 6) = 17
If Cells(33, 10) >= 35 And M2 <= 37 Then Cells(51, 6) = 18
If Cells(33, 10) >= 38 And M2 <= 40 Then Cells(51, 6) = 19
If Cells(33, 10) >= 41 And M2 <= 43 Then Cells(51, 6) = 20
If Cells(33, 10) >= 44 And M2 <= 45 Then Cells(51, 6) = 21
If Cells(33, 10) >= 46 And M2 <= 47 Then Cells(51, 6) = 22
If Cells(33, 10) >= 48 And M2 <= 49 Then Cells(51, 6) = 23
If Cells(33, 10) >= 50 And M2 <= 51 Then Cells(51, 6) = 24
If Cells(33, 10) >= 52 And M2 <= 54 Then Cells(51, 6) = 25
If Cells(33, 10) >= 55 And M2 <= 57 Then Cells(51, 6) = 26
If Cells(33, 10) >= 58 And M2 <= 59 Then Cells(51, 6) = 27
If Cells(33, 10) >= 60 And M2 <= 62 Then Cells(51, 6) = 28
If Cells(33, 10) >= 63 And M2 <= 64 Then Cells(51, 6) = 29
If Cells(33, 10) >= 65 And M2 <= 67 Then Cells(51, 6) = 30
If Cells(33, 10) >= 68 And M2 <= 69 Then Cells(51, 6) = 31
If Cells(33, 10) >= 70 And M2 <= 72 Then Cells(51, 6) = 32
If Cells(33, 10) >= 73 And M2 <= 75 Then Cells(51, 6) = 33
If Cells(33, 10) >= 76 And M2 <= 77 Then Cells(51, 6) = 34
If Cells(33, 10) >= 78 And M2 <= 80 Then Cells(51, 6) = 35
If Cells(33, 10) >= 81 And M2 <= 83 Then Cells(51, 6) = 36
If Cells(33, 10) >= 84 And M2 <= 85 Then Cells(51, 6) = 37
If Cells(33, 10) = 86 Then Cells(51, 6) = 38
If Cells(33, 10) = 87 Then Cells(51, 6) = 39
 
 
'**********************M3 CONVERSION************************
If Cells(33, 11) = 0 Then Cells(52, 6) = 0
If Cells(33, 11) = 1 Then Cells(52, 6) = 1
If Cells(33, 11) = 2 Then Cells(52, 6) = 2
If Cells(33, 11) >= 3 And M3 <= 4 Then Cells(52, 6) = 3
If Cells(33, 11) >= 5 And M3 <= 6 Then Cells(52, 6) = 4
If Cells(33, 11) >= 7 And M3 <= 10 Then Cells(52, 6) = 5
If Cells(33, 11) >= 11 And M3 <= 16 Then Cells(52, 6) = 6
If Cells(33, 11) >= 15 And M3 <= 16 Then Cells(52, 6) = 7
If Cells(33, 11) >= 17 And M3 <= 20 Then Cells(52, 6) = 8
If Cells(33, 11) >= 21 And M3 <= 24 Then Cells(52, 6) = 9
If Cells(33, 11) >= 25 And M3 <= 28 Then Cells(52, 6) = 10
If Cells(33, 11) >= 29 And M3 <= 34 Then Cells(52, 6) = 11
If Cells(33, 11) >= 35 And M3 <= 38 Then Cells(52, 6) = 12
If Cells(33, 11) >= 39 And M3 <= 43 Then Cells(52, 6) = 13
If Cells(33, 11) >= 44 And M3 <= 48 Then Cells(52, 6) = 14
If Cells(33, 11) >= 49 And M3 <= 53 Then Cells(52, 6) = 15
If Cells(33, 11) >= 54 And M3 <= 58 Then Cells(52, 6) = 16
If Cells(33, 11) >= 59 And M3 <= 64 Then Cells(52, 6) = 17
If Cells(33, 11) >= 65 And M3 <= 70 Then Cells(52, 6) = 18
If Cells(33, 11) >= 71 And M3 <= 75 Then Cells(52, 6) = 19
If Cells(33, 11) >= 76 And M3 <= 80 Then Cells(52, 6) = 20
If Cells(33, 11) >= 81 And M3 <= 85 Then Cells(52, 6) = 21
If Cells(33, 11) >= 86 And M3 <= 91 Then Cells(52, 6) = 22
If Cells(33, 11) >= 92 And M3 <= 96 Then Cells(52, 6) = 23
If Cells(33, 11) >= 97 And M3 <= 100 Then Cells(52, 6) = 24
If Cells(33, 11) >= 101 And M3 <= 105 Then Cells(52, 6) = 25
If Cells(33, 11) >= 106 And M3 <= 110 Then Cells(52, 6) = 26
If Cells(33, 11) >= 111 And M3 <= 115 Then Cells(52, 6) = 27
If Cells(33, 11) >= 116 And M3 <= 120 Then Cells(52, 6) = 28
If Cells(33, 11) >= 121 And M3 <= 125 Then Cells(52, 6) = 29
If Cells(33, 11) >= 126 And M3 <= 130 Then Cells(52, 6) = 30
If Cells(33, 11) >= 131 And M3 <= 135 Then Cells(52, 6) = 31
If Cells(33, 11) >= 136 And M3 <= 141 Then Cells(52, 6) = 32
If Cells(33, 11) >= 142 And M3 <= 146 Then Cells(52, 6) = 33
If Cells(33, 11) >= 147 And M3 <= 154 Then Cells(52, 6) = 34
If Cells(33, 11) >= 156 And M3 <= 161 Then Cells(52, 6) = 35
If Cells(33, 11) >= 162 And M3 <= 167 Then Cells(52, 6) = 36
If Cells(33, 11) >= 168 And M3 <= 172 Then Cells(52, 6) = 37
If Cells(33, 11) >= 173 And M3 <= 174 Then M3conv = 38
 
 
 
'Application.Calculation = xlCalculationAutomatic
Application.EnableEvents = True
 
 
End Sub
Start your free trial to view this solution
[x]
The Solution Rating System

With so many solutions, how can you tell which solutions are most likely to help you and which ones are not? To provide you with a tool to use, we rate our solutions based on various elements that most accurately determine if a solution is a quality solution. To explain what factors affect the solution rating, here are the elements we take into consideration when formulating our solution rating.

  • The Grade of the Solution
  • The Zone Rank of the Expert Providing the Solution
  • The Number of Author and Expert Comments
  • The Number of Experts Contributing
  • The Feedback of the Community

Your Input Matters
Because of the way the system is set up, the most important variable in this equation is you. As a member of Experts Exchange, you are able to cast your vote on the quality of the solutions in regard to how complete, accurate, helpful and easy to understand each solution is. When you provide your feedback, each rating is adjusted accordingly. So, if you see a solution that has a poor rating that you think is a good solution, let us know by rating it. As you do, the rating will be adjusted and will become more accurate for other members of our site.

If you have any suggestions that you would like to make for our rating system, please ask a question in the Suggestions Zone of Community Support.

Thank you!
9.6
Question Stats
Zone: Software
Question Asked By: zyanj
Solution Provided By: patrickab
Participating Experts: 2
Solution Grade: A
Views: 0
Translate:
Loading Advertisement...
 
[+][-]Expert Comment by grendel777
Expert Comment by grendel777:

All comments and solutions are available to Premium Service Members only.

Start your 7-day free trial and see for yourself why Experts Exchange is the easiest and most proven technology resource in the world. Get Started

Already a member? Login to view this solution.

 
 
[+][-]Author Comment by zyanj
Author Comment by zyanj:

All comments and solutions are available to Premium Service Members only.

Start your 7-day free trial and see for yourself why Experts Exchange is the easiest and most proven technology resource in the world. Get Started

Already a member? Login to view this solution.

 
 
[+][-]Expert Comment by grendel777
Expert Comment by grendel777:

All comments and solutions are available to Premium Service Members only.

Start your 7-day free trial and see for yourself why Experts Exchange is the easiest and most proven technology resource in the world. Get Started

Already a member? Login to view this solution.

 
 
[+][-]Accepted Solution by patrickab

Rank: Genius

Accepted Solution by patrickab:

All comments and solutions are available to Premium Service Members only.

Start your 7-day free trial and see for yourself why Experts Exchange is the easiest and most proven technology resource in the world. Get Started

Already a member? Login to view this solution.

 
 
[+][-]Expert Comment by grendel777
Expert Comment by grendel777:

All comments and solutions are available to Premium Service Members only.

Start your 7-day free trial and see for yourself why Experts Exchange is the easiest and most proven technology resource in the world. Get Started

Already a member? Login to view this solution.

 
 
[+][-]Author Comment by zyanj
Author Comment by zyanj:

All comments and solutions are available to Premium Service Members only.

Start your 7-day free trial and see for yourself why Experts Exchange is the easiest and most proven technology resource in the world. Get Started

Already a member? Login to view this solution.

 
 
[+][-]Expert Comment by grendel777
Expert Comment by grendel777:

All comments and solutions are available to Premium Service Members only.

Start your 7-day free trial and see for yourself why Experts Exchange is the easiest and most proven technology resource in the world. Get Started

Already a member? Login to view this solution.

 
 
[+][-]Expert Comment by grendel777
Expert Comment by grendel777:

All comments and solutions are available to Premium Service Members only.

Start your 7-day free trial and see for yourself why Experts Exchange is the easiest and most proven technology resource in the world. Get Started

Already a member? Login to view this solution.

 
 
[+][-]Author Comment by zyanj
Author Comment by zyanj:

All comments and solutions are available to Premium Service Members only.

Start your 7-day free trial and see for yourself why Experts Exchange is the easiest and most proven technology resource in the world. Get Started

Already a member? Login to view this solution.

 
 
[+][-]Expert Comment by grendel777
Expert Comment by grendel777:

All comments and solutions are available to Premium Service Members only.

Start your 7-day free trial and see for yourself why Experts Exchange is the easiest and most proven technology resource in the world. Get Started

Already a member? Login to view this solution.

 
 
[+][-]Expert Comment by patrickab

Rank: Genius

Expert Comment by patrickab:

All comments and solutions are available to Premium Service Members only.

Start your 7-day free trial and see for yourself why Experts Exchange is the easiest and most proven technology resource in the world. Get Started

Already a member? Login to view this solution.

 
 
Loading Advertisement...
20080723-EE-VQP-34 / EE_QW_2_20070628