API tools faq
paste
Advertisement
Guest User

Untitled

a guest
Feb 24th, 2020
112
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 24.44 KB | None | 0 0
raw download clone embed print report
  1.  
  2. SPIRAL CODE
  3.  
  4.  
  5. Private Sub CommandButton1_Click()
  6.  
  7. Call spiralNEXT
  8.  
  9. End Sub
  10.  
  11. Private Sub CommandButton2_Click()
  12.  
  13. ThisWorkbook.Sheets("SPIRALLING DATE").Activate
  14.  
  15. If TPM_ERG.calendartext.value = "1" Then
  16.  
  17. Range("B3").value = ""
  18. Range("B4").value = ""
  19. Range("B5").value = ""
  20.  
  21. TPM_ERG.TextBox194.value = ""
  22. TPM_ERG.TextBox192.value = ""
  23. TPM_ERG.TextBox193.value = ""
  24.  
  25. m_1.value = ""
  26. m_2.value = ""
  27. m_3.value = ""
  28.  
  29. MsgBox "Data Clear", vbInformation
  30.  
  31.  
  32. ElseIf TPM_ERG.calendartext.value = "2" Then
  33.  
  34. Range("C3").value = ""
  35. Range("C4").value = ""
  36. Range("C5").value = ""
  37.  
  38. TPM_ERG.TextBox489.value = ""
  39. TPM_ERG.TextBox490.value = ""
  40. TPM_ERG.TextBox491.value = ""
  41.  
  42. m_1.value = ""
  43. m_2.value = ""
  44. m_3.value = ""
  45.  
  46. MsgBox "Data Clear", vbInformation
  47.  
  48.  
  49. ElseIf TPM_ERG.calendartext.value = "3" Then
  50.  
  51. Range("D3").value = ""
  52. Range("D4").value = ""
  53. Range("D5").value = ""
  54.  
  55. TPM_ERG.TextBox199.value = ""
  56. TPM_ERG.TextBox200.value = ""
  57. TPM_ERG.TextBox198.value = ""
  58.  
  59. m_1.value = ""
  60. m_2.value = ""
  61. m_3.value = ""
  62.  
  63. MsgBox "Data Clear", vbInformation
  64.  
  65.  
  66. ElseIf TPM_ERG.calendartext.value = "4" Then
  67.  
  68. Range("E3").value = ""
  69. Range("E4").value = ""
  70. Range("E5").value = ""
  71.  
  72. TPM_ERG.TextBox202.value = ""
  73. TPM_ERG.TextBox203.value = ""
  74. TPM_ERG.TextBox201.value = ""
  75.  
  76. m_1.value = ""
  77. m_2.value = ""
  78. m_3.value = ""
  79.  
  80. MsgBox "Data Clear", vbInformation
  81.  
  82.  
  83. ElseIf TPM_ERG.calendartext.value = "5" Then
  84.  
  85. Range("F3").value = ""
  86. Range("F4").value = ""
  87. Range("F5").value = ""
  88.  
  89. TPM_ERG.TextBox205.value = ""
  90. TPM_ERG.TextBox206.value = ""
  91. TPM_ERG.TextBox204.value = ""
  92.  
  93. m_1.value = ""
  94. m_2.value = ""
  95. m_3.value = ""
  96.  
  97. MsgBox "Data Clear", vbInformation
  98.  
  99.  
  100. ElseIf TPM_ERG.calendartext.value = "6" Then
  101.  
  102. Range("G3").value = ""
  103. Range("G4").value = ""
  104. Range("G5").value = ""
  105.  
  106. TPM_ERG.TextBox208.value = ""
  107. TPM_ERG.TextBox209.value = ""
  108. TPM_ERG.TextBox207.value = ""
  109.  
  110. m_1.value = ""
  111. m_2.value = ""
  112. m_3.value = ""
  113.  
  114. MsgBox "Data Clear", vbInformation
  115.  
  116.  
  117. ElseIf TPM_ERG.calendartext.value = "7" Then
  118.  
  119. Range("H3").value = ""
  120. Range("H4").value = ""
  121. Range("H5").value = ""
  122.  
  123. TPM_ERG.TextBox211.value = ""
  124. TPM_ERG.TextBox212.value = ""
  125. TPM_ERG.TextBox210.value = ""
  126.  
  127. m_1.value = ""
  128. m_2.value = ""
  129. m_3.value = ""
  130.  
  131. MsgBox "Data Clear", vbInformation
  132.  
  133.  
  134. ElseIf TPM_ERG.calendartext.value = "8" Then
  135.  
  136. Range("I3").value = ""
  137. Range("I4").value = ""
  138. Range("I5").value = ""
  139.  
  140. TPM_ERG.TextBox214.value = ""
  141. TPM_ERG.TextBox215.value = ""
  142. TPM_ERG.TextBox213.value = ""
  143.  
  144. m_1.value = ""
  145. m_2.value = ""
  146. m_3.value = ""
  147.  
  148. MsgBox "Data Clear", vbInformation
  149.  
  150.  
  151. ElseIf TPM_ERG.calendartext.value = "9" Then
  152.  
  153. Range("J3").value = ""
  154. Range("J4").value = ""
  155. Range("J5").value = ""
  156.  
  157. TPM_ERG.TextBox217.value = ""
  158. TPM_ERG.TextBox218.value = ""
  159. TPM_ERG.TextBox216.value = ""
  160.  
  161. m_1.value = ""
  162. m_2.value = ""
  163. m_3.value = ""
  164.  
  165. MsgBox "Data Clear", vbInformation
  166.  
  167.  
  168. ElseIf TPM_ERG.calendartext.value = "10" Then
  169.  
  170. Range("K3").value = ""
  171. Range("K4").value = ""
  172. Range("K5").value = ""
  173.  
  174. TPM_ERG.TextBox190.value = ""
  175. TPM_ERG.TextBox191.value = ""
  176. TPM_ERG.TextBox189.value = ""
  177.  
  178. m_1.value = ""
  179. m_2.value = ""
  180. m_3.value = ""
  181.  
  182. MsgBox "Data Clear", vbInformation
  183.  
  184. ElseIf TPM_ERG.calendartext.value = "11" Then
  185.  
  186. Range("B8").value = ""
  187. Range("B9").value = ""
  188. Range("B10").value = ""
  189.  
  190. TPM_ERG.spiraltextboxpage2_1.value = ""
  191. TPM_ERG.spiraltextboxpage2_2.value = ""
  192. TPM_ERG.spiraltextboxpage2_3.value = ""
  193.  
  194. m_1.value = ""
  195. m_2.value = ""
  196. m_3.value = ""
  197.  
  198. MsgBox "Data Clear", vbInformation
  199.  
  200.  
  201. ElseIf TPM_ERG.calendartext.value = "12" Then
  202.  
  203. Range("C8").value = ""
  204. Range("C9").value = ""
  205. Range("C10").value = ""
  206.  
  207. TPM_ERG.spiraltextboxpage2_4.value = ""
  208. TPM_ERG.spiraltextboxpage2_5.value = ""
  209. TPM_ERG.spiraltextboxpage2_6.value = ""
  210.  
  211. m_1.value = ""
  212. m_2.value = ""
  213. m_3.value = ""
  214.  
  215. MsgBox "Data Clear", vbInformation
  216.  
  217.  
  218. ElseIf TPM_ERG.calendartext.value = "13" Then
  219.  
  220. Range("D8").value = ""
  221. Range("D9").value = ""
  222. Range("D10").value = ""
  223.  
  224. TPM_ERG.spiraltextboxpage2_7.value = ""
  225. TPM_ERG.spiraltextboxpage2_8.value = ""
  226. TPM_ERG.spiraltextboxpage2_9.value = ""
  227.  
  228. m_1.value = ""
  229. m_2.value = ""
  230. m_3.value = ""
  231.  
  232. MsgBox "Data Clear", vbInformation
  233.  
  234.  
  235. ElseIf TPM_ERG.calendartext.value = "14" Then
  236.  
  237. Range("E8").value = ""
  238. Range("E9").value = ""
  239. Range("E10").value = ""
  240.  
  241. TPM_ERG.spiraltextboxpage2_10.value = ""
  242. TPM_ERG.spiraltextboxpage2_11.value = ""
  243. TPM_ERG.spiraltextboxpage2_12.value = ""
  244.  
  245. m_1.value = ""
  246. m_2.value = ""
  247. m_3.value = ""
  248.  
  249. MsgBox "Data Clear", vbInformation
  250.  
  251.  
  252. ElseIf TPM_ERG.calendartext.value = "15" Then
  253.  
  254. Range("F8").value = ""
  255. Range("F9").value = ""
  256. Range("F10").value = ""
  257.  
  258. TPM_ERG.spiraltextboxpage2_13.value = ""
  259. TPM_ERG.spiraltextboxpage2_14.value = ""
  260. TPM_ERG.spiraltextboxpage2_15.value = ""
  261.  
  262. m_1.value = ""
  263. m_2.value = ""
  264. m_3.value = ""
  265.  
  266. MsgBox "Data Clear", vbInformation
  267.  
  268.  
  269. ElseIf TPM_ERG.calendartext.value = "16" Then
  270.  
  271. Range("G8").value = ""
  272. Range("G9").value = ""
  273. Range("G10").value = ""
  274.  
  275. TPM_ERG.spiraltextboxpage2_16.value = ""
  276. TPM_ERG.spiraltextboxpage2_17.value = ""
  277. TPM_ERG.spiraltextboxpage2_18.value = ""
  278.  
  279. m_1.value = ""
  280. m_2.value = ""
  281. m_3.value = ""
  282.  
  283. MsgBox "Data Clear", vbInformation
  284.  
  285.  
  286. ElseIf TPM_ERG.calendartext.value = "17" Then
  287.  
  288. Range("H8").value = ""
  289. Range("H9").value = ""
  290. Range("H10").value = ""
  291.  
  292. TPM_ERG.spiraltextboxpage2_19.value = ""
  293. TPM_ERG.spiraltextboxpage2_20.value = ""
  294. TPM_ERG.spiraltextboxpage2_21.value = ""
  295.  
  296. m_1.value = ""
  297. m_2.value = ""
  298. m_3.value = ""
  299.  
  300. MsgBox "Data Clear", vbInformation
  301.  
  302.  
  303. ElseIf TPM_ERG.calendartext.value = "18" Then
  304.  
  305. Range("I8").value = ""
  306. Range("I9").value = ""
  307. Range("I10").value = ""
  308.  
  309. TPM_ERG.spiraltextboxpage2_22.value = ""
  310. TPM_ERG.spiraltextboxpage2_23.value = ""
  311. TPM_ERG.spiraltextboxpage2_24.value = ""
  312.  
  313. m_1.value = ""
  314. m_2.value = ""
  315. m_3.value = ""
  316.  
  317. MsgBox "Data Clear", vbInformation
  318.  
  319.  
  320. ElseIf TPM_ERG.calendartext.value = "19" Then
  321.  
  322. Range("J8").value = ""
  323. Range("J9").value = ""
  324. Range("J10").value = ""
  325.  
  326. TPM_ERG.spiraltextboxpage2_25.value = ""
  327. TPM_ERG.spiraltextboxpage2_26.value = ""
  328. TPM_ERG.spiraltextboxpage2_27.value = ""
  329.  
  330. m_1.value = ""
  331. m_2.value = ""
  332. m_3.value = ""
  333.  
  334. MsgBox "Data Clear", vbInformation
  335.  
  336.  
  337. ElseIf TPM_ERG.calendartext.value = "20" Then
  338.  
  339. Range("K8").value = ""
  340. Range("K9").value = ""
  341. Range("K10").value = ""
  342.  
  343. TPM_ERG.spiraltextboxpage2_28.value = ""
  344. TPM_ERG.spiraltextboxpage2_29.value = ""
  345. TPM_ERG.spiraltextboxpage2_30.value = ""
  346.  
  347. m_1.value = ""
  348. m_2.value = ""
  349. m_3.value = ""
  350.  
  351. MsgBox "Data Clear", vbInformation
  352.  
  353.  
  354.  
  355.  
  356.  
  357.  
  358.  
  359.  
  360.  
  361.  
  362.  
  363.  
  364. ElseIf TPM_ERG.calendartext.value = "21" Then
  365.  
  366. Range("B13").value = ""
  367. Range("B14").value = ""
  368. Range("B15").value = ""
  369.  
  370. TPM_ERG.spiraltextboxpage3_1.value = ""
  371. TPM_ERG.spiraltextboxpage3_2.value = ""
  372. TPM_ERG.spiraltextboxpage3_3.value = ""
  373.  
  374. m_1.value = ""
  375. m_2.value = ""
  376. m_3.value = ""
  377.  
  378. MsgBox "Data Clear", vbInformation
  379.  
  380. ElseIf TPM_ERG.calendartext.value = "22" Then
  381.  
  382. Range("C13").value = ""
  383. Range("C14").value = ""
  384. Range("C15").value = ""
  385.  
  386. TPM_ERG.spiraltextboxpage3_4.value = ""
  387. TPM_ERG.spiraltextboxpage3_5.value = ""
  388. TPM_ERG.spiraltextboxpage3_6.value = ""
  389.  
  390. m_1.value = ""
  391. m_2.value = ""
  392. m_3.value = ""
  393.  
  394. MsgBox "Data Clear", vbInformation
  395.  
  396. ElseIf TPM_ERG.calendartext.value = "23" Then
  397.  
  398. Range("D13").value = ""
  399. Range("D14").value = ""
  400. Range("D15").value = ""
  401.  
  402. TPM_ERG.spiraltextboxpage3_7.value = ""
  403. TPM_ERG.spiraltextboxpage3_8.value = ""
  404. TPM_ERG.spiraltextboxpage3_9.value = ""
  405.  
  406. m_1.value = ""
  407. m_2.value = ""
  408. m_3.value = ""
  409.  
  410. MsgBox "Data Clear", vbInformation
  411.  
  412. ElseIf TPM_ERG.calendartext.value = "24" Then
  413.  
  414. Range("E13").value = ""
  415. Range("E14").value = ""
  416. Range("E15").value = ""
  417.  
  418. TPM_ERG.spiraltextboxpage3_10.value = ""
  419. TPM_ERG.spiraltextboxpage3_11.value = ""
  420. TPM_ERG.spiraltextboxpage3_12.value = ""
  421.  
  422. m_1.value = ""
  423. m_2.value = ""
  424. m_3.value = ""
  425.  
  426. MsgBox "Data Clear", vbInformation
  427.  
  428. ElseIf TPM_ERG.calendartext.value = "25" Then
  429.  
  430. Range("F13").value = ""
  431. Range("F14").value = ""
  432. Range("F15").value = ""
  433.  
  434. TPM_ERG.spiraltextboxpage3_13.value = ""
  435. TPM_ERG.spiraltextboxpage3_14.value = ""
  436. TPM_ERG.spiraltextboxpage3_15.value = ""
  437.  
  438. m_1.value = ""
  439. m_2.value = ""
  440. m_3.value = ""
  441.  
  442. MsgBox "Data Clear", vbInformation
  443.  
  444. ElseIf TPM_ERG.calendartext.value = "26" Then
  445.  
  446. Range("G13").value = ""
  447. Range("G14").value = ""
  448. Range("G15").value = ""
  449.  
  450. TPM_ERG.spiraltextboxpage3_16.value = ""
  451. TPM_ERG.spiraltextboxpage3_17.value = ""
  452. TPM_ERG.spiraltextboxpage3_18.value = ""
  453.  
  454. m_1.value = ""
  455. m_2.value = ""
  456. m_3.value = ""
  457.  
  458. MsgBox "Data Clear", vbInformation
  459.  
  460. ElseIf TPM_ERG.calendartext.value = "27" Then
  461.  
  462. Range("H13").value = ""
  463. Range("H14").value = ""
  464. Range("H15").value = ""
  465.  
  466. TPM_ERG.spiraltextboxpage3_19.value = ""
  467. TPM_ERG.spiraltextboxpage3_20.value = ""
  468. TPM_ERG.spiraltextboxpage3_21.value = ""
  469.  
  470. m_1.value = ""
  471. m_2.value = ""
  472. m_3.value = ""
  473.  
  474. MsgBox "Data Clear", vbInformation
  475.  
  476. ElseIf TPM_ERG.calendartext.value = "28" Then
  477.  
  478. Range("I13").value = ""
  479. Range("I14").value = ""
  480. Range("I15").value = ""
  481.  
  482. TPM_ERG.spiraltextboxpage3_22.value = ""
  483. TPM_ERG.spiraltextboxpage3_23.value = ""
  484. TPM_ERG.spiraltextboxpage3_24.value = ""
  485.  
  486. m_1.value = ""
  487. m_2.value = ""
  488. m_3.value = ""
  489.  
  490. MsgBox "Data Clear", vbInformation
  491.  
  492. ElseIf TPM_ERG.calendartext.value = "29" Then
  493.  
  494. Range("I13").value = ""
  495. Range("I14").value = ""
  496. Range("I15").value = ""
  497.  
  498. TPM_ERG.spiraltextboxpage3_25.value = ""
  499. TPM_ERG.spiraltextboxpage3_26.value = ""
  500. TPM_ERG.spiraltextboxpage3_27.value = ""
  501.  
  502. m_1.value = ""
  503. m_2.value = ""
  504. m_3.value = ""
  505.  
  506. MsgBox "Data Clear", vbInformation
  507.  
  508. ElseIf TPM_ERG.calendartext.value = "30" Then
  509.  
  510. Range("J13").value = ""
  511. Range("J14").value = ""
  512. Range("J15").value = ""
  513.  
  514. TPM_ERG.spiraltextboxpage3_28.value = ""
  515. TPM_ERG.spiraltextboxpage3_29.value = ""
  516. TPM_ERG.spiraltextboxpage3_30.value = ""
  517.  
  518. m_1.value = ""
  519. m_2.value = ""
  520. m_3.value = ""
  521.  
  522. MsgBox "Data Clear", vbInformation
  523.  
  524.  
  525.  
  526.  
  527.  
  528.  
  529.  
  530.  
  531. ElseIf TPM_ERG.calendartext.value = "31" Then
  532.  
  533. Range("B18").value = ""
  534. Range("B19").value = ""
  535. Range("B20").value = ""
  536.  
  537. TPM_ERG.spiraltextboxpage4_1.value = ""
  538. TPM_ERG.spiraltextboxpage4_2.value = ""
  539. TPM_ERG.spiraltextboxpage4_3.value = ""
  540.  
  541. m_1.value = ""
  542. m_2.value = ""
  543. m_3.value = ""
  544.  
  545. MsgBox "Data Clear", vbInformation
  546.  
  547. ElseIf TPM_ERG.calendartext.value = "32" Then
  548.  
  549. Range("C18").value = ""
  550. Range("C19").value = ""
  551. Range("C20").value = ""
  552.  
  553. TPM_ERG.spiraltextboxpage4_4.value = ""
  554. TPM_ERG.spiraltextboxpage4_5.value = ""
  555. TPM_ERG.spiraltextboxpage4_6.value = ""
  556.  
  557. m_1.value = ""
  558. m_2.value = ""
  559. m_3.value = ""
  560.  
  561. MsgBox "Data Clear", vbInformation
  562.  
  563. ElseIf TPM_ERG.calendartext.value = "33" Then
  564.  
  565. Range("D18").value = ""
  566. Range("D19").value = ""
  567. Range("D20").value = ""
  568.  
  569. TPM_ERG.spiraltextboxpage4_7.value = ""
  570. TPM_ERG.spiraltextboxpage4_8.value = ""
  571. TPM_ERG.spiraltextboxpage4_9.value = ""
  572.  
  573. m_1.value = ""
  574. m_2.value = ""
  575. m_3.value = ""
  576.  
  577. MsgBox "Data Clear", vbInformation
  578.  
  579. ElseIf TPM_ERG.calendartext.value = "34" Then
  580.  
  581. Range("E18").value = ""
  582. Range("E19").value = ""
  583. Range("E20").value = ""
  584.  
  585. TPM_ERG.spiraltextboxpage4_10.value = ""
  586. TPM_ERG.spiraltextboxpage4_11.value = ""
  587. TPM_ERG.spiraltextboxpage4_12.value = ""
  588.  
  589. m_1.value = ""
  590. m_2.value = ""
  591. m_3.value = ""
  592.  
  593. MsgBox "Data Clear", vbInformation
  594.  
  595. ElseIf TPM_ERG.calendartext.value = "35" Then
  596.  
  597. Range("F18").value = ""
  598. Range("F19").value = ""
  599. Range("F20").value = ""
  600.  
  601. TPM_ERG.spiraltextboxpage4_13.value = ""
  602. TPM_ERG.spiraltextboxpage4_14.value = ""
  603. TPM_ERG.spiraltextboxpage4_15.value = ""
  604.  
  605. m_1.value = ""
  606. m_2.value = ""
  607. m_3.value = ""
  608.  
  609. MsgBox "Data Clear", vbInformation
  610.  
  611. ElseIf TPM_ERG.calendartext.value = "36" Then
  612.  
  613. Range("G18").value = ""
  614. Range("G19").value = ""
  615. Range("G20").value = ""
  616.  
  617. TPM_ERG.spiraltextboxpage4_16.value = ""
  618. TPM_ERG.spiraltextboxpage4_17.value = ""
  619. TPM_ERG.spiraltextboxpage4_18.value = ""
  620.  
  621. m_1.value = ""
  622. m_2.value = ""
  623. m_3.value = ""
  624.  
  625. MsgBox "Data Clear", vbInformation
  626.  
  627. ElseIf TPM_ERG.calendartext.value = "37" Then
  628.  
  629. Range("H18").value = ""
  630. Range("H19").value = ""
  631. Range("H20").value = ""
  632.  
  633. TPM_ERG.spiraltextboxpage4_19.value = ""
  634. TPM_ERG.spiraltextboxpage4_20.value = ""
  635. TPM_ERG.spiraltextboxpage4_21.value = ""
  636.  
  637. m_1.value = ""
  638. m_2.value = ""
  639. m_3.value = ""
  640.  
  641. MsgBox "Data Clear", vbInformation
  642.  
  643. ElseIf TPM_ERG.calendartext.value = "38" Then
  644.  
  645. Range("I18").value = ""
  646. Range("I19").value = ""
  647. Range("I20").value = ""
  648.  
  649. TPM_ERG.spiraltextboxpage4_22.value = ""
  650. TPM_ERG.spiraltextboxpage4_23.value = ""
  651. TPM_ERG.spiraltextboxpage4_24.value = ""
  652.  
  653. m_1.value = ""
  654. m_2.value = ""
  655. m_3.value = ""
  656.  
  657. MsgBox "Data Clear", vbInformation
  658.  
  659. ElseIf TPM_ERG.calendartext.value = "39" Then
  660.  
  661. Range("J18").value = ""
  662. Range("J19").value = ""
  663. Range("J20").value = ""
  664.  
  665. TPM_ERG.spiraltextboxpage4_25.value = ""
  666. TPM_ERG.spiraltextboxpage4_26.value = ""
  667. TPM_ERG.spiraltextboxpage4_27.value = ""
  668.  
  669. m_1.value = ""
  670. m_2.value = ""
  671. m_3.value = ""
  672.  
  673. MsgBox "Data Clear", vbInformation
  674.  
  675. ElseIf TPM_ERG.calendartext.value = "40" Then
  676.  
  677. Range("K18").value = ""
  678. Range("K19").value = ""
  679. Range("K20").value = ""
  680.  
  681. TPM_ERG.spiraltextboxpage4_1.value = ""
  682. TPM_ERG.spiraltextboxpage4_2.value = ""
  683. TPM_ERG.spiraltextboxpage4_3.value = ""
  684.  
  685. m_1.value = ""
  686. m_2.value = ""
  687. m_3.value = ""
  688.  
  689. MsgBox "Data Clear", vbInformation
  690.  
  691.  
  692.  
  693.  
  694.  
  695.  
  696.  
  697.  
  698.  
  699.  
  700. ElseIf TPM_ERG.calendartext.value = "41" Then
  701.  
  702. Range("B23").value = ""
  703. Range("B24").value = ""
  704. Range("B25").value = ""
  705.  
  706. TPM_ERG.spiraltextboxpage5_1.value = ""
  707. TPM_ERG.spiraltextboxpage5_2.value = ""
  708. TPM_ERG.spiraltextboxpage5_3.value = ""
  709.  
  710. m_1.value = ""
  711. m_2.value = ""
  712. m_3.value = ""
  713.  
  714. MsgBox "Data Clear", vbInformation
  715.  
  716. ElseIf TPM_ERG.calendartext.value = "42" Then
  717.  
  718. Range("C23").value = ""
  719. Range("C24").value = ""
  720. Range("C25").value = ""
  721.  
  722. TPM_ERG.spiraltextboxpage5_4.value = ""
  723. TPM_ERG.spiraltextboxpage5_5.value = ""
  724. TPM_ERG.spiraltextboxpage5_6.value = ""
  725.  
  726. m_1.value = ""
  727. m_2.value = ""
  728. m_3.value = ""
  729.  
  730. MsgBox "Data Clear", vbInformation
  731.  
  732.  
  733. ElseIf TPM_ERG.calendartext.value = "43" Then
  734.  
  735. Range("D23").value = ""
  736. Range("D24").value = ""
  737. Range("D25").value = ""
  738.  
  739. TPM_ERG.spiraltextboxpage5_7.value = ""
  740. TPM_ERG.spiraltextboxpage5_8.value = ""
  741. TPM_ERG.spiraltextboxpage5_9.value = ""
  742.  
  743. m_1.value = ""
  744. m_2.value = ""
  745. m_3.value = ""
  746.  
  747. MsgBox "Data Clear", vbInformation
  748.  
  749.  
  750. ElseIf TPM_ERG.calendartext.value = "44" Then
  751.  
  752. Range("E23").value = ""
  753. Range("E24").value = ""
  754. Range("E25").value = ""
  755.  
  756. TPM_ERG.spiraltextboxpage5_10.value = ""
  757. TPM_ERG.spiraltextboxpage5_11.value = ""
  758. TPM_ERG.spiraltextboxpage5_12.value = ""
  759.  
  760. m_1.value = ""
  761. m_2.value = ""
  762. m_3.value = ""
  763.  
  764. MsgBox "Data Clear", vbInformation
  765.  
  766.  
  767. ElseIf TPM_ERG.calendartext.value = "45" Then
  768.  
  769. Range("F23").value = ""
  770. Range("F24").value = ""
  771. Range("F25").value = ""
  772.  
  773. TPM_ERG.spiraltextboxpage5_13.value = ""
  774. TPM_ERG.spiraltextboxpage5_14.value = ""
  775. TPM_ERG.spiraltextboxpage5_15.value = ""
  776.  
  777. m_1.value = ""
  778. m_2.value = ""
  779. m_3.value = ""
  780.  
  781. MsgBox "Data Clear", vbInformation
  782.  
  783.  
  784. ElseIf TPM_ERG.calendartext.value = "46" Then
  785.  
  786. Range("G23").value = ""
  787. Range("G24").value = ""
  788. Range("G25").value = ""
  789.  
  790. TPM_ERG.spiraltextboxpage5_16.value = ""
  791. TPM_ERG.spiraltextboxpage5_17.value = ""
  792. TPM_ERG.spiraltextboxpage5_18.value = ""
  793.  
  794. m_1.value = ""
  795. m_2.value = ""
  796. m_3.value = ""
  797.  
  798. MsgBox "Data Clear", vbInformation
  799.  
  800.  
  801. ElseIf TPM_ERG.calendartext.value = "47" Then
  802.  
  803. Range("H23").value = ""
  804. Range("H24").value = ""
  805. Range("H25").value = ""
  806.  
  807. TPM_ERG.spiraltextboxpage5_19.value = ""
  808. TPM_ERG.spiraltextboxpage5_20.value = ""
  809. TPM_ERG.spiraltextboxpage5_21.value = ""
  810.  
  811. m_1.value = ""
  812. m_2.value = ""
  813. m_3.value = ""
  814.  
  815. MsgBox "Data Clear", vbInformation
  816.  
  817.  
  818. ElseIf TPM_ERG.calendartext.value = "48" Then
  819.  
  820. Range("I23").value = ""
  821. Range("I24").value = ""
  822. Range("I25").value = ""
  823.  
  824. TPM_ERG.spiraltextboxpage5_22.value = ""
  825. TPM_ERG.spiraltextboxpage5_23.value = ""
  826. TPM_ERG.spiraltextboxpage5_24.value = ""
  827.  
  828. m_1.value = ""
  829. m_2.value = ""
  830. m_3.value = ""
  831.  
  832. MsgBox "Data Clear", vbInformation
  833.  
  834.  
  835. ElseIf TPM_ERG.calendartext.value = "49" Then
  836.  
  837. Range("J23").value = ""
  838. Range("J24").value = ""
  839. Range("J25").value = ""
  840.  
  841. TPM_ERG.spiraltextboxpage5_1.value = ""
  842. TPM_ERG.spiraltextboxpage5_2.value = ""
  843. TPM_ERG.spiraltextboxpage5_3.value = ""
  844.  
  845. m_1.value = ""
  846. m_2.value = ""
  847. m_3.value = ""
  848.  
  849. MsgBox "Data Clear", vbInformation
  850.  
  851.  
  852. ElseIf TPM_ERG.calendartext.value = "50" Then
  853.  
  854. Range("K23").value = ""
  855. Range("K24").value = ""
  856. Range("K25").value = ""
  857.  
  858. TPM_ERG.spiraltextboxpage5_1.value = ""
  859. TPM_ERG.spiraltextboxpage5_2.value = ""
  860. TPM_ERG.spiraltextboxpage5_3.value = ""
  861.  
  862. m_1.value = ""
  863. m_2.value = ""
  864. m_3.value = ""
  865.  
  866. MsgBox "Data Clear", vbInformation
  867.  
  868.  
  869.  
  870.  
  871.  
  872.  
  873.  
  874.  
  875.  
  876.  
  877.  
  878.  
  879.  
  880.  
  881.  
  882.  
  883.  
  884. ElseIf TPM_ERG.calendartext.value = "51" Then
  885.  
  886. Range("B28").value = ""
  887. Range("B29").value = ""
  888. Range("B30").value = ""
  889.  
  890. TPM_ERG.spiraltextboxpage6_1.value = ""
  891. TPM_ERG.spiraltextboxpage6_2.value = ""
  892. TPM_ERG.spiraltextboxpage6_3.value = ""
  893.  
  894. m_1.value = ""
  895. m_2.value = ""
  896. m_3.value = ""
  897.  
  898. MsgBox "Data Clear", vbInformation
  899.  
  900. ElseIf TPM_ERG.calendartext.value = "52" Then
  901.  
  902. Range("C28").value = ""
  903. Range("C29").value = ""
  904. Range("C30").value = ""
  905.  
  906. TPM_ERG.spiraltextboxpage6_4.value = ""
  907. TPM_ERG.spiraltextboxpage6_5.value = ""
  908. TPM_ERG.spiraltextboxpage6_6.value = ""
  909.  
  910. m_1.value = ""
  911. m_2.value = ""
  912. m_3.value = ""
  913.  
  914. MsgBox "Data Clear", vbInformation
  915.  
  916.  
  917. ElseIf TPM_ERG.calendartext.value = "53" Then
  918.  
  919. Range("D28").value = ""
  920. Range("D29").value = ""
  921. Range("D30").value = ""
  922.  
  923. TPM_ERG.spiraltextboxpage6_7.value = ""
  924. TPM_ERG.spiraltextboxpage6_8.value = ""
  925. TPM_ERG.spiraltextboxpage6_9.value = ""
  926.  
  927. m_1.value = ""
  928. m_2.value = ""
  929. m_3.value = ""
  930.  
  931. MsgBox "Data Clear", vbInformation
  932.  
  933.  
  934. ElseIf TPM_ERG.calendartext.value = "54" Then
  935.  
  936. Range("E28").value = ""
  937. Range("E29").value = ""
  938. Range("E30").value = ""
  939.  
  940. TPM_ERG.spiraltextboxpage6_10.value = ""
  941. TPM_ERG.spiraltextboxpage6_11.value = ""
  942. TPM_ERG.spiraltextboxpage6_12.value = ""
  943.  
  944. m_1.value = ""
  945. m_2.value = ""
  946. m_3.value = ""
  947.  
  948. MsgBox "Data Clear", vbInformation
  949.  
  950.  
  951. ElseIf TPM_ERG.calendartext.value = "55" Then
  952.  
  953. Range("F28").value = ""
  954. Range("F29").value = ""
  955. Range("F30").value = ""
  956.  
  957. TPM_ERG.spiraltextboxpage6_13.value = ""
  958. TPM_ERG.spiraltextboxpage6_14.value = ""
  959. TPM_ERG.spiraltextboxpage6_15.value = ""
  960.  
  961. m_1.value = ""
  962. m_2.value = ""
  963. m_3.value = ""
  964.  
  965. MsgBox "Data Clear", vbInformation
  966.  
  967.  
  968. ElseIf TPM_ERG.calendartext.value = "56" Then
  969.  
  970. Range("G28").value = ""
  971. Range("G29").value = ""
  972. Range("G30").value = ""
  973.  
  974. TPM_ERG.spiraltextboxpage6_16.value = ""
  975. TPM_ERG.spiraltextboxpage6_17.value = ""
  976. TPM_ERG.spiraltextboxpage6_18.value = ""
  977.  
  978. m_1.value = ""
  979. m_2.value = ""
  980. m_3.value = ""
  981.  
  982. MsgBox "Data Clear", vbInformation
  983.  
  984.  
  985. ElseIf TPM_ERG.calendartext.value = "57" Then
  986.  
  987. Range("H28").value = ""
  988. Range("H29").value = ""
  989. Range("H30").value = ""
  990.  
  991. TPM_ERG.spiraltextboxpage6_19.value = ""
  992. TPM_ERG.spiraltextboxpage6_20.value = ""
  993. TPM_ERG.spiraltextboxpage6_21.value = ""
  994.  
  995. m_1.value = ""
  996. m_2.value = ""
  997. m_3.value = ""
  998.  
  999. MsgBox "Data Clear", vbInformation
  1000.  
  1001.  
  1002. ElseIf TPM_ERG.calendartext.value = "58" Then
  1003.  
  1004. Range("I28").value = ""
  1005. Range("I29").value = ""
  1006. Range("I30").value = ""
  1007.  
  1008. TPM_ERG.spiraltextboxpage6_22.value = ""
  1009. TPM_ERG.spiraltextboxpage6_23.value = ""
  1010. TPM_ERG.spiraltextboxpage6_24.value = ""
  1011.  
  1012. m_1.value = ""
  1013. m_2.value = ""
  1014. m_3.value = ""
  1015.  
  1016. MsgBox "Data Clear", vbInformation
  1017.  
  1018.  
  1019. ElseIf TPM_ERG.calendartext.value = "59" Then
  1020.  
  1021. Range("J28").value = ""
  1022. Range("J29").value = ""
  1023. Range("J30").value = ""
  1024.  
  1025. TPM_ERG.spiraltextboxpage6_25.value = ""
  1026. TPM_ERG.spiraltextboxpage6_26.value = ""
  1027. TPM_ERG.spiraltextboxpage6_27.value = ""
  1028.  
  1029. m_1.value = ""
  1030. m_2.value = ""
  1031. m_3.value = ""
  1032.  
  1033. MsgBox "Data Clear", vbInformation
  1034.  
  1035.  
  1036. ElseIf TPM_ERG.calendartext.value = "60" Then
  1037.  
  1038. Range("K28").value = ""
  1039. Range("K29").value = ""
  1040. Range("K30").value = ""
  1041.  
  1042. TPM_ERG.spiraltextboxpage6_28.value = ""
  1043. TPM_ERG.spiraltextboxpage6_29.value = ""
  1044. TPM_ERG.spiraltextboxpage6_30.value = ""
  1045.  
  1046. m_1.value = ""
  1047. m_2.value = ""
  1048. m_3.value = ""
  1049.  
  1050. MsgBox "Data Clear", vbInformation
  1051.  
  1052.  
  1053.  
  1054.  
  1055.  
  1056.  
  1057.  
  1058.  
  1059. ElseIf TPM_ERG.calendartext.value = "61" Then
  1060.  
  1061. Range("B33").value = ""
  1062. Range("B34").value = ""
  1063. Range("B35").value = ""
  1064.  
  1065. TPM_ERG.spiraltextboxpage7_1.value = ""
  1066. TPM_ERG.spiraltextboxpage7_2.value = ""
  1067. TPM_ERG.spiraltextboxpage7_3.value = ""
  1068.  
  1069. m_1.value = ""
  1070. m_2.value = ""
  1071. m_3.value = ""
  1072.  
  1073. MsgBox "Data Clear", vbInformation
  1074.  
  1075.  
  1076. ElseIf TPM_ERG.calendartext.value = "62" Then
  1077.  
  1078. Range("C33").value = ""
  1079. Range("C34").value = ""
  1080. Range("C35").value = ""
  1081.  
  1082. TPM_ERG.spiraltextboxpage7_4.value = ""
  1083. TPM_ERG.spiraltextboxpage7_5.value = ""
  1084. TPM_ERG.spiraltextboxpage7_6.value = ""
  1085.  
  1086. m_1.value = ""
  1087. m_2.value = ""
  1088. m_3.value = ""
  1089.  
  1090. MsgBox "Data Clear", vbInformation
  1091.  
  1092.  
  1093. ElseIf TPM_ERG.calendartext.value = "63" Then
  1094.  
  1095. Range("D33").value = ""
  1096. Range("D34").value = ""
  1097. Range("D35").value = ""
  1098.  
  1099. TPM_ERG.spiraltextboxpage7_7.value = ""
  1100. TPM_ERG.spiraltextboxpage7_8.value = ""
  1101. TPM_ERG.spiraltextboxpage7_9.value = ""
  1102.  
  1103. m_1.value = ""
  1104. m_2.value = ""
  1105. m_3.value = ""
  1106.  
  1107. MsgBox "Data Clear", vbInformation
  1108.  
  1109.  
  1110. ElseIf TPM_ERG.calendartext.value = "64" Then
  1111.  
  1112. Range("E33").value = ""
  1113. Range("E34").value = ""
  1114. Range("E35").value = ""
  1115.  
  1116. TPM_ERG.spiraltextboxpage7_10.value = ""
  1117. TPM_ERG.spiraltextboxpage7_11.value = ""
  1118. TPM_ERG.spiraltextboxpage7_12.value = ""
  1119.  
  1120. m_1.value = ""
  1121. m_2.value = ""
  1122. m_3.value = ""
  1123.  
  1124. MsgBox "Data Clear", vbInformation
  1125.  
  1126.  
  1127. ElseIf TPM_ERG.calendartext.value = "65" Then
  1128.  
  1129. Range("F33").value = ""
  1130. Range("F34").value = ""
  1131. Range("F35").value = ""
  1132.  
  1133. TPM_ERG.spiraltextboxpage7_13.value = ""
  1134. TPM_ERG.spiraltextboxpage7_14.value = ""
  1135. TPM_ERG.spiraltextboxpage7_15.value = ""
  1136.  
  1137. m_1.value = ""
  1138. m_2.value = ""
  1139. m_3.value = ""
  1140.  
  1141. MsgBox "Data Clear", vbInformation
  1142.  
  1143.  
  1144. ElseIf TPM_ERG.calendartext.value = "66" Then
  1145.  
  1146. Range("G33").value = ""
  1147. Range("G34").value = ""
  1148. Range("G35").value = ""
  1149.  
  1150. TPM_ERG.spiraltextboxpage7_16.value = ""
  1151. TPM_ERG.spiraltextboxpage7_17.value = ""
  1152. TPM_ERG.spiraltextboxpage7_18.value = ""
  1153.  
  1154. m_1.value = ""
  1155. m_2.value = ""
  1156. m_3.value = ""
  1157.  
  1158. MsgBox "Data Clear", vbInformation
  1159.  
  1160.  
  1161. ElseIf TPM_ERG.calendartext.value = "67" Then
  1162.  
  1163. Range("H33").value = ""
  1164. Range("H34").value = ""
  1165. Range("H35").value = ""
  1166.  
  1167. TPM_ERG.spiraltextboxpage7_19.value = ""
  1168. TPM_ERG.spiraltextboxpage7_20.value = ""
  1169. TPM_ERG.spiraltextboxpage7_21.value = ""
  1170.  
  1171. m_1.value = ""
  1172. m_2.value = ""
  1173. m_3.value = ""
  1174.  
  1175. MsgBox "Data Clear", vbInformation
  1176.  
  1177.  
  1178. ElseIf TPM_ERG.calendartext.value = "68" Then
  1179.  
  1180. Range("I33").value = ""
  1181. Range("I34").value = ""
  1182. Range("I35").value = ""
  1183.  
  1184. TPM_ERG.spiraltextboxpage7_22.value = ""
  1185. TPM_ERG.spiraltextboxpage7_23.value = ""
  1186. TPM_ERG.spiraltextboxpage7_24.value = ""
  1187.  
  1188. m_1.value = ""
  1189. m_2.value = ""
  1190. m_3.value = ""
  1191.  
  1192. MsgBox "Data Clear", vbInformation
  1193.  
  1194.  
  1195. ElseIf TPM_ERG.calendartext.value = "69" Then
  1196.  
  1197. Range("J33").value = ""
  1198. Range("J34").value = ""
  1199. Range("J35").value = ""
  1200.  
  1201. TPM_ERG.spiraltextboxpage7_25.value = ""
  1202. TPM_ERG.spiraltextboxpage7_26.value = ""
  1203. TPM_ERG.spiraltextboxpage7_27.value = ""
  1204.  
  1205. m_1.value = ""
  1206. m_2.value = ""
  1207. m_3.value = ""
  1208.  
  1209. MsgBox "Data Clear", vbInformation
  1210.  
  1211.  
  1212. ElseIf TPM_ERG.calendartext.value = "70" Then
  1213.  
  1214. Range("K33").value = ""
  1215. Range("K34").value = ""
  1216. Range("K35").value = ""
  1217.  
  1218. TPM_ERG.spiraltextboxpage7_28.value = ""
  1219. TPM_ERG.spiraltextboxpage7_29.value = ""
  1220. TPM_ERG.spiraltextboxpage7_30.value = ""
  1221.  
  1222. m_1.value = ""
  1223. m_2.value = ""
  1224. m_3.value = ""
  1225.  
  1226. MsgBox "Data Clear", vbInformation
  1227.  
  1228.  
  1229.  
  1230.  
  1231.  
  1232.  
  1233.  
  1234. End If
  1235.  
  1236.  
  1237. End Sub
  1238.  
  1239. Private Sub m_1_Enter()
  1240. m_1.value = " "
  1241.  
  1242. ThisWorkbook.Sheets("Sheet1").Activate
  1243. Range("A1").Select
  1244.  
  1245. frmCalendar.Show_Cal
  1246.  
  1247. End Sub
  1248.  
  1249. Private Sub m_btn_finish_Click()
  1250. If m_1.value <> "" Then
  1251.  
  1252. m_3.value = Format(Now, "dd mmmm yyyy")
  1253.  
  1254.  
  1255. Else
  1256.  
  1257. MsgBox "Plan Is Empty ", vbInformation
  1258.  
  1259. End If
  1260.  
  1261. End Sub
  1262.  
  1263. Private Sub m_btn_start_Click()
  1264.  
  1265.  
  1266. If m_1.value <> "" Then
  1267.  
  1268. m_2.value = Format(Now, "dd mmmm yyyy")
  1269.  
  1270. Else
  1271.  
  1272. MsgBox "Plan Is Empty ", vbInformation
  1273.  
  1274. End If
  1275. End Sub
  1276.  
  1277.  
  1278.  
  1279. Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
  1280.  
  1281. m_1.value = ""
  1282. m_2.value = ""
  1283. m_3.value = ""
  1284. mach_EE.value = ""
  1285.  
  1286. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  1287.  
  1288. If Range("B21").value = "99,1%" Then
  1289. Range("B21").value = "100%"
  1290.  
  1291.  
  1292. ElseIf Range("C21").value = "99,1%" Then
  1293. Range("C21").value = "100%"
  1294.  
  1295.  
  1296. ElseIf Range("D21").value = "99,1%" Then
  1297. Range("D21").value = "100%"
  1298.  
  1299.  
  1300. ElseIf Range("E21").value = "99,1%" Then
  1301. Range("E21").value = "100%"
  1302.  
  1303.  
  1304. ElseIf Range("F21").value = "99,1%" Then
  1305. Range("F21").value = "100%"
  1306. End If
  1307.  
  1308.  
  1309.  
  1310.  
  1311.  
  1312. 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!