API tools faq
paste
Advertisement
Guest User

Untitled

a guest
Feb 24th, 2020
171
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 312.85 KB | None | 0 0
raw download clone embed print report
  1.  
  2. Private Sub CLEARALL_BTN_Click()
  3. Dim mbresult As Integer
  4. mbresult = MsgBox("Are You Sure Want To Clear All?", vbYesNo + vbInformation, "Delete ?")
  5.  
  6. If mbresult = vbYes Then
  7.  
  8. 'clear textbox spiralling machine page 1
  9. TextBox194.value = ""
  10. TextBox192.value = ""
  11. TextBox193.value = ""
  12. TextBox489.value = ""
  13. TextBox490.value = ""
  14. TextBox491.value = ""
  15. TextBox200.value = ""
  16. TextBox198.value = ""
  17. TextBox199.value = ""
  18. TextBox203.value = ""
  19. TextBox201.value = ""
  20. TextBox202.value = ""
  21. TextBox205.value = ""
  22. TextBox206.value = ""
  23. TextBox204.value = ""
  24. TextBox208.value = ""
  25. TextBox209.value = ""
  26. TextBox207.value = ""
  27. TextBox211.value = ""
  28. TextBox212.value = ""
  29. TextBox210.value = ""
  30. TextBox214.value = ""
  31. TextBox215.value = ""
  32. TextBox213.value = ""
  33. TextBox217.value = ""
  34. TextBox218.value = ""
  35. TextBox216.value = ""
  36. TextBox190.value = ""
  37. TextBox191.value = ""
  38. TextBox189.value = ""
  39.  
  40. 'show blank textbox spiraling machine page 2
  41. spiraltextboxpage2_1.value = ""
  42. spiraltextboxpage2_2.value = ""
  43. spiraltextboxpage2_3.value = ""
  44. spiraltextboxpage2_4.value = ""
  45. spiraltextboxpage2_5.value = ""
  46. spiraltextboxpage2_6.value = ""
  47. spiraltextboxpage2_7.value = ""
  48. spiraltextboxpage2_8.value = ""
  49. spiraltextboxpage2_9.value = ""
  50. spiraltextboxpage2_10.value = ""
  51. spiraltextboxpage2_11.value = ""
  52. spiraltextboxpage2_12.value = ""
  53. spiraltextboxpage2_13.value = ""
  54. spiraltextboxpage2_14.value = ""
  55. spiraltextboxpage2_15.value = ""
  56. spiraltextboxpage2_16.value = ""
  57. spiraltextboxpage2_17.value = ""
  58. spiraltextboxpage2_18.value = ""
  59. spiraltextboxpage2_19.value = ""
  60. spiraltextboxpage2_20.value = ""
  61. spiraltextboxpage2_21.value = ""
  62. spiraltextboxpage2_22.value = ""
  63. spiraltextboxpage2_23.value = ""
  64. spiraltextboxpage2_24.value = ""
  65. spiraltextboxpage2_25.value = ""
  66. spiraltextboxpage2_26.value = ""
  67. spiraltextboxpage2_27.value = ""
  68. spiraltextboxpage2_28.value = ""
  69. spiraltextboxpage2_29.value = ""
  70. spiraltextboxpage2_30.value = ""
  71.  
  72. 'show blank textbox spiraling machine page 3
  73. spiraltextboxpage3_1.value = ""
  74. spiraltextboxpage3_2.value = ""
  75. spiraltextboxpage3_3.value = ""
  76. spiraltextboxpage3_4.value = ""
  77. spiraltextboxpage3_5.value = ""
  78. spiraltextboxpage3_6.value = ""
  79. spiraltextboxpage3_7.value = ""
  80. spiraltextboxpage3_8.value = ""
  81. spiraltextboxpage3_9.value = ""
  82. spiraltextboxpage3_10.value = ""
  83. spiraltextboxpage3_11.value = ""
  84. spiraltextboxpage3_12.value = ""
  85. spiraltextboxpage3_13.value = ""
  86. spiraltextboxpage3_14.value = ""
  87. spiraltextboxpage3_15.value = ""
  88. spiraltextboxpage3_16.value = ""
  89. spiraltextboxpage3_17.value = ""
  90. spiraltextboxpage3_18.value = ""
  91. spiraltextboxpage3_19.value = ""
  92. spiraltextboxpage3_20.value = ""
  93. spiraltextboxpage3_21.value = ""
  94. spiraltextboxpage3_22.value = ""
  95. spiraltextboxpage3_23.value = ""
  96. spiraltextboxpage3_24.value = ""
  97. spiraltextboxpage3_25.value = ""
  98. spiraltextboxpage3_26.value = ""
  99. spiraltextboxpage3_27.value = ""
  100. spiraltextboxpage3_28.value = ""
  101. spiraltextboxpage3_29.value = ""
  102. spiraltextboxpage3_30.value = ""
  103.  
  104. 'show blank textbox spiraling machine page 4
  105. spiraltextboxpage4_1.value = ""
  106. spiraltextboxpage4_2.value = ""
  107. spiraltextboxpage4_3.value = ""
  108. spiraltextboxpage4_4.value = ""
  109. spiraltextboxpage4_5.value = ""
  110. spiraltextboxpage4_6.value = ""
  111. spiraltextboxpage4_7.value = ""
  112. spiraltextboxpage4_8.value = ""
  113. spiraltextboxpage4_9.value = ""
  114. spiraltextboxpage4_10.value = ""
  115. spiraltextboxpage4_11.value = ""
  116. spiraltextboxpage4_12.value = ""
  117. spiraltextboxpage4_13.value = ""
  118. spiraltextboxpage4_14.value = ""
  119. spiraltextboxpage4_15.value = ""
  120. spiraltextboxpage4_16.value = ""
  121. spiraltextboxpage4_17.value = ""
  122. spiraltextboxpage4_18.value = ""
  123. spiraltextboxpage4_19.value = ""
  124. spiraltextboxpage4_20.value = ""
  125. spiraltextboxpage4_21.value = ""
  126. spiraltextboxpage4_22.value = ""
  127. spiraltextboxpage4_23.value = ""
  128. spiraltextboxpage4_24.value = ""
  129. spiraltextboxpage4_25.value = ""
  130. spiraltextboxpage4_26.value = ""
  131. spiraltextboxpage4_27.value = ""
  132. spiraltextboxpage4_28.value = ""
  133. spiraltextboxpage4_29.value = ""
  134. spiraltextboxpage4_30.value = ""
  135.  
  136. 'show blank textbox spiraling machine page 5
  137. spiraltextboxpage5_1.value = ""
  138. spiraltextboxpage5_2.value = ""
  139. spiraltextboxpage5_3.value = ""
  140. spiraltextboxpage5_4.value = ""
  141. spiraltextboxpage5_5.value = ""
  142. spiraltextboxpage5_6.value = ""
  143. spiraltextboxpage5_7.value = ""
  144. spiraltextboxpage5_8.value = ""
  145. spiraltextboxpage5_9.value = ""
  146. spiraltextboxpage5_10.value = ""
  147. spiraltextboxpage5_11.value = ""
  148. spiraltextboxpage5_12.value = ""
  149. spiraltextboxpage5_13.value = ""
  150. spiraltextboxpage5_14.value = ""
  151. spiraltextboxpage5_15.value = ""
  152. spiraltextboxpage5_16.value = ""
  153. spiraltextboxpage5_17.value = ""
  154. spiraltextboxpage5_18.value = ""
  155. spiraltextboxpage5_19.value = ""
  156. spiraltextboxpage5_20.value = ""
  157. spiraltextboxpage5_21.value = ""
  158. spiraltextboxpage5_22.value = ""
  159. spiraltextboxpage5_23.value = ""
  160. spiraltextboxpage5_24.value = ""
  161. spiraltextboxpage5_25.value = ""
  162. spiraltextboxpage5_26.value = ""
  163. spiraltextboxpage5_27.value = ""
  164. spiraltextboxpage5_28.value = ""
  165. spiraltextboxpage5_29.value = ""
  166. spiraltextboxpage5_30.value = ""
  167.  
  168. 'show blank textbox spiraling machine page 6
  169. spiraltextboxpage6_1.value = ""
  170. spiraltextboxpage6_2.value = ""
  171. spiraltextboxpage6_3.value = ""
  172. spiraltextboxpage6_4.value = ""
  173. spiraltextboxpage6_5.value = ""
  174. spiraltextboxpage6_6.value = ""
  175. spiraltextboxpage6_7.value = ""
  176. spiraltextboxpage6_8.value = ""
  177. spiraltextboxpage6_9.value = ""
  178. spiraltextboxpage6_10.value = ""
  179. spiraltextboxpage6_11.value = ""
  180. spiraltextboxpage6_12.value = ""
  181. spiraltextboxpage6_13.value = ""
  182. spiraltextboxpage6_14.value = ""
  183. spiraltextboxpage6_15.value = ""
  184. spiraltextboxpage6_16.value = ""
  185. spiraltextboxpage6_17.value = ""
  186. spiraltextboxpage6_18.value = ""
  187. spiraltextboxpage6_19.value = ""
  188. spiraltextboxpage6_20.value = ""
  189. spiraltextboxpage6_21.value = ""
  190. spiraltextboxpage6_22.value = ""
  191. spiraltextboxpage6_23.value = ""
  192. spiraltextboxpage6_24.value = ""
  193. spiraltextboxpage6_25.value = ""
  194. spiraltextboxpage6_26.value = ""
  195. spiraltextboxpage6_27.value = ""
  196. spiraltextboxpage6_28.value = ""
  197. spiraltextboxpage6_29.value = ""
  198. spiraltextboxpage6_30.value = ""
  199.  
  200. 'show blank textbox spiraling machine page 7
  201. spiraltextboxpage7_1.value = ""
  202. spiraltextboxpage7_2.value = ""
  203. spiraltextboxpage7_3.value = ""
  204. spiraltextboxpage7_4.value = ""
  205. spiraltextboxpage7_5.value = ""
  206. spiraltextboxpage7_6.value = ""
  207. spiraltextboxpage7_7.value = ""
  208. spiraltextboxpage7_8.value = ""
  209. spiraltextboxpage7_9.value = ""
  210. spiraltextboxpage7_10.value = ""
  211. spiraltextboxpage7_11.value = ""
  212. spiraltextboxpage7_12.value = ""
  213. spiraltextboxpage7_13.value = ""
  214. spiraltextboxpage7_14.value = ""
  215. spiraltextboxpage7_15.value = ""
  216. spiraltextboxpage7_16.value = ""
  217. spiraltextboxpage7_17.value = ""
  218. spiraltextboxpage7_18.value = ""
  219. spiraltextboxpage7_19.value = ""
  220. spiraltextboxpage7_20.value = ""
  221. spiraltextboxpage7_21.value = ""
  222. spiraltextboxpage7_22.value = ""
  223. spiraltextboxpage7_23.value = ""
  224. spiraltextboxpage7_24.value = ""
  225. spiraltextboxpage7_25.value = ""
  226. spiraltextboxpage7_26.value = ""
  227. spiraltextboxpage7_27.value = ""
  228. spiraltextboxpage7_28.value = ""
  229. spiraltextboxpage7_29.value = ""
  230. spiraltextboxpage7_30.value = ""
  231.  
  232.  
  233. 'clear textbox welding machine
  234. weldtextbox1.value = ""
  235. weldtextbox2.value = ""
  236. weldtextbox3.value = ""
  237. weldtextbox4.value = ""
  238. weldtextbox5.value = ""
  239. weldtextbox6.value = ""
  240. weldtextbox7.value = ""
  241. weldtextbox8.value = ""
  242. weldtextbox9.value = ""
  243. weldtextbox10.value = ""
  244. weldtextbox11.value = ""
  245. weldtextbox12.value = ""
  246. weldtextbox13.value = ""
  247. weldtextbox14.value = ""
  248. weldtextbox15.value = ""
  249. weldtextbox16.value = ""
  250. weldtextbox17.value = ""
  251. weldtextbox18.value = ""
  252. weldtextbox19.value = ""
  253. weldtextbox20.value = ""
  254. weldtextbox21.value = ""
  255. weldtextbox22.value = ""
  256. weldtextbox23.value = ""
  257. weldtextbox24.value = ""
  258.  
  259. 'clear textbox laser machine
  260. lasertextbox1.value = ""
  261. lasertextbox2.value = ""
  262. lasertextbox3.value = ""
  263. lasertextbox4.value = ""
  264. lasertextbox5.value = ""
  265. lasertextbox6.value = ""
  266. lasertextbox7.value = ""
  267. lasertextbox8.value = ""
  268. lasertextbox9.value = ""
  269. lasertextbox10.value = ""
  270. lasertextbox11.value = ""
  271. lasertextbox12.value = ""
  272. lasertextbox13.value = ""
  273. lasertextbox14.value = ""
  274. lasertextbox15.value = ""
  275. lasertextbox16.value = ""
  276. lasertextbox17.value = ""
  277. lasertextbox18.value = ""
  278.  
  279. 'clear textbox finishing machine
  280. finishtextbox1.value = ""
  281. finishtextbox2.value = ""
  282. finishtextbox3.value = ""
  283. finishtextbox4.value = ""
  284. finishtextbox5.value = ""
  285. finishtextbox6.value = ""
  286. finishtextbox7.value = ""
  287. finishtextbox8.value = ""
  288. finishtextbox9.value = ""
  289. finishtextbox10.value = ""
  290. finishtextbox11.value = ""
  291. finishtextbox12.value = ""
  292. finishtextbox13.value = ""
  293. finishtextbox14.value = ""
  294. finishtextbox15.value = ""
  295. finishtextbox16.value = ""
  296. finishtextbox17.value = ""
  297. finishtextbox18.value = ""
  298. finishtextbox19.value = ""
  299. finishtextbox20.value = ""
  300. finishtextbox21.value = ""
  301. finishtextbox22.value = ""
  302. finishtextbox23.value = ""
  303. finishtextbox24.value = ""
  304.  
  305. 'clear textbox forming machine
  306. FORMINGtextbox1.value = ""
  307. FORMINGtextbox2.value = ""
  308. FORMINGtextbox3.value = ""
  309. FORMINGtextbox4.value = ""
  310. FORMINGtextbox5.value = ""
  311. FORMINGtextbox6.value = ""
  312. FORMINGtextbox7.value = ""
  313. FORMINGtextbox8.value = ""
  314. FORMINGtextbox9.value = ""
  315. FORMINGtextbox10.value = ""
  316. FORMINGtextbox11.value = ""
  317. FORMINGtextbox12.value = ""
  318. FORMINGtextbox13.value = ""
  319. FORMINGtextbox14.value = ""
  320. FORMINGtextbox15.value = ""
  321. FORMINGtextbox16.value = ""
  322. FORMINGtextbox17.value = ""
  323. FORMINGtextbox18.value = ""
  324. FORMINGtextbox19.value = ""
  325. FORMINGtextbox20.value = ""
  326. FORMINGtextbox21.value = ""
  327. FORMINGtextbox22.value = ""
  328. FORMINGtextbox23.value = ""
  329. FORMINGtextbox24.value = ""
  330. FORMINGtextbox25.value = ""
  331. FORMINGtextbox26.value = ""
  332. FORMINGtextbox27.value = ""
  333. FORMINGtextbox28.value = ""
  334. FORMINGtextbox29.value = ""
  335. FORMINGtextbox30.value = ""
  336. FORMINGtextboxpage2_1.value = ""
  337. FORMINGtextboxpage2_2.value = ""
  338. FORMINGtextboxpage2_3.value = ""
  339. FORMINGtextboxpage2_4.value = ""
  340. FORMINGtextboxpage2_5.value = ""
  341. FORMINGtextboxpage2_6.value = ""
  342. FORMINGtextboxpage2_7.value = ""
  343. FORMINGtextboxpage2_8.value = ""
  344. FORMINGtextboxpage2_9.value = ""
  345. FORMINGtextboxpage2_10.value = ""
  346. FORMINGtextboxpage2_11.value = ""
  347. FORMINGtextboxpage2_12.value = ""
  348. FORMINGtextboxpage2_13.value = ""
  349. FORMINGtextboxpage2_14.value = ""
  350. FORMINGtextboxpage2_15.value = ""
  351. FORMINGtextboxpage2_16.value = ""
  352. FORMINGtextboxpage2_17.value = ""
  353. FORMINGtextboxpage2_18.value = ""
  354. FORMINGtextboxpage2_19.value = ""
  355. FORMINGtextboxpage2_20.value = ""
  356. FORMINGtextboxpage2_21.value = ""
  357. FORMINGtextboxpage2_22.value = ""
  358. FORMINGtextboxpage2_23.value = ""
  359. FORMINGtextboxpage2_24.value = ""
  360. FORMINGtextboxpage2_25.value = ""
  361. FORMINGtextboxpage2_26.value = ""
  362. FORMINGtextboxpage2_27.value = ""
  363. FORMINGtextboxpage2_28.value = ""
  364. FORMINGtextboxpage2_29.value = ""
  365. FORMINGtextboxpage2_30.value = ""
  366.  
  367. 'clear range value in worksheet spiralling machine page 1 - 7
  368. ThisWorkbook.Sheets("SPIRALLING DATE").Activate
  369. Range("B3:K5").value = ""
  370. Range("B8:K10").value = ""
  371. Range("B13:K15").value = ""
  372. Range("B18:K20").value = ""
  373. Range("B23:K25").value = ""
  374. Range("B28:K30").value = ""
  375. Range("B33:K35").value = ""
  376.  
  377. 'clear range value in worksheet welding machine
  378. ThisWorkbook.Sheets("WELDING DATE").Activate
  379. Range("B3:I5").value = ""
  380.  
  381. 'clear range value in worksheet laser machine
  382. ThisWorkbook.Sheets("LASER DATE").Activate
  383. Range("B3:G5").value = ""
  384.  
  385. 'clear range value in worksheet finishing machine
  386. ThisWorkbook.Sheets("FINISHING DATE").Activate
  387. Range("B3:I5").value = ""
  388.  
  389. 'clear range value in worksheet forming machine
  390. ThisWorkbook.Sheets("FORMING DATE").Activate
  391. Range("B3:K5").value = ""
  392. Range("B8:K10").value = ""
  393.  
  394. MsgBox "Data Has Been Cleared", vbInformation
  395.  
  396.  
  397. ElseIf mbresult = vbNo Then
  398. Cancel = True
  399.  
  400. End If
  401.  
  402. End Sub
  403.  
  404. Private Sub FINISHclick2_Click()
  405.  
  406.  
  407. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  408. If Format(Range("E21").value, "0%") = "100%" Then
  409. Range("E21").value = "99,1%"
  410. End If
  411.  
  412.  
  413. Dim foundSkill As Range
  414. Set foundSkill = Range("A:A").Find(nama_label.Caption)
  415. foundSkill.Select
  416. TPM_ERG.skillpercent.value = Format(ActiveCell.Offset(0, 4).value, "0%")
  417.  
  418. If TPM_ERG.skillpercent.value >= Format(Range("E21").value, "0%") Or TPM_ERG.skillpercent.value = "100%" Then
  419.  
  420. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  421. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  422. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  423.  
  424. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  425. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  426.  
  427. TPM_ERG.Label666.Caption = "YOUR FINISHING MACHINE SKILL IS : "
  428. Call skillgrade
  429.  
  430.  
  431.  
  432. ThisWorkbook.Sheets("FINISHING DATE").Activate
  433.  
  434. FINISHING_FRM.mach_label.Caption = TPM_ERG.FINISHlabel2.Caption
  435. FINISHING_FRM.Image1.Picture = LoadPicture(ThisWorkbook.path & "\Picture\Machine Picture\finishing.jpg")
  436.  
  437. FINISHING_FRM.m_1.value = Format(Range("C3"), "dd mmmm yyyy")
  438. FINISHING_FRM.m_2.value = Format(Range("C4"), "dd mmmm yyyy")
  439. FINISHING_FRM.m_3.value = Format(Range("C5"), "dd mmmm yyyy")
  440.  
  441. FINISHING_FRM.Caption = TPM_ERG.FINISHlabel2.Caption
  442.  
  443. TPM_ERG.calendartext.value = "86"
  444.  
  445. FINISHING_FRM.show
  446.  
  447.  
  448. Else:
  449.  
  450. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  451. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  452. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  453.  
  454. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  455. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  456.  
  457.  
  458. TPM_ERG.Label666.Caption = "YOUR FINISHING MACHINE SKILL IS : "
  459. Call skillgrade
  460.  
  461. UserForm2.show
  462.  
  463. End If
  464.  
  465. End Sub
  466.  
  467. Private Sub FINISHclick3_Click()
  468.  
  469.  
  470. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  471. If Format(Range("E21").value, "0%") = "100%" Then
  472. Range("E21").value = "99,1%"
  473. End If
  474.  
  475.  
  476. Dim foundSkill As Range
  477. Set foundSkill = Range("A:A").Find(nama_label.Caption)
  478. foundSkill.Select
  479. TPM_ERG.skillpercent.value = Format(ActiveCell.Offset(0, 4).value, "0%")
  480.  
  481. If TPM_ERG.skillpercent.value >= Format(Range("E21").value, "0%") Or TPM_ERG.skillpercent.value = "100%" Then
  482.  
  483. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  484. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  485. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  486.  
  487. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  488. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  489.  
  490. TPM_ERG.Label666.Caption = "YOUR FINISHING MACHINE SKILL IS : "
  491. Call skillgrade
  492.  
  493.  
  494.  
  495. ThisWorkbook.Sheets("FINISHING DATE").Activate
  496.  
  497. FINISHING_FRM.mach_label.Caption = TPM_ERG.FINISHlabel3.Caption
  498. FINISHING_FRM.Image1.Picture = LoadPicture(ThisWorkbook.path & "\Picture\Machine Picture\finishing.jpg")
  499.  
  500. FINISHING_FRM.m_1.value = Format(Range("D3"), "dd mmmm yyyy")
  501. FINISHING_FRM.m_2.value = Format(Range("D4"), "dd mmmm yyyy")
  502. FINISHING_FRM.m_3.value = Format(Range("D5"), "dd mmmm yyyy")
  503.  
  504. FINISHING_FRM.Caption = TPM_ERG.FINISHlabel3.Caption
  505.  
  506. TPM_ERG.calendartext.value = "87"
  507.  
  508. FINISHING_FRM.show
  509.  
  510. Else:
  511.  
  512. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  513. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  514. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  515.  
  516. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  517. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  518.  
  519.  
  520. TPM_ERG.Label666.Caption = "YOUR FINISHING MACHINE SKILL IS : "
  521. Call skillgrade
  522.  
  523. UserForm2.show
  524.  
  525. End If
  526.  
  527. End Sub
  528.  
  529. Private Sub FINISHclick4_Click()
  530.  
  531.  
  532.  
  533. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  534. If Format(Range("E21").value, "0%") = "100%" Then
  535. Range("E21").value = "99,1%"
  536. End If
  537.  
  538.  
  539. Dim foundSkill As Range
  540. Set foundSkill = Range("A:A").Find(nama_label.Caption)
  541. foundSkill.Select
  542. TPM_ERG.skillpercent.value = Format(ActiveCell.Offset(0, 4).value, "0%")
  543.  
  544. If TPM_ERG.skillpercent.value >= Format(Range("E21").value, "0%") Or TPM_ERG.skillpercent.value = "100%" Then
  545.  
  546. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  547. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  548. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  549.  
  550. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  551. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  552.  
  553. TPM_ERG.Label666.Caption = "YOUR FINISHING MACHINE SKILL IS : "
  554. Call skillgrade
  555.  
  556.  
  557. ThisWorkbook.Sheets("FINISHING DATE").Activate
  558.  
  559. FINISHING_FRM.mach_label.Caption = TPM_ERG.FINISHlabel4.Caption
  560. FINISHING_FRM.Image1.Picture = LoadPicture(ThisWorkbook.path & "\Picture\Machine Picture\finishing.jpg")
  561.  
  562. FINISHING_FRM.m_1.value = Format(Range("E3"), "dd mmmm yyyy")
  563. FINISHING_FRM.m_2.value = Format(Range("E4"), "dd mmmm yyyy")
  564. FINISHING_FRM.m_3.value = Format(Range("E5"), "dd mmmm yyyy")
  565.  
  566. FINISHING_FRM.Caption = TPM_ERG.FINISHlabel4.Caption
  567.  
  568. TPM_ERG.calendartext.value = "88"
  569.  
  570. FINISHING_FRM.show
  571.  
  572. Else:
  573.  
  574. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  575. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  576. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  577.  
  578. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  579. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  580.  
  581.  
  582. TPM_ERG.Label666.Caption = "YOUR FINISHING MACHINE SKILL IS : "
  583. Call skillgrade
  584.  
  585. UserForm2.show
  586.  
  587. End If
  588.  
  589. End Sub
  590.  
  591. Private Sub FINISHclick5_Click()
  592.  
  593. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  594. If Format(Range("E21").value, "0%") = "100%" Then
  595. Range("E21").value = "99,1%"
  596. End If
  597.  
  598.  
  599. Dim foundSkill As Range
  600. Set foundSkill = Range("A:A").Find(nama_label.Caption)
  601. foundSkill.Select
  602. TPM_ERG.skillpercent.value = Format(ActiveCell.Offset(0, 4).value, "0%")
  603.  
  604. If TPM_ERG.skillpercent.value >= Format(Range("E21").value, "0%") Or TPM_ERG.skillpercent.value = "100%" Then
  605.  
  606. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  607. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  608. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  609.  
  610. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  611. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  612.  
  613. TPM_ERG.Label666.Caption = "YOUR FINISHING MACHINE SKILL IS : "
  614. Call skillgrade
  615.  
  616.  
  617. ThisWorkbook.Sheets("FINISHING DATE").Activate
  618.  
  619. FINISHING_FRM.mach_label.Caption = TPM_ERG.FINISHlabel5.Caption
  620. FINISHING_FRM.Image1.Picture = LoadPicture(ThisWorkbook.path & "\Picture\Machine Picture\finishing.jpg")
  621.  
  622. FINISHING_FRM.m_1.value = Format(Range("F3"), "dd mmmm yyyy")
  623. FINISHING_FRM.m_2.value = Format(Range("F4"), "dd mmmm yyyy")
  624. FINISHING_FRM.m_3.value = Format(Range("F5"), "dd mmmm yyyy")
  625.  
  626. FINISHING_FRM.Caption = TPM_ERG.FINISHlabel5.Caption
  627.  
  628. TPM_ERG.calendartext.value = "89"
  629.  
  630. FINISHING_FRM.show
  631.  
  632. Else:
  633.  
  634. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  635. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  636. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  637.  
  638. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  639. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  640.  
  641.  
  642. TPM_ERG.Label666.Caption = "YOUR FINISHING MACHINE SKILL IS : "
  643. Call skillgrade
  644.  
  645. UserForm2.show
  646.  
  647. End If
  648.  
  649. End Sub
  650.  
  651. Private Sub FINISHclick6_Click()
  652.  
  653. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  654. If Format(Range("E21").value, "0%") = "100%" Then
  655. Range("E21").value = "99,1%"
  656. End If
  657.  
  658.  
  659. Dim foundSkill As Range
  660. Set foundSkill = Range("A:A").Find(nama_label.Caption)
  661. foundSkill.Select
  662. TPM_ERG.skillpercent.value = Format(ActiveCell.Offset(0, 4).value, "0%")
  663.  
  664. If TPM_ERG.skillpercent.value >= Format(Range("E21").value, "0%") Or TPM_ERG.skillpercent.value = "100%" Then
  665.  
  666. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  667. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  668. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  669.  
  670. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  671. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  672.  
  673. TPM_ERG.Label666.Caption = "YOUR FINISHING MACHINE SKILL IS : "
  674. Call skillgrade
  675.  
  676.  
  677. ThisWorkbook.Sheets("FINISHING DATE").Activate
  678.  
  679. FINISHING_FRM.mach_label.Caption = TPM_ERG.FINISHlabel6.Caption
  680. FINISHING_FRM.Image1.Picture = LoadPicture(ThisWorkbook.path & "\Picture\Machine Picture\finishing.jpg")
  681.  
  682. FINISHING_FRM.m_1.value = Format(Range("G3"), "dd mmmm yyyy")
  683. FINISHING_FRM.m_2.value = Format(Range("G4"), "dd mmmm yyyy")
  684. FINISHING_FRM.m_3.value = Format(Range("G5"), "dd mmmm yyyy")
  685.  
  686. FINISHING_FRM.Caption = TPM_ERG.FINISHlabel6.Caption
  687.  
  688. TPM_ERG.calendartext.value = "90"
  689.  
  690. FINISHING_FRM.show
  691.  
  692. Else:
  693.  
  694. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  695. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  696. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  697.  
  698. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  699. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  700.  
  701.  
  702. TPM_ERG.Label666.Caption = "YOUR FINISHING MACHINE SKILL IS : "
  703. Call skillgrade
  704.  
  705. UserForm2.show
  706.  
  707. End If
  708.  
  709. End Sub
  710.  
  711. Private Sub FINISHclick7_Click()
  712.  
  713. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  714. If Format(Range("E21").value, "0%") = "100%" Then
  715. Range("E21").value = "99,1%"
  716. End If
  717.  
  718.  
  719. Dim foundSkill As Range
  720. Set foundSkill = Range("A:A").Find(nama_label.Caption)
  721. foundSkill.Select
  722. TPM_ERG.skillpercent.value = Format(ActiveCell.Offset(0, 4).value, "0%")
  723.  
  724. If TPM_ERG.skillpercent.value >= Format(Range("E21").value, "0%") Or TPM_ERG.skillpercent.value = "100%" Then
  725.  
  726. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  727. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  728. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  729.  
  730. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  731. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  732.  
  733. TPM_ERG.Label666.Caption = "YOUR FINISHING MACHINE SKILL IS : "
  734. Call skillgrade
  735.  
  736.  
  737. ThisWorkbook.Sheets("FINISHING DATE").Activate
  738.  
  739. FINISHING_FRM.mach_label.Caption = TPM_ERG.FINISHlabel7.Caption
  740. FINISHING_FRM.Image1.Picture = LoadPicture(ThisWorkbook.path & "\Picture\Machine Picture\finishing.jpg")
  741.  
  742. FINISHING_FRM.m_1.value = Format(Range("H3"), "dd mmmm yyyy")
  743. FINISHING_FRM.m_2.value = Format(Range("H4"), "dd mmmm yyyy")
  744. FINISHING_FRM.m_3.value = Format(Range("H5"), "dd mmmm yyyy")
  745.  
  746. FINISHING_FRM.Caption = TPM_ERG.FINISHlabel7.Caption
  747.  
  748. TPM_ERG.calendartext.value = "91"
  749.  
  750. FINISHING_FRM.show
  751.  
  752. Else:
  753.  
  754. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  755. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  756. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  757.  
  758. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  759. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  760.  
  761.  
  762. TPM_ERG.Label666.Caption = "YOUR FINISHING MACHINE SKILL IS : "
  763. Call skillgrade
  764.  
  765. UserForm2.show
  766.  
  767. End If
  768.  
  769. End Sub
  770.  
  771. Private Sub FINISHclick8_Click()
  772.  
  773. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  774. If Format(Range("E21").value, "0%") = "100%" Then
  775. Range("E21").value = "99,1%"
  776. End If
  777.  
  778.  
  779. Dim foundSkill As Range
  780. Set foundSkill = Range("A:A").Find(nama_label.Caption)
  781. foundSkill.Select
  782. TPM_ERG.skillpercent.value = Format(ActiveCell.Offset(0, 4).value, "0%")
  783.  
  784. If TPM_ERG.skillpercent.value >= Format(Range("E21").value, "0%") Or TPM_ERG.skillpercent.value = "100%" Then
  785.  
  786. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  787. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  788. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  789.  
  790. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  791. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  792.  
  793. TPM_ERG.Label666.Caption = "YOUR FINISHING MACHINE SKILL IS : "
  794. Call skillgrade
  795.  
  796.  
  797. ThisWorkbook.Sheets("FINISHING DATE").Activate
  798.  
  799. FINISHING_FRM.mach_label.Caption = TPM_ERG.FINISHlabel8.Caption
  800. FINISHING_FRM.Image1.Picture = LoadPicture(ThisWorkbook.path & "\Picture\Machine Picture\finishing.jpg")
  801.  
  802. FINISHING_FRM.m_1.value = Format(Range("I3"), "dd mmmm yyyy")
  803. FINISHING_FRM.m_2.value = Format(Range("I4"), "dd mmmm yyyy")
  804. FINISHING_FRM.m_3.value = Format(Range("I5"), "dd mmmm yyyy")
  805.  
  806. FINISHING_FRM.Caption = TPM_ERG.FINISHlabel8.Caption
  807.  
  808. TPM_ERG.calendartext.value = "92"
  809.  
  810. FINISHING_FRM.show
  811.  
  812. Else:
  813.  
  814. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  815. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  816. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  817.  
  818. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  819. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  820.  
  821.  
  822. TPM_ERG.Label666.Caption = "YOUR FINISHING MACHINE SKILL IS : "
  823. Call skillgrade
  824.  
  825. UserForm2.show
  826.  
  827. End If
  828.  
  829. End Sub
  830.  
  831.  
  832. Private Sub FORMINGclick1_Click()
  833.  
  834. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  835. If Format(Range("F21").value, "0%") = "100%" Then
  836. Range("F21").value = "99,1%"
  837. End If
  838.  
  839. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  840. Dim foundSkill As Range
  841. Set foundSkill = Range("A:A").Find(nama_label.Caption)
  842. foundSkill.Select
  843. TPM_ERG.skillpercent.value = Format(ActiveCell.Offset(0, 5).value, "0%")
  844.  
  845. If TPM_ERG.skillpercent.value >= Format(Range("F21").value, "0%") Or TPM_ERG.skillpercent.value = "100%" Then
  846.  
  847. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  848. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  849. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  850.  
  851. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  852. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  853.  
  854. TPM_ERG.Label666.Caption = "YOUR FORMING MACHINE SKILL IS : "
  855. Call skillgrade
  856.  
  857. ThisWorkbook.Sheets("FORMING DATE").Activate
  858.  
  859. FORMING_FRM.mach_label.Caption = TPM_ERG.FORMINGlabel1.Caption
  860. FORMING_FRM.Image1.Picture = LoadPicture(ThisWorkbook.path & "\Picture\Machine Picture\forming.jpg")
  861.  
  862. FORMING_FRM.m_1.value = Format(Range("B3"), "dd mmmm yyyy")
  863. FORMING_FRM.m_2.value = Format(Range("B4"), "dd mmmm yyyy")
  864. FORMING_FRM.m_3.value = Format(Range("B5"), "dd mmmm yyyy")
  865.  
  866. FORMING_FRM.Caption = TPM_ERG.FORMINGlabel1.Caption
  867.  
  868. TPM_ERG.calendartext.value = "93"
  869.  
  870. FORMING_FRM.show
  871.  
  872. Else:
  873.  
  874. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  875. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  876. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  877.  
  878. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  879. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  880.  
  881.  
  882. TPM_ERG.Label666.Caption = "YOUR FORMING MACHINE SKILL IS : "
  883. Call skillgrade
  884.  
  885. UserForm2.show
  886.  
  887. End If
  888.  
  889.  
  890. End Sub
  891.  
  892. Private Sub FORMINGclick10_Click()
  893.  
  894. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  895. If Format(Range("F21").value, "0%") = "100%" Then
  896. Range("F21").value = "99,1%"
  897. End If
  898.  
  899. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  900. Dim foundSkill As Range
  901. Set foundSkill = Range("A:A").Find(nama_label.Caption)
  902. foundSkill.Select
  903. TPM_ERG.skillpercent.value = Format(ActiveCell.Offset(0, 5).value, "0%")
  904.  
  905. If TPM_ERG.skillpercent.value >= Format(Range("F21").value, "0%") Or TPM_ERG.skillpercent.value = "100%" Then
  906.  
  907. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  908. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  909. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  910.  
  911. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  912. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  913.  
  914. TPM_ERG.Label666.Caption = "YOUR FORMING MACHINE SKILL IS : "
  915. Call skillgrade
  916.  
  917.  
  918. ThisWorkbook.Sheets("FORMING DATE").Activate
  919.  
  920. FORMING_FRM.mach_label.Caption = TPM_ERG.FORMINGlabel10.Caption
  921. FORMING_FRM.Image1.Picture = LoadPicture(ThisWorkbook.path & "\Picture\Machine Picture\forming.jpg")
  922.  
  923. FORMING_FRM.m_1.value = Format(Range("K3"), "dd mmmm yyyy")
  924. FORMING_FRM.m_2.value = Format(Range("K4"), "dd mmmm yyyy")
  925. FORMING_FRM.m_3.value = Format(Range("K5"), "dd mmmm yyyy")
  926.  
  927. FORMING_FRM.Caption = TPM_ERG.FORMINGlabel10.Caption
  928.  
  929. TPM_ERG.calendartext.value = "102"
  930.  
  931. FORMING_FRM.show
  932.  
  933.  
  934. Else:
  935.  
  936. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  937. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  938. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  939.  
  940. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  941. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  942.  
  943.  
  944. TPM_ERG.Label666.Caption = "YOUR FORMING MACHINE SKILL IS : "
  945. Call skillgrade
  946.  
  947. UserForm2.show
  948.  
  949. End If
  950.  
  951.  
  952. End Sub
  953.  
  954. Private Sub FORMINGclick2_Click()
  955.  
  956. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  957. If Format(Range("F21").value, "0%") = "100%" Then
  958. Range("F21").value = "99,1%"
  959. End If
  960.  
  961. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  962. Dim foundSkill As Range
  963. Set foundSkill = Range("A:A").Find(nama_label.Caption)
  964. foundSkill.Select
  965. TPM_ERG.skillpercent.value = Format(ActiveCell.Offset(0, 5).value, "0%")
  966.  
  967. If TPM_ERG.skillpercent.value >= Format(Range("F21").value, "0%") Or TPM_ERG.skillpercent.value = "100%" Then
  968.  
  969. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  970. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  971. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  972.  
  973. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  974. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  975.  
  976. TPM_ERG.Label666.Caption = "YOUR FORMING MACHINE SKILL IS : "
  977. Call skillgrade
  978.  
  979. ThisWorkbook.Sheets("FORMING DATE").Activate
  980.  
  981. FORMING_FRM.mach_label.Caption = TPM_ERG.FORMINGlabel2.Caption
  982. FORMING_FRM.Image1.Picture = LoadPicture(ThisWorkbook.path & "\Picture\Machine Picture\forming.jpg")
  983.  
  984. FORMING_FRM.m_1.value = Format(Range("C3"), "dd mmmm yyyy")
  985. FORMING_FRM.m_2.value = Format(Range("C4"), "dd mmmm yyyy")
  986. FORMING_FRM.m_3.value = Format(Range("C5"), "dd mmmm yyyy")
  987.  
  988. FORMING_FRM.Caption = TPM_ERG.FORMINGlabel2.Caption
  989.  
  990. TPM_ERG.calendartext.value = "94"
  991.  
  992. FORMING_FRM.show
  993.  
  994.  
  995.  
  996. Else:
  997.  
  998. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  999. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  1000. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  1001.  
  1002. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  1003. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  1004.  
  1005.  
  1006. TPM_ERG.Label666.Caption = "YOUR FORMING MACHINE SKILL IS : "
  1007. Call skillgrade
  1008.  
  1009. UserForm2.show
  1010.  
  1011. End If
  1012. End Sub
  1013.  
  1014. Private Sub FORMINGclick3_Click()
  1015.  
  1016. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  1017. If Format(Range("F21").value, "0%") = "100%" Then
  1018. Range("F21").value = "99,1%"
  1019. End If
  1020.  
  1021. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  1022. Dim foundSkill As Range
  1023. Set foundSkill = Range("A:A").Find(nama_label.Caption)
  1024. foundSkill.Select
  1025. TPM_ERG.skillpercent.value = Format(ActiveCell.Offset(0, 5).value, "0%")
  1026.  
  1027. If TPM_ERG.skillpercent.value >= Format(Range("F21").value, "0%") Or TPM_ERG.skillpercent.value = "100%" Then
  1028.  
  1029. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  1030. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  1031. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  1032.  
  1033. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  1034. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  1035.  
  1036. TPM_ERG.Label666.Caption = "YOUR FORMING MACHINE SKILL IS : "
  1037. Call skillgrade
  1038.  
  1039.  
  1040. ThisWorkbook.Sheets("FORMING DATE").Activate
  1041.  
  1042. FORMING_FRM.mach_label.Caption = TPM_ERG.FORMINGlabel3.Caption
  1043. FORMING_FRM.Image1.Picture = LoadPicture(ThisWorkbook.path & "\Picture\Machine Picture\forming.jpg")
  1044.  
  1045. FORMING_FRM.m_1.value = Format(Range("D3"), "dd mmmm yyyy")
  1046. FORMING_FRM.m_2.value = Format(Range("D4"), "dd mmmm yyyy")
  1047. FORMING_FRM.m_3.value = Format(Range("D5"), "dd mmmm yyyy")
  1048.  
  1049. FORMING_FRM.Caption = TPM_ERG.FORMINGlabel3.Caption
  1050.  
  1051. TPM_ERG.calendartext.value = "95"
  1052.  
  1053. FORMING_FRM.show
  1054.  
  1055.  
  1056. Else:
  1057.  
  1058. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  1059. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  1060. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  1061.  
  1062. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  1063. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  1064.  
  1065.  
  1066. TPM_ERG.Label666.Caption = "YOUR FORMING MACHINE SKILL IS : "
  1067. Call skillgrade
  1068.  
  1069. UserForm2.show
  1070.  
  1071. End If
  1072.  
  1073. End Sub
  1074.  
  1075.  
  1076. Private Sub FORMINGclick4_Click()
  1077.  
  1078. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  1079. If Format(Range("F21").value, "0%") = "100%" Then
  1080. Range("F21").value = "99,1%"
  1081. End If
  1082.  
  1083. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  1084. Dim foundSkill As Range
  1085. Set foundSkill = Range("A:A").Find(nama_label.Caption)
  1086. foundSkill.Select
  1087. TPM_ERG.skillpercent.value = Format(ActiveCell.Offset(0, 5).value, "0%")
  1088.  
  1089. If TPM_ERG.skillpercent.value >= Format(Range("F21").value, "0%") Or TPM_ERG.skillpercent.value = "100%" Then
  1090.  
  1091. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  1092. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  1093. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  1094.  
  1095. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  1096. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  1097.  
  1098. TPM_ERG.Label666.Caption = "YOUR FORMING MACHINE SKILL IS : "
  1099. Call skillgrade
  1100.  
  1101.  
  1102. ThisWorkbook.Sheets("FORMING DATE").Activate
  1103.  
  1104. FORMING_FRM.mach_label.Caption = TPM_ERG.FORMINGlabel4.Caption
  1105. FORMING_FRM.Image1.Picture = LoadPicture(ThisWorkbook.path & "\Picture\Machine Picture\forming.jpg")
  1106.  
  1107. FORMING_FRM.m_1.value = Format(Range("E3"), "dd mmmm yyyy")
  1108. FORMING_FRM.m_2.value = Format(Range("E4"), "dd mmmm yyyy")
  1109. FORMING_FRM.m_3.value = Format(Range("E5"), "dd mmmm yyyy")
  1110.  
  1111. FORMING_FRM.Caption = TPM_ERG.FORMINGlabel4.Caption
  1112.  
  1113. TPM_ERG.calendartext.value = "96"
  1114.  
  1115. FORMING_FRM.show
  1116.  
  1117.  
  1118.  
  1119. Else:
  1120.  
  1121. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  1122. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  1123. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  1124.  
  1125. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  1126. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  1127.  
  1128.  
  1129. TPM_ERG.Label666.Caption = "YOUR FORMING MACHINE SKILL IS : "
  1130. Call skillgrade
  1131.  
  1132. UserForm2.show
  1133.  
  1134. End If
  1135. End Sub
  1136.  
  1137. Private Sub FORMINGclick5_Click()
  1138.  
  1139. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  1140. If Format(Range("F21").value, "0%") = "100%" Then
  1141. Range("F21").value = "99,1%"
  1142. End If
  1143.  
  1144. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  1145. Dim foundSkill As Range
  1146. Set foundSkill = Range("A:A").Find(nama_label.Caption)
  1147. foundSkill.Select
  1148. TPM_ERG.skillpercent.value = Format(ActiveCell.Offset(0, 5).value, "0%")
  1149.  
  1150. If TPM_ERG.skillpercent.value >= Format(Range("F21").value, "0%") Or TPM_ERG.skillpercent.value = "100%" Then
  1151.  
  1152. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  1153. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  1154. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  1155.  
  1156. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  1157. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  1158.  
  1159. TPM_ERG.Label666.Caption = "YOUR FORMING MACHINE SKILL IS : "
  1160. Call skillgrade
  1161.  
  1162.  
  1163. ThisWorkbook.Sheets("FORMING DATE").Activate
  1164.  
  1165. FORMING_FRM.mach_label.Caption = TPM_ERG.FORMINGlabel5.Caption
  1166. FORMING_FRM.Image1.Picture = LoadPicture(ThisWorkbook.path & "\Picture\Machine Picture\forming.jpg")
  1167.  
  1168. FORMING_FRM.m_1.value = Format(Range("F3"), "dd mmmm yyyy")
  1169. FORMING_FRM.m_2.value = Format(Range("F4"), "dd mmmm yyyy")
  1170. FORMING_FRM.m_3.value = Format(Range("F5"), "dd mmmm yyyy")
  1171.  
  1172. FORMING_FRM.Caption = TPM_ERG.FORMINGlabel5.Caption
  1173.  
  1174. TPM_ERG.calendartext.value = "97"
  1175.  
  1176. FORMING_FRM.show
  1177.  
  1178.  
  1179.  
  1180. Else:
  1181.  
  1182. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  1183. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  1184. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  1185.  
  1186. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  1187. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  1188.  
  1189.  
  1190. TPM_ERG.Label666.Caption = "YOUR FORMING MACHINE SKILL IS : "
  1191. Call skillgrade
  1192.  
  1193. UserForm2.show
  1194.  
  1195. End If
  1196. End Sub
  1197.  
  1198. Private Sub FORMINGclick6_Click()
  1199.  
  1200. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  1201. If Format(Range("F21").value, "0%") = "100%" Then
  1202. Range("F21").value = "99,1%"
  1203. End If
  1204.  
  1205. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  1206. Dim foundSkill As Range
  1207. Set foundSkill = Range("A:A").Find(nama_label.Caption)
  1208. foundSkill.Select
  1209. TPM_ERG.skillpercent.value = Format(ActiveCell.Offset(0, 5).value, "0%")
  1210.  
  1211. If TPM_ERG.skillpercent.value >= Format(Range("F21").value, "0%") Or TPM_ERG.skillpercent.value = "100%" Then
  1212.  
  1213. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  1214. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  1215. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  1216.  
  1217. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  1218. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  1219.  
  1220. TPM_ERG.Label666.Caption = "YOUR FORMING MACHINE SKILL IS : "
  1221. Call skillgrade
  1222.  
  1223.  
  1224. ThisWorkbook.Sheets("FORMING DATE").Activate
  1225.  
  1226. FORMING_FRM.mach_label.Caption = TPM_ERG.FORMINGlabel6.Caption
  1227. FORMING_FRM.Image1.Picture = LoadPicture(ThisWorkbook.path & "\Picture\Machine Picture\forming.jpg")
  1228.  
  1229. FORMING_FRM.m_1.value = Format(Range("G3"), "dd mmmm yyyy")
  1230. FORMING_FRM.m_2.value = Format(Range("G4"), "dd mmmm yyyy")
  1231. FORMING_FRM.m_3.value = Format(Range("G5"), "dd mmmm yyyy")
  1232.  
  1233. FORMING_FRM.Caption = TPM_ERG.FORMINGlabel6.Caption
  1234.  
  1235. TPM_ERG.calendartext.value = "98"
  1236.  
  1237. FORMING_FRM.show
  1238.  
  1239.  
  1240.  
  1241. Else:
  1242.  
  1243. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  1244. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  1245. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  1246.  
  1247. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  1248. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  1249.  
  1250.  
  1251. TPM_ERG.Label666.Caption = "YOUR FORMING MACHINE SKILL IS : "
  1252. Call skillgrade
  1253.  
  1254. UserForm2.show
  1255.  
  1256. End If
  1257. End Sub
  1258.  
  1259. Private Sub FORMINGclick7_Click()
  1260.  
  1261. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  1262. If Format(Range("F21").value, "0%") = "100%" Then
  1263. Range("F21").value = "99,1%"
  1264. End If
  1265.  
  1266. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  1267. Dim foundSkill As Range
  1268. Set foundSkill = Range("A:A").Find(nama_label.Caption)
  1269. foundSkill.Select
  1270. TPM_ERG.skillpercent.value = Format(ActiveCell.Offset(0, 5).value, "0%")
  1271.  
  1272. If TPM_ERG.skillpercent.value >= Format(Range("F21").value, "0%") Or TPM_ERG.skillpercent.value = "100%" Then
  1273.  
  1274. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  1275. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  1276. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  1277.  
  1278. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  1279. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  1280.  
  1281. TPM_ERG.Label666.Caption = "YOUR FORMING MACHINE SKILL IS : "
  1282. Call skillgrade
  1283.  
  1284.  
  1285. ThisWorkbook.Sheets("FORMING DATE").Activate
  1286.  
  1287. FORMING_FRM.mach_label.Caption = TPM_ERG.FORMINGlabel7.Caption
  1288. FORMING_FRM.Image1.Picture = LoadPicture(ThisWorkbook.path & "\Picture\Machine Picture\forming.jpg")
  1289.  
  1290. FORMING_FRM.m_1.value = Format(Range("H3"), "dd mmmm yyyy")
  1291. FORMING_FRM.m_2.value = Format(Range("H4"), "dd mmmm yyyy")
  1292. FORMING_FRM.m_3.value = Format(Range("H5"), "dd mmmm yyyy")
  1293.  
  1294. FORMING_FRM.Caption = TPM_ERG.FORMINGlabel7.Caption
  1295.  
  1296. TPM_ERG.calendartext.value = "99"
  1297.  
  1298. FORMING_FRM.show
  1299.  
  1300.  
  1301.  
  1302. Else:
  1303.  
  1304. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  1305. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  1306. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  1307.  
  1308. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  1309. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  1310.  
  1311.  
  1312. TPM_ERG.Label666.Caption = "YOUR FORMING MACHINE SKILL IS : "
  1313. Call skillgrade
  1314.  
  1315. UserForm2.show
  1316.  
  1317. End If
  1318. End Sub
  1319.  
  1320. Private Sub FORMINGclick8_Click()
  1321.  
  1322. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  1323. If Format(Range("F21").value, "0%") = "100%" Then
  1324. Range("F21").value = "99,1%"
  1325. End If
  1326.  
  1327. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  1328. Dim foundSkill As Range
  1329. Set foundSkill = Range("A:A").Find(nama_label.Caption)
  1330. foundSkill.Select
  1331. TPM_ERG.skillpercent.value = Format(ActiveCell.Offset(0, 5).value, "0%")
  1332.  
  1333. If TPM_ERG.skillpercent.value >= Format(Range("F21").value, "0%") Or TPM_ERG.skillpercent.value = "100%" Then
  1334.  
  1335. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  1336. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  1337. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  1338.  
  1339. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  1340. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  1341.  
  1342. TPM_ERG.Label666.Caption = "YOUR FORMING MACHINE SKILL IS : "
  1343. Call skillgrade
  1344.  
  1345.  
  1346. ThisWorkbook.Sheets("FORMING DATE").Activate
  1347.  
  1348. FORMING_FRM.mach_label.Caption = TPM_ERG.FORMINGlabel8.Caption
  1349. FORMING_FRM.Image1.Picture = LoadPicture(ThisWorkbook.path & "\Picture\Machine Picture\forming.jpg")
  1350.  
  1351. FORMING_FRM.m_1.value = Format(Range("I3"), "dd mmmm yyyy")
  1352. FORMING_FRM.m_2.value = Format(Range("I4"), "dd mmmm yyyy")
  1353. FORMING_FRM.m_3.value = Format(Range("I5"), "dd mmmm yyyy")
  1354.  
  1355. FORMING_FRM.Caption = TPM_ERG.FORMINGlabel8.Caption
  1356.  
  1357. TPM_ERG.calendartext.value = "100"
  1358.  
  1359. FORMING_FRM.show
  1360.  
  1361.  
  1362.  
  1363. Else:
  1364.  
  1365. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  1366. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  1367. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  1368.  
  1369. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  1370. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  1371.  
  1372.  
  1373. TPM_ERG.Label666.Caption = "YOUR FORMING MACHINE SKILL IS : "
  1374. Call skillgrade
  1375.  
  1376. UserForm2.show
  1377.  
  1378. End If
  1379.  
  1380. End Sub
  1381.  
  1382. Private Sub FORMINGclick9_Click()
  1383.  
  1384. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  1385. If Format(Range("F21").value, "0%") = "100%" Then
  1386. Range("F21").value = "99,1%"
  1387. End If
  1388.  
  1389. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  1390. Dim foundSkill As Range
  1391. Set foundSkill = Range("A:A").Find(nama_label.Caption)
  1392. foundSkill.Select
  1393. TPM_ERG.skillpercent.value = Format(ActiveCell.Offset(0, 5).value, "0%")
  1394.  
  1395. If TPM_ERG.skillpercent.value >= Format(Range("F21").value, "0%") Or TPM_ERG.skillpercent.value = "100%" Then
  1396.  
  1397. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  1398. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  1399. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  1400.  
  1401. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  1402. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  1403.  
  1404. TPM_ERG.Label666.Caption = "YOUR FORMING MACHINE SKILL IS : "
  1405. Call skillgrade
  1406.  
  1407.  
  1408. ThisWorkbook.Sheets("FORMING DATE").Activate
  1409.  
  1410. FORMING_FRM.mach_label.Caption = TPM_ERG.FORMINGlabel9.Caption
  1411. FORMING_FRM.Image1.Picture = LoadPicture(ThisWorkbook.path & "\Picture\Machine Picture\forming.jpg")
  1412.  
  1413. FORMING_FRM.m_1.value = Format(Range("J3"), "dd mmmm yyyy")
  1414. FORMING_FRM.m_2.value = Format(Range("J4"), "dd mmmm yyyy")
  1415. FORMING_FRM.m_3.value = Format(Range("J5"), "dd mmmm yyyy")
  1416.  
  1417. FORMING_FRM.Caption = TPM_ERG.FORMINGlabel9.Caption
  1418.  
  1419. TPM_ERG.calendartext.value = "101"
  1420.  
  1421. FORMING_FRM.show
  1422.  
  1423.  
  1424.  
  1425. Else:
  1426.  
  1427. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  1428. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  1429. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  1430.  
  1431. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  1432. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  1433.  
  1434.  
  1435. TPM_ERG.Label666.Caption = "YOUR FORMING MACHINE SKILL IS : "
  1436. Call skillgrade
  1437.  
  1438. UserForm2.show
  1439.  
  1440. End If
  1441. End Sub
  1442.  
  1443. Private Sub FORMINGclickpage2_1_Click()
  1444.  
  1445. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  1446. If Format(Range("F21").value, "0%") = "100%" Then
  1447. Range("F21").value = "99,1%"
  1448. End If
  1449.  
  1450. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  1451. Dim foundSkill As Range
  1452. Set foundSkill = Range("A:A").Find(nama_label.Caption)
  1453. foundSkill.Select
  1454. TPM_ERG.skillpercent.value = Format(ActiveCell.Offset(0, 5).value, "0%")
  1455.  
  1456. If TPM_ERG.skillpercent.value >= Format(Range("F21").value, "0%") Or TPM_ERG.skillpercent.value = "100%" Then
  1457.  
  1458. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  1459. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  1460. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  1461.  
  1462. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  1463. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  1464.  
  1465. TPM_ERG.Label666.Caption = "YOUR FORMING MACHINE SKILL IS : "
  1466. Call skillgrade
  1467.  
  1468. ThisWorkbook.Sheets("FORMING DATE").Activate
  1469.  
  1470. FORMING_FRM.mach_label.Caption = TPM_ERG.FORMINGlabel11.Caption
  1471. FORMING_FRM.Image1.Picture = LoadPicture(ThisWorkbook.path & "\Picture\Machine Picture\forming.jpg")
  1472.  
  1473. FORMING_FRM.m_1.value = Format(Range("B8"), "dd mmmm yyyy")
  1474. FORMING_FRM.m_2.value = Format(Range("B9"), "dd mmmm yyyy")
  1475. FORMING_FRM.m_3.value = Format(Range("B10"), "dd mmmm yyyy")
  1476.  
  1477. FORMING_FRM.Caption = TPM_ERG.FORMINGlabel11.Caption
  1478.  
  1479. TPM_ERG.calendartext.value = "103"
  1480.  
  1481. FORMING_FRM.show
  1482.  
  1483. Else:
  1484.  
  1485. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  1486. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  1487. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  1488.  
  1489. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  1490. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  1491.  
  1492.  
  1493. TPM_ERG.Label666.Caption = "YOUR FORMING MACHINE SKILL IS : "
  1494. Call skillgrade
  1495.  
  1496. UserForm2.show
  1497.  
  1498. End If
  1499.  
  1500.  
  1501.  
  1502. End Sub
  1503. Private Sub FORMINGclickpage2_2_Click()
  1504.  
  1505.  
  1506. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  1507. If Format(Range("F21").value, "0%") = "100%" Then
  1508. Range("F21").value = "99,1%"
  1509. End If
  1510.  
  1511. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  1512. Dim foundSkill As Range
  1513. Set foundSkill = Range("A:A").Find(nama_label.Caption)
  1514. foundSkill.Select
  1515. TPM_ERG.skillpercent.value = Format(ActiveCell.Offset(0, 5).value, "0%")
  1516.  
  1517. If TPM_ERG.skillpercent.value >= Format(Range("F21").value, "0%") Or TPM_ERG.skillpercent.value = "100%" Then
  1518.  
  1519. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  1520. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  1521. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  1522.  
  1523. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  1524. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  1525.  
  1526. TPM_ERG.Label666.Caption = "YOUR FORMING MACHINE SKILL IS : "
  1527. Call skillgrade
  1528.  
  1529. ThisWorkbook.Sheets("FORMING DATE").Activate
  1530.  
  1531. FORMING_FRM.mach_label.Caption = TPM_ERG.FORMINGlabel12.Caption
  1532. FORMING_FRM.Image1.Picture = LoadPicture(ThisWorkbook.path & "\Picture\Machine Picture\forming.jpg")
  1533.  
  1534. FORMING_FRM.m_1.value = Format(Range("C8"), "dd mmmm yyyy")
  1535. FORMING_FRM.m_2.value = Format(Range("C9"), "dd mmmm yyyy")
  1536. FORMING_FRM.m_3.value = Format(Range("C10"), "dd mmmm yyyy")
  1537.  
  1538. FORMING_FRM.Caption = TPM_ERG.FORMINGlabel12.Caption
  1539.  
  1540. TPM_ERG.calendartext.value = "104"
  1541.  
  1542. FORMING_FRM.show
  1543.  
  1544. Else:
  1545.  
  1546. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  1547. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  1548. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  1549.  
  1550. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  1551. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  1552.  
  1553.  
  1554. TPM_ERG.Label666.Caption = "YOUR FORMING MACHINE SKILL IS : "
  1555. Call skillgrade
  1556.  
  1557. UserForm2.show
  1558.  
  1559. End If
  1560.  
  1561. End Sub
  1562. Private Sub FORMINGclickpage2_3_Click()
  1563.  
  1564. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  1565. If Format(Range("F21").value, "0%") = "100%" Then
  1566. Range("F21").value = "99,1%"
  1567. End If
  1568.  
  1569. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  1570. Dim foundSkill As Range
  1571. Set foundSkill = Range("A:A").Find(nama_label.Caption)
  1572. foundSkill.Select
  1573. TPM_ERG.skillpercent.value = Format(ActiveCell.Offset(0, 5).value, "0%")
  1574.  
  1575. If TPM_ERG.skillpercent.value >= Format(Range("F21").value, "0%") Or TPM_ERG.skillpercent.value = "100%" Then
  1576.  
  1577. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  1578. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  1579. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  1580.  
  1581. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  1582. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  1583.  
  1584. TPM_ERG.Label666.Caption = "YOUR FORMING MACHINE SKILL IS : "
  1585. Call skillgrade
  1586.  
  1587. ThisWorkbook.Sheets("FORMING DATE").Activate
  1588.  
  1589. FORMING_FRM.mach_label.Caption = TPM_ERG.FORMINGlabel13.Caption
  1590. FORMING_FRM.Image1.Picture = LoadPicture(ThisWorkbook.path & "\Picture\Machine Picture\forming.jpg")
  1591.  
  1592. FORMING_FRM.m_1.value = Format(Range("D8"), "dd mmmm yyyy")
  1593. FORMING_FRM.m_2.value = Format(Range("D9"), "dd mmmm yyyy")
  1594. FORMING_FRM.m_3.value = Format(Range("D10"), "dd mmmm yyyy")
  1595.  
  1596. FORMING_FRM.Caption = TPM_ERG.FORMINGlabel13.Caption
  1597.  
  1598. TPM_ERG.calendartext.value = "105"
  1599.  
  1600. FORMING_FRM.show
  1601.  
  1602. Else:
  1603.  
  1604. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  1605. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  1606. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  1607.  
  1608. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  1609. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  1610.  
  1611.  
  1612. TPM_ERG.Label666.Caption = "YOUR FORMING MACHINE SKILL IS : "
  1613. Call skillgrade
  1614.  
  1615. UserForm2.show
  1616.  
  1617. End If
  1618.  
  1619. End Sub
  1620. Private Sub FORMINGclickpage2_4_Click()
  1621.  
  1622. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  1623. If Format(Range("F21").value, "0%") = "100%" Then
  1624. Range("F21").value = "99,1%"
  1625. End If
  1626.  
  1627. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  1628. Dim foundSkill As Range
  1629. Set foundSkill = Range("A:A").Find(nama_label.Caption)
  1630. foundSkill.Select
  1631. TPM_ERG.skillpercent.value = Format(ActiveCell.Offset(0, 5).value, "0%")
  1632.  
  1633. If TPM_ERG.skillpercent.value >= Format(Range("F21").value, "0%") Or TPM_ERG.skillpercent.value = "100%" Then
  1634.  
  1635. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  1636. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  1637. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  1638.  
  1639. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  1640. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  1641.  
  1642. TPM_ERG.Label666.Caption = "YOUR FORMING MACHINE SKILL IS : "
  1643. Call skillgrade
  1644.  
  1645. ThisWorkbook.Sheets("FORMING DATE").Activate
  1646.  
  1647. FORMING_FRM.mach_label.Caption = TPM_ERG.FORMINGlabel14.Caption
  1648. FORMING_FRM.Image1.Picture = LoadPicture(ThisWorkbook.path & "\Picture\Machine Picture\forming.jpg")
  1649.  
  1650. FORMING_FRM.m_1.value = Format(Range("E8"), "dd mmmm yyyy")
  1651. FORMING_FRM.m_2.value = Format(Range("E9"), "dd mmmm yyyy")
  1652. FORMING_FRM.m_3.value = Format(Range("E10"), "dd mmmm yyyy")
  1653.  
  1654. FORMING_FRM.Caption = TPM_ERG.FORMINGlabel14.Caption
  1655.  
  1656. TPM_ERG.calendartext.value = "106"
  1657.  
  1658. FORMING_FRM.show
  1659.  
  1660. Else:
  1661.  
  1662. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  1663. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  1664. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  1665.  
  1666. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  1667. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  1668.  
  1669.  
  1670. TPM_ERG.Label666.Caption = "YOUR FORMING MACHINE SKILL IS : "
  1671. Call skillgrade
  1672.  
  1673. UserForm2.show
  1674.  
  1675. End If
  1676.  
  1677.  
  1678. End Sub
  1679. Private Sub FORMINGclickpage2_5_Click()
  1680.  
  1681. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  1682. If Format(Range("F21").value, "0%") = "100%" Then
  1683. Range("F21").value = "99,1%"
  1684. End If
  1685.  
  1686. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  1687. Dim foundSkill As Range
  1688. Set foundSkill = Range("A:A").Find(nama_label.Caption)
  1689. foundSkill.Select
  1690. TPM_ERG.skillpercent.value = Format(ActiveCell.Offset(0, 5).value, "0%")
  1691.  
  1692. If TPM_ERG.skillpercent.value >= Format(Range("F21").value, "0%") Or TPM_ERG.skillpercent.value = "100%" Then
  1693.  
  1694. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  1695. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  1696. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  1697.  
  1698. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  1699. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  1700.  
  1701. TPM_ERG.Label666.Caption = "YOUR FORMING MACHINE SKILL IS : "
  1702. Call skillgrade
  1703.  
  1704. ThisWorkbook.Sheets("FORMING DATE").Activate
  1705.  
  1706. FORMING_FRM.mach_label.Caption = TPM_ERG.FORMINGlabel15.Caption
  1707. FORMING_FRM.Image1.Picture = LoadPicture(ThisWorkbook.path & "\Picture\Machine Picture\forming.jpg")
  1708.  
  1709. FORMING_FRM.m_1.value = Format(Range("F8"), "dd mmmm yyyy")
  1710. FORMING_FRM.m_2.value = Format(Range("F9"), "dd mmmm yyyy")
  1711. FORMING_FRM.m_3.value = Format(Range("F10"), "dd mmmm yyyy")
  1712.  
  1713. FORMING_FRM.Caption = TPM_ERG.FORMINGlabel15.Caption
  1714.  
  1715. TPM_ERG.calendartext.value = "107"
  1716.  
  1717. FORMING_FRM.show
  1718.  
  1719. Else:
  1720.  
  1721. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  1722. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  1723. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  1724.  
  1725. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  1726. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  1727.  
  1728.  
  1729. TPM_ERG.Label666.Caption = "YOUR FORMING MACHINE SKILL IS : "
  1730. Call skillgrade
  1731.  
  1732. UserForm2.show
  1733.  
  1734. End If
  1735.  
  1736.  
  1737. End Sub
  1738. Private Sub FORMINGclickpage2_6_Click()
  1739.  
  1740. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  1741. If Format(Range("F21").value, "0%") = "100%" Then
  1742. Range("F21").value = "99,1%"
  1743. End If
  1744.  
  1745. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  1746. Dim foundSkill As Range
  1747. Set foundSkill = Range("A:A").Find(nama_label.Caption)
  1748. foundSkill.Select
  1749. TPM_ERG.skillpercent.value = Format(ActiveCell.Offset(0, 5).value, "0%")
  1750.  
  1751. If TPM_ERG.skillpercent.value >= Format(Range("F21").value, "0%") Or TPM_ERG.skillpercent.value = "100%" Then
  1752.  
  1753. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  1754. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  1755. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  1756.  
  1757. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  1758. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  1759.  
  1760. TPM_ERG.Label666.Caption = "YOUR FORMING MACHINE SKILL IS : "
  1761. Call skillgrade
  1762.  
  1763. ThisWorkbook.Sheets("FORMING DATE").Activate
  1764.  
  1765. FORMING_FRM.mach_label.Caption = TPM_ERG.FORMINGlabel16.Caption
  1766. FORMING_FRM.Image1.Picture = LoadPicture(ThisWorkbook.path & "\Picture\Machine Picture\forming.jpg")
  1767.  
  1768. FORMING_FRM.m_1.value = Format(Range("G8"), "dd mmmm yyyy")
  1769. FORMING_FRM.m_2.value = Format(Range("G9"), "dd mmmm yyyy")
  1770. FORMING_FRM.m_3.value = Format(Range("G10"), "dd mmmm yyyy")
  1771.  
  1772. FORMING_FRM.Caption = TPM_ERG.FORMINGlabel16.Caption
  1773.  
  1774. TPM_ERG.calendartext.value = "108"
  1775.  
  1776. FORMING_FRM.show
  1777.  
  1778. Else:
  1779.  
  1780. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  1781. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  1782. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  1783.  
  1784. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  1785. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  1786.  
  1787.  
  1788. TPM_ERG.Label666.Caption = "YOUR FORMING MACHINE SKILL IS : "
  1789. Call skillgrade
  1790.  
  1791. UserForm2.show
  1792.  
  1793. End If
  1794.  
  1795.  
  1796.  
  1797. End Sub
  1798. Private Sub FORMINGclickpage2_7_Click()
  1799.  
  1800. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  1801. If Format(Range("F21").value, "0%") = "100%" Then
  1802. Range("F21").value = "99,1%"
  1803. End If
  1804.  
  1805. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  1806. Dim foundSkill As Range
  1807. Set foundSkill = Range("A:A").Find(nama_label.Caption)
  1808. foundSkill.Select
  1809. TPM_ERG.skillpercent.value = Format(ActiveCell.Offset(0, 5).value, "0%")
  1810.  
  1811. If TPM_ERG.skillpercent.value >= Format(Range("F21").value, "0%") Or TPM_ERG.skillpercent.value = "100%" Then
  1812.  
  1813. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  1814. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  1815. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  1816.  
  1817. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  1818. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  1819.  
  1820. TPM_ERG.Label666.Caption = "YOUR FORMING MACHINE SKILL IS : "
  1821. Call skillgrade
  1822.  
  1823. ThisWorkbook.Sheets("FORMING DATE").Activate
  1824.  
  1825. FORMING_FRM.mach_label.Caption = TPM_ERG.FORMINGlabel17.Caption
  1826. FORMING_FRM.Image1.Picture = LoadPicture(ThisWorkbook.path & "\Picture\Machine Picture\forming.jpg")
  1827.  
  1828. FORMING_FRM.m_1.value = Format(Range("H8"), "dd mmmm yyyy")
  1829. FORMING_FRM.m_2.value = Format(Range("H9"), "dd mmmm yyyy")
  1830. FORMING_FRM.m_3.value = Format(Range("H10"), "dd mmmm yyyy")
  1831.  
  1832. FORMING_FRM.Caption = TPM_ERG.FORMINGlabel17.Caption
  1833.  
  1834. TPM_ERG.calendartext.value = "109"
  1835.  
  1836. FORMING_FRM.show
  1837.  
  1838. Else:
  1839.  
  1840. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  1841. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  1842. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  1843.  
  1844. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  1845. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  1846.  
  1847.  
  1848. TPM_ERG.Label666.Caption = "YOUR FORMING MACHINE SKILL IS : "
  1849. Call skillgrade
  1850.  
  1851. UserForm2.show
  1852.  
  1853. End If
  1854.  
  1855.  
  1856.  
  1857. End Sub
  1858. Private Sub FORMINGclickpage2_8_Click()
  1859.  
  1860. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  1861. If Format(Range("F21").value, "0%") = "100%" Then
  1862. Range("F21").value = "99,1%"
  1863. End If
  1864.  
  1865. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  1866. Dim foundSkill As Range
  1867. Set foundSkill = Range("A:A").Find(nama_label.Caption)
  1868. foundSkill.Select
  1869. TPM_ERG.skillpercent.value = Format(ActiveCell.Offset(0, 5).value, "0%")
  1870.  
  1871. If TPM_ERG.skillpercent.value >= Format(Range("F21").value, "0%") Or TPM_ERG.skillpercent.value = "100%" Then
  1872.  
  1873. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  1874. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  1875. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  1876.  
  1877. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  1878. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  1879.  
  1880. TPM_ERG.Label666.Caption = "YOUR FORMING MACHINE SKILL IS : "
  1881. Call skillgrade
  1882.  
  1883. ThisWorkbook.Sheets("FORMING DATE").Activate
  1884.  
  1885. FORMING_FRM.mach_label.Caption = TPM_ERG.FORMINGlabel18.Caption
  1886. FORMING_FRM.Image1.Picture = LoadPicture(ThisWorkbook.path & "\Picture\Machine Picture\forming.jpg")
  1887.  
  1888. FORMING_FRM.m_1.value = Format(Range("I8"), "dd mmmm yyyy")
  1889. FORMING_FRM.m_2.value = Format(Range("I9"), "dd mmmm yyyy")
  1890. FORMING_FRM.m_3.value = Format(Range("I10"), "dd mmmm yyyy")
  1891.  
  1892. FORMING_FRM.Caption = TPM_ERG.FORMINGlabel18.Caption
  1893.  
  1894. TPM_ERG.calendartext.value = "110"
  1895.  
  1896. FORMING_FRM.show
  1897.  
  1898. Else:
  1899.  
  1900. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  1901. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  1902. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  1903.  
  1904. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  1905. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  1906.  
  1907.  
  1908. TPM_ERG.Label666.Caption = "YOUR FORMING MACHINE SKILL IS : "
  1909. Call skillgrade
  1910.  
  1911. UserForm2.show
  1912.  
  1913. End If
  1914.  
  1915.  
  1916. End Sub
  1917. Private Sub FORMINGclickpage2_9_Click()
  1918.  
  1919. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  1920. If Format(Range("F21").value, "0%") = "100%" Then
  1921. Range("F21").value = "99,1%"
  1922. End If
  1923.  
  1924. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  1925. Dim foundSkill As Range
  1926. Set foundSkill = Range("A:A").Find(nama_label.Caption)
  1927. foundSkill.Select
  1928. TPM_ERG.skillpercent.value = Format(ActiveCell.Offset(0, 5).value, "0%")
  1929.  
  1930. If TPM_ERG.skillpercent.value >= Format(Range("F21").value, "0%") Or TPM_ERG.skillpercent.value = "100%" Then
  1931.  
  1932. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  1933. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  1934. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  1935.  
  1936. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  1937. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  1938.  
  1939. TPM_ERG.Label666.Caption = "YOUR FORMING MACHINE SKILL IS : "
  1940. Call skillgrade
  1941.  
  1942. ThisWorkbook.Sheets("FORMING DATE").Activate
  1943.  
  1944. FORMING_FRM.mach_label.Caption = TPM_ERG.FORMINGlabel19.Caption
  1945. FORMING_FRM.Image1.Picture = LoadPicture(ThisWorkbook.path & "\Picture\Machine Picture\forming.jpg")
  1946.  
  1947. FORMING_FRM.m_1.value = Format(Range("J8"), "dd mmmm yyyy")
  1948. FORMING_FRM.m_2.value = Format(Range("J9"), "dd mmmm yyyy")
  1949. FORMING_FRM.m_3.value = Format(Range("J10"), "dd mmmm yyyy")
  1950.  
  1951. FORMING_FRM.Caption = TPM_ERG.FORMINGlabel19.Caption
  1952.  
  1953. TPM_ERG.calendartext.value = "111"
  1954.  
  1955. FORMING_FRM.show
  1956.  
  1957. Else:
  1958.  
  1959. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  1960. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  1961. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  1962.  
  1963. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  1964. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  1965.  
  1966.  
  1967. TPM_ERG.Label666.Caption = "YOUR FORMING MACHINE SKILL IS : "
  1968. Call skillgrade
  1969.  
  1970. UserForm2.show
  1971.  
  1972. End If
  1973.  
  1974.  
  1975. End Sub
  1976. Private Sub FORMINGclickpage2_10_Click()
  1977.  
  1978. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  1979. If Format(Range("F21").value, "0%") = "100%" Then
  1980. Range("F21").value = "99,1%"
  1981. End If
  1982.  
  1983. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  1984. Dim foundSkill As Range
  1985. Set foundSkill = Range("A:A").Find(nama_label.Caption)
  1986. foundSkill.Select
  1987. TPM_ERG.skillpercent.value = Format(ActiveCell.Offset(0, 5).value, "0%")
  1988.  
  1989. If TPM_ERG.skillpercent.value >= Format(Range("F21").value, "0%") Or TPM_ERG.skillpercent.value = "100%" Then
  1990.  
  1991. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  1992. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  1993. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  1994.  
  1995. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  1996. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  1997.  
  1998. TPM_ERG.Label666.Caption = "YOUR FORMING MACHINE SKILL IS : "
  1999. Call skillgrade
  2000.  
  2001. ThisWorkbook.Sheets("FORMING DATE").Activate
  2002.  
  2003. FORMING_FRM.mach_label.Caption = TPM_ERG.FORMINGlabel20.Caption
  2004. FORMING_FRM.Image1.Picture = LoadPicture(ThisWorkbook.path & "\Picture\Machine Picture\forming.jpg")
  2005.  
  2006. FORMING_FRM.m_1.value = Format(Range("K8"), "dd mmmm yyyy")
  2007. FORMING_FRM.m_2.value = Format(Range("K9"), "dd mmmm yyyy")
  2008. FORMING_FRM.m_3.value = Format(Range("K10"), "dd mmmm yyyy")
  2009.  
  2010. FORMING_FRM.Caption = TPM_ERG.FORMINGlabel20.Caption
  2011.  
  2012. TPM_ERG.calendartext.value = "112"
  2013.  
  2014. FORMING_FRM.show
  2015.  
  2016. Else:
  2017.  
  2018. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  2019. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  2020. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  2021.  
  2022. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  2023. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  2024.  
  2025.  
  2026. TPM_ERG.Label666.Caption = "YOUR FORMING MACHINE SKILL IS : "
  2027. Call skillgrade
  2028.  
  2029. UserForm2.show
  2030.  
  2031. End If
  2032.  
  2033.  
  2034.  
  2035. End Sub
  2036.  
  2037. Private Sub Image160_BeforeDragOver(ByVal Cancel As MSForms.ReturnBoolean, ByVal Data As MSForms.DataObject, ByVal X As Single, ByVal Y As Single, ByVal DragState As MSForms.fmDragState, ByVal Effect As MSForms.ReturnEffect, ByVal Shift As Integer)
  2038.  
  2039. End Sub
  2040.  
  2041. Private Sub Image64_BeforeDragOver(ByVal Cancel As MSForms.ReturnBoolean, ByVal Data As MSForms.DataObject, ByVal X As Single, ByVal Y As Single, ByVal DragState As MSForms.fmDragState, ByVal Effect As MSForms.ReturnEffect, ByVal Shift As Integer)
  2042.  
  2043. End Sub
  2044.  
  2045. Private Sub Label316_Click()
  2046.  
  2047.  
  2048. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  2049. If Format(Range("B21").value, "0%") = "100%" Then
  2050. Range("B21").value = "99,1%"
  2051. End If
  2052.  
  2053.  
  2054. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  2055. Dim foundSkill As Range
  2056. Set foundSkill = Range("A:A").Find(nama_label.Caption)
  2057. foundSkill.Select
  2058. TPM_ERG.skillpercent.value = Format(ActiveCell.Offset(0, 1).value, "0%")
  2059.  
  2060. If TPM_ERG.skillpercent.value >= Format(Range("B21").value, "0%") Or TPM_ERG.skillpercent.value = "100%" Then
  2061.  
  2062. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  2063. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  2064. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  2065.  
  2066. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  2067. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  2068.  
  2069.  
  2070.  
  2071. TPM_ERG.Label666.Caption = "YOUR SPIRALLING MACHINE SKILL IS : "
  2072. Call skillgrade
  2073.  
  2074. ThisWorkbook.Sheets("SPIRALLING DATE").Activate
  2075. SPIRAL.mach_label.Caption = TPM_ERG.Label659.Caption
  2076. SPIRAL.Image1.Picture = LoadPicture(ThisWorkbook.path & "\Picture\Machine Picture\spiralling.jpg")
  2077.  
  2078. SPIRAL.m_1.value = Format(Range("C3"), "dd mmmm yyyy")
  2079. SPIRAL.m_2.value = Format(Range("C4"), "dd mmmm yyyy")
  2080. SPIRAL.m_3.value = Format(Range("C5"), "dd mmmm yyyy")
  2081.  
  2082. SPIRAL.Caption = TPM_ERG.Label659.Caption
  2083.  
  2084. TPM_ERG.calendartext.value = "2"
  2085.  
  2086. SPIRAL.show
  2087.  
  2088. Else:
  2089.  
  2090. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  2091. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  2092. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  2093.  
  2094. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  2095. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  2096.  
  2097.  
  2098. TPM_ERG.Label666.Caption = "YOUR SPIRALLING MACHINE SKILL IS : "
  2099. Call skillgrade
  2100.  
  2101. UserForm2.show
  2102. End If
  2103. End Sub
  2104.  
  2105. Private Sub Label319_Click()
  2106.  
  2107. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  2108. If Format(Range("B21").value, "0%") = "100%" Then
  2109. Range("B21").value = "99,1%"
  2110. End If
  2111.  
  2112.  
  2113. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  2114. Dim foundSkill As Range
  2115. Set foundSkill = Range("A:A").Find(nama_label.Caption)
  2116. foundSkill.Select
  2117. TPM_ERG.skillpercent.value = Format(ActiveCell.Offset(0, 1).value, "0%")
  2118.  
  2119. If TPM_ERG.skillpercent.value >= Format(Range("B21").value, "0%") Or TPM_ERG.skillpercent.value = "100%" Then
  2120.  
  2121. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  2122. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  2123. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  2124.  
  2125. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  2126. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  2127.  
  2128.  
  2129.  
  2130. TPM_ERG.Label666.Caption = "YOUR SPIRALLING MACHINE SKILL IS : "
  2131. Call skillgrade
  2132.  
  2133.  
  2134.  
  2135.  
  2136. ThisWorkbook.Sheets("SPIRALLING DATE").Activate
  2137. SPIRAL.mach_label.Caption = TPM_ERG.Label321.Caption
  2138. SPIRAL.Image1.Picture = LoadPicture(ThisWorkbook.path & "\Picture\Machine Picture\spiralling.jpg")
  2139.  
  2140. SPIRAL.m_1.value = Format(Range("D3"), "dd mmmm yyyy")
  2141. SPIRAL.m_2.value = Format(Range("D4"), "dd mmmm yyyy")
  2142. SPIRAL.m_3.value = Format(Range("D5"), "dd mmmm yyyy")
  2143.  
  2144. SPIRAL.Caption = TPM_ERG.Label321.Caption
  2145.  
  2146. TPM_ERG.calendartext.value = "3"
  2147.  
  2148. SPIRAL.show
  2149.  
  2150. Else:
  2151.  
  2152. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  2153. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  2154. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  2155.  
  2156. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  2157. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  2158.  
  2159.  
  2160. TPM_ERG.Label666.Caption = "YOUR SPIRALLING MACHINE SKILL IS : "
  2161. Call skillgrade
  2162.  
  2163. UserForm2.show
  2164.  
  2165. End If
  2166.  
  2167.  
  2168. End Sub
  2169.  
  2170. Private Sub Label322_Click()
  2171.  
  2172. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  2173. If Format(Range("B21").value, "0%") = "100%" Then
  2174. Range("B21").value = "99,1%"
  2175. End If
  2176.  
  2177.  
  2178. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  2179. Dim foundSkill As Range
  2180. Set foundSkill = Range("A:A").Find(nama_label.Caption)
  2181. foundSkill.Select
  2182. TPM_ERG.skillpercent.value = Format(ActiveCell.Offset(0, 1).value, "0%")
  2183.  
  2184. If TPM_ERG.skillpercent.value >= Format(Range("B21").value, "0%") Or TPM_ERG.skillpercent.value = "100%" Then
  2185.  
  2186. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  2187. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  2188. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  2189.  
  2190. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  2191. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  2192.  
  2193.  
  2194.  
  2195. TPM_ERG.Label666.Caption = "YOUR SPIRALLING MACHINE SKILL IS : "
  2196. Call skillgrade
  2197.  
  2198.  
  2199.  
  2200. ThisWorkbook.Sheets("SPIRALLING DATE").Activate
  2201. SPIRAL.mach_label.Caption = TPM_ERG.Label324.Caption
  2202. SPIRAL.Image1.Picture = LoadPicture(ThisWorkbook.path & "\Picture\Machine Picture\spiralling.jpg")
  2203.  
  2204. SPIRAL.m_1.value = Format(Range("E3"), "dd mmmm yyyy")
  2205. SPIRAL.m_2.value = Format(Range("E4"), "dd mmmm yyyy")
  2206. SPIRAL.m_3.value = Format(Range("E5"), "dd mmmm yyyy")
  2207.  
  2208. SPIRAL.Caption = TPM_ERG.Label324.Caption
  2209.  
  2210. TPM_ERG.calendartext.value = "4"
  2211.  
  2212. SPIRAL.show
  2213.  
  2214. Else:
  2215.  
  2216. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  2217. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  2218. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  2219.  
  2220. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  2221. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  2222.  
  2223.  
  2224. TPM_ERG.Label666.Caption = "YOUR SPIRALLING MACHINE SKILL IS : "
  2225. Call skillgrade
  2226.  
  2227. UserForm2.show
  2228.  
  2229. End If
  2230.  
  2231.  
  2232. End Sub
  2233.  
  2234. Private Sub Label325_Click()
  2235.  
  2236.  
  2237. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  2238. If Format(Range("B21").value, "0%") = "100%" Then
  2239. Range("B21").value = "99,1%"
  2240. End If
  2241.  
  2242.  
  2243. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  2244. Dim foundSkill As Range
  2245. Set foundSkill = Range("A:A").Find(nama_label.Caption)
  2246. foundSkill.Select
  2247. TPM_ERG.skillpercent.value = Format(ActiveCell.Offset(0, 1).value, "0%")
  2248.  
  2249. If TPM_ERG.skillpercent.value >= Format(Range("B21").value, "0%") Or TPM_ERG.skillpercent.value = "100%" Then
  2250.  
  2251. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  2252. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  2253. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  2254.  
  2255. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  2256. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  2257.  
  2258.  
  2259.  
  2260. TPM_ERG.Label666.Caption = "YOUR SPIRALLING MACHINE SKILL IS : "
  2261. Call skillgrade
  2262.  
  2263.  
  2264. ThisWorkbook.Sheets("SPIRALLING DATE").Activate
  2265. SPIRAL.mach_label.Caption = TPM_ERG.Label327.Caption
  2266. SPIRAL.Image1.Picture = LoadPicture(ThisWorkbook.path & "\Picture\Machine Picture\spiralling.jpg")
  2267.  
  2268. SPIRAL.m_1.value = Format(Range("F3"), "dd mmmm yyyy")
  2269. SPIRAL.m_2.value = Format(Range("F4"), "dd mmmm yyyy")
  2270. SPIRAL.m_3.value = Format(Range("F5"), "dd mmmm yyyy")
  2271.  
  2272. SPIRAL.Caption = TPM_ERG.Label327.Caption
  2273.  
  2274. TPM_ERG.calendartext.value = "5"
  2275.  
  2276. SPIRAL.show
  2277.  
  2278.  
  2279. Else:
  2280.  
  2281. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  2282. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  2283. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  2284.  
  2285. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  2286. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  2287.  
  2288.  
  2289. TPM_ERG.Label666.Caption = "YOUR SPIRALLING MACHINE SKILL IS : "
  2290. Call skillgrade
  2291.  
  2292. UserForm2.show
  2293.  
  2294. End If
  2295.  
  2296. End Sub
  2297.  
  2298. Private Sub Label328_Click()
  2299.  
  2300.  
  2301. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  2302. If Format(Range("B21").value, "0%") = "100%" Then
  2303. Range("B21").value = "99,1%"
  2304. End If
  2305.  
  2306.  
  2307. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  2308. Dim foundSkill As Range
  2309. Set foundSkill = Range("A:A").Find(nama_label.Caption)
  2310. foundSkill.Select
  2311. TPM_ERG.skillpercent.value = Format(ActiveCell.Offset(0, 1).value, "0%")
  2312.  
  2313. If TPM_ERG.skillpercent.value >= Format(Range("B21").value, "0%") Or TPM_ERG.skillpercent.value = "100%" Then
  2314.  
  2315. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  2316. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  2317. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  2318.  
  2319. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  2320. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  2321.  
  2322.  
  2323.  
  2324. TPM_ERG.Label666.Caption = "YOUR SPIRALLING MACHINE SKILL IS : "
  2325. Call skillgrade
  2326.  
  2327.  
  2328. ThisWorkbook.Sheets("SPIRALLING DATE").Activate
  2329. SPIRAL.mach_label.Caption = TPM_ERG.Label330.Caption
  2330. SPIRAL.Image1.Picture = LoadPicture(ThisWorkbook.path & "\Picture\Machine Picture\spiralling.jpg")
  2331.  
  2332. SPIRAL.m_1.value = Format(Range("G3"), "dd mmmm yyyy")
  2333. SPIRAL.m_2.value = Format(Range("G4"), "dd mmmm yyyy")
  2334. SPIRAL.m_3.value = Format(Range("G5"), "dd mmmm yyyy")
  2335.  
  2336. SPIRAL.Caption = TPM_ERG.Label330.Caption
  2337.  
  2338. TPM_ERG.calendartext.value = "6"
  2339.  
  2340. SPIRAL.show
  2341.  
  2342. Else:
  2343.  
  2344. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  2345. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  2346. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  2347.  
  2348. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  2349. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  2350.  
  2351.  
  2352. TPM_ERG.Label666.Caption = "YOUR SPIRALLING MACHINE SKILL IS : "
  2353. Call skillgrade
  2354.  
  2355. UserForm2.show
  2356.  
  2357. End If
  2358.  
  2359.  
  2360. End Sub
  2361.  
  2362. Private Sub Label331_Click()
  2363.  
  2364.  
  2365. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  2366. If Format(Range("B21").value, "0%") = "100%" Then
  2367. Range("B21").value = "99,1%"
  2368. End If
  2369.  
  2370.  
  2371. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  2372. Dim foundSkill As Range
  2373. Set foundSkill = Range("A:A").Find(nama_label.Caption)
  2374. foundSkill.Select
  2375. TPM_ERG.skillpercent.value = Format(ActiveCell.Offset(0, 1).value, "0%")
  2376.  
  2377. If TPM_ERG.skillpercent.value >= Format(Range("B21").value, "0%") Or TPM_ERG.skillpercent.value = "100%" Then
  2378.  
  2379. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  2380. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  2381. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  2382.  
  2383. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  2384. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  2385.  
  2386.  
  2387.  
  2388. TPM_ERG.Label666.Caption = "YOUR SPIRALLING MACHINE SKILL IS : "
  2389. Call skillgrade
  2390.  
  2391.  
  2392. ThisWorkbook.Sheets("SPIRALLING DATE").Activate
  2393. SPIRAL.mach_label.Caption = TPM_ERG.Label333.Caption
  2394. SPIRAL.Image1.Picture = LoadPicture(ThisWorkbook.path & "\Picture\Machine Picture\spiralling.jpg")
  2395.  
  2396. SPIRAL.m_1.value = Format(Range("H3"), "dd mmmm yyyy")
  2397. SPIRAL.m_2.value = Format(Range("H4"), "dd mmmm yyyy")
  2398. SPIRAL.m_3.value = Format(Range("H5"), "dd mmmm yyyy")
  2399.  
  2400. SPIRAL.Caption = TPM_ERG.Label333.Caption
  2401.  
  2402. TPM_ERG.calendartext.value = "7"
  2403.  
  2404. SPIRAL.show
  2405.  
  2406. Else:
  2407.  
  2408. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  2409. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  2410. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  2411.  
  2412. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  2413. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  2414.  
  2415.  
  2416. TPM_ERG.Label666.Caption = "YOUR SPIRALLING MACHINE SKILL IS : "
  2417. Call skillgrade
  2418.  
  2419. UserForm2.show
  2420.  
  2421. End If
  2422.  
  2423.  
  2424. End Sub
  2425.  
  2426. Private Sub Label336_Click()
  2427.  
  2428.  
  2429. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  2430. If Format(Range("B21").value, "0%") = "100%" Then
  2431. Range("B21").value = "99,1%"
  2432. End If
  2433.  
  2434.  
  2435. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  2436. Dim foundSkill As Range
  2437. Set foundSkill = Range("A:A").Find(nama_label.Caption)
  2438. foundSkill.Select
  2439. TPM_ERG.skillpercent.value = Format(ActiveCell.Offset(0, 1).value, "0%")
  2440.  
  2441. If TPM_ERG.skillpercent.value >= Format(Range("B21").value, "0%") Or TPM_ERG.skillpercent.value = "100%" Then
  2442.  
  2443. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  2444. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  2445. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  2446.  
  2447. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  2448. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  2449.  
  2450.  
  2451.  
  2452. TPM_ERG.Label666.Caption = "YOUR SPIRALLING MACHINE SKILL IS : "
  2453. Call skillgrade
  2454.  
  2455.  
  2456. ThisWorkbook.Sheets("SPIRALLING DATE").Activate
  2457. SPIRAL.mach_label.Caption = TPM_ERG.Label335.Caption
  2458. SPIRAL.Image1.Picture = LoadPicture(ThisWorkbook.path & "\Picture\Machine Picture\spiralling.jpg")
  2459.  
  2460. SPIRAL.m_1.value = Format(Range("I3"), "dd mmmm yyyy")
  2461. SPIRAL.m_2.value = Format(Range("I4"), "dd mmmm yyyy")
  2462. SPIRAL.m_3.value = Format(Range("I5"), "dd mmmm yyyy")
  2463.  
  2464. SPIRAL.Caption = TPM_ERG.Label335.Caption
  2465.  
  2466. TPM_ERG.calendartext.value = "8"
  2467.  
  2468. SPIRAL.show
  2469.  
  2470. Else:
  2471.  
  2472. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  2473. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  2474. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  2475.  
  2476. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  2477. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  2478.  
  2479.  
  2480. TPM_ERG.Label666.Caption = "YOUR SPIRALLING MACHINE SKILL IS : "
  2481. Call skillgrade
  2482.  
  2483. UserForm2.show
  2484.  
  2485. End If
  2486.  
  2487.  
  2488. End Sub
  2489.  
  2490. Private Sub Label339_Click()
  2491.  
  2492.  
  2493. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  2494. If Format(Range("B21").value, "0%") = "100%" Then
  2495. Range("B21").value = "99,1%"
  2496. End If
  2497.  
  2498.  
  2499. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  2500. Dim foundSkill As Range
  2501. Set foundSkill = Range("A:A").Find(nama_label.Caption)
  2502. foundSkill.Select
  2503. TPM_ERG.skillpercent.value = Format(ActiveCell.Offset(0, 1).value, "0%")
  2504.  
  2505. If TPM_ERG.skillpercent.value >= Format(Range("B21").value, "0%") Or TPM_ERG.skillpercent.value = "100%" Then
  2506.  
  2507. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  2508. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  2509. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  2510.  
  2511. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  2512. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  2513.  
  2514.  
  2515.  
  2516. TPM_ERG.Label666.Caption = "YOUR SPIRALLING MACHINE SKILL IS : "
  2517. Call skillgrade
  2518.  
  2519.  
  2520. ThisWorkbook.Sheets("SPIRALLING DATE").Activate
  2521. SPIRAL.mach_label.Caption = TPM_ERG.Label338.Caption
  2522. SPIRAL.Image1.Picture = LoadPicture(ThisWorkbook.path & "\Picture\Machine Picture\spiralling.jpg")
  2523.  
  2524. SPIRAL.m_1.value = Format(Range("J3"), "dd mmmm yyyy")
  2525. SPIRAL.m_2.value = Format(Range("J4"), "dd mmmm yyyy")
  2526. SPIRAL.m_3.value = Format(Range("J5"), "dd mmmm yyyy")
  2527.  
  2528. SPIRAL.Caption = TPM_ERG.Label338.Caption
  2529.  
  2530. TPM_ERG.calendartext.value = "9"
  2531.  
  2532. SPIRAL.show
  2533.  
  2534.  
  2535.  
  2536.  
  2537. Else:
  2538.  
  2539. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  2540. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  2541. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  2542.  
  2543. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  2544. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  2545.  
  2546.  
  2547. TPM_ERG.Label666.Caption = "YOUR SPIRALLING MACHINE SKILL IS : "
  2548. Call skillgrade
  2549.  
  2550. UserForm2.show
  2551.  
  2552. End If
  2553. End Sub
  2554.  
  2555. Private Sub Label340_Click()
  2556.  
  2557.  
  2558. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  2559. If Format(Range("B21").value, "0%") = "100%" Then
  2560. Range("B21").value = "99,1%"
  2561. End If
  2562.  
  2563.  
  2564. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  2565. Dim foundSkill As Range
  2566. Set foundSkill = Range("A:A").Find(nama_label.Caption)
  2567. foundSkill.Select
  2568. TPM_ERG.skillpercent.value = Format(ActiveCell.Offset(0, 1).value, "0%")
  2569.  
  2570. If TPM_ERG.skillpercent.value >= Format(Range("B21").value, "0%") Or TPM_ERG.skillpercent.value = "100%" Then
  2571.  
  2572. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  2573. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  2574. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  2575.  
  2576. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  2577. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  2578.  
  2579.  
  2580.  
  2581. TPM_ERG.Label666.Caption = "YOUR SPIRALLING MACHINE SKILL IS : "
  2582. Call skillgrade
  2583.  
  2584.  
  2585. ThisWorkbook.Sheets("SPIRALLING DATE").Activate
  2586. SPIRAL.mach_label.Caption = TPM_ERG.Label308.Caption
  2587. SPIRAL.Image1.Picture = LoadPicture(ThisWorkbook.path & "\Picture\Machine Picture\spiralling.jpg")
  2588.  
  2589. SPIRAL.m_1.value = Format(Range("K3"), "dd mmmm yyyy")
  2590. SPIRAL.m_2.value = Format(Range("K4"), "dd mmmm yyyy")
  2591. SPIRAL.m_3.value = Format(Range("K5"), "dd mmmm yyyy")
  2592.  
  2593. SPIRAL.Caption = TPM_ERG.Label308.Caption
  2594.  
  2595. TPM_ERG.calendartext.value = "10"
  2596.  
  2597. SPIRAL.show
  2598.  
  2599. Else:
  2600.  
  2601. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  2602. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  2603. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  2604.  
  2605. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  2606. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  2607.  
  2608.  
  2609. TPM_ERG.Label666.Caption = "YOUR SPIRALLING MACHINE SKILL IS : "
  2610. Call skillgrade
  2611.  
  2612. UserForm2.show
  2613.  
  2614. End If
  2615.  
  2616.  
  2617. End Sub
  2618.  
  2619.  
  2620. Private Sub Label551_Click()
  2621.  
  2622. End Sub
  2623.  
  2624. Private Sub Label537_Click()
  2625.  
  2626. End Sub
  2627.  
  2628. Private Sub Label546_Click()
  2629.  
  2630. End Sub
  2631.  
  2632. Private Sub LASERclick1_Click()
  2633.  
  2634. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  2635. If Format(Range("D21").value, "0%") = "100%" Then
  2636. Range("D21").value = "99,1%"
  2637. End If
  2638.  
  2639. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  2640. Dim foundSkill As Range
  2641. Set foundSkill = Range("A:A").Find(nama_label.Caption)
  2642. foundSkill.Select
  2643. TPM_ERG.skillpercent.value = Format(ActiveCell.Offset(0, 3).value, "0%")
  2644.  
  2645. If TPM_ERG.skillpercent.value >= Format(Range("D21").value, "0%") Or TPM_ERG.skillpercent.value = "100%" Then
  2646.  
  2647. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  2648. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  2649. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  2650.  
  2651. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  2652. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  2653.  
  2654.  
  2655.  
  2656. TPM_ERG.Label666.Caption = "YOUR LASER MACHINE SKILL IS : "
  2657. Call skillgrade
  2658.  
  2659. ThisWorkbook.Sheets("LASER DATE").Activate
  2660.  
  2661. LASER_FRM.mach_label.Caption = TPM_ERG.LASERlabel1.Caption
  2662. LASER_FRM.Image1.Picture = LoadPicture(ThisWorkbook.path & "\Picture\Machine Picture\laser.jpg")
  2663.  
  2664. LASER_FRM.m_1.value = Format(Range("B3"), "dd mmmm yyyy")
  2665. LASER_FRM.m_2.value = Format(Range("B4"), "dd mmmm yyyy")
  2666. LASER_FRM.m_3.value = Format(Range("B5"), "dd mmmm yyyy")
  2667.  
  2668. LASER_FRM.Caption = TPM_ERG.LASERlabel1.Caption
  2669.  
  2670. TPM_ERG.calendartext.value = "78"
  2671.  
  2672. LASER_FRM.show
  2673.  
  2674. Else:
  2675.  
  2676. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  2677. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  2678. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  2679.  
  2680. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  2681. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  2682.  
  2683.  
  2684. TPM_ERG.Label666.Caption = "YOUR LASER MACHINE SKILL IS : "
  2685. Call skillgrade
  2686.  
  2687. UserForm2.show
  2688.  
  2689. End If
  2690.  
  2691.  
  2692. End Sub
  2693.  
  2694. Private Sub LASERclick2_Click()
  2695.  
  2696. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  2697. If Format(Range("D21").value, "0%") = "100%" Then
  2698. Range("D21").value = "99,1%"
  2699. End If
  2700.  
  2701. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  2702. Dim foundSkill As Range
  2703. Set foundSkill = Range("A:A").Find(nama_label.Caption)
  2704. foundSkill.Select
  2705. TPM_ERG.skillpercent.value = Format(ActiveCell.Offset(0, 3).value, "0%")
  2706.  
  2707. If TPM_ERG.skillpercent.value >= Format(Range("D21").value, "0%") Or TPM_ERG.skillpercent.value = "100%" Then
  2708.  
  2709. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  2710. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  2711. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  2712.  
  2713. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  2714. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  2715.  
  2716.  
  2717.  
  2718. TPM_ERG.Label666.Caption = "YOUR LASER MACHINE SKILL IS : "
  2719. Call skillgrade
  2720. ThisWorkbook.Sheets("LASER DATE").Activate
  2721.  
  2722. LASER_FRM.mach_label.Caption = TPM_ERG.LASERlabel2.Caption
  2723. LASER_FRM.Image1.Picture = LoadPicture(ThisWorkbook.path & "\Picture\Machine Picture\laser.jpg")
  2724.  
  2725. LASER_FRM.m_1.value = Format(Range("C3"), "dd mmmm yyyy")
  2726. LASER_FRM.m_2.value = Format(Range("C4"), "dd mmmm yyyy")
  2727. LASER_FRM.m_3.value = Format(Range("C5"), "dd mmmm yyyy")
  2728.  
  2729. LASER_FRM.Caption = TPM_ERG.LASERlabel2.Caption
  2730.  
  2731. TPM_ERG.calendartext.value = "79"
  2732.  
  2733. LASER_FRM.show
  2734.  
  2735.  
  2736. Else:
  2737.  
  2738. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  2739. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  2740. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  2741.  
  2742. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  2743. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  2744.  
  2745.  
  2746. TPM_ERG.Label666.Caption = "YOUR LASER MACHINE SKILL IS : "
  2747. Call skillgrade
  2748.  
  2749. UserForm2.show
  2750.  
  2751. End If
  2752.  
  2753.  
  2754. End Sub
  2755.  
  2756. Private Sub LASERclick3_Click()
  2757.  
  2758. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  2759. If Format(Range("D21").value, "0%") = "100%" Then
  2760. Range("D21").value = "99,1%"
  2761. End If
  2762.  
  2763. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  2764. Dim foundSkill As Range
  2765. Set foundSkill = Range("A:A").Find(nama_label.Caption)
  2766. foundSkill.Select
  2767. TPM_ERG.skillpercent.value = Format(ActiveCell.Offset(0, 3).value, "0%")
  2768.  
  2769. If TPM_ERG.skillpercent.value >= Format(Range("D21").value, "0%") Or TPM_ERG.skillpercent.value = "100%" Then
  2770.  
  2771. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  2772. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  2773. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  2774.  
  2775. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  2776. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  2777.  
  2778.  
  2779.  
  2780. TPM_ERG.Label666.Caption = "YOUR LASER MACHINE SKILL IS : "
  2781. Call skillgrade
  2782.  
  2783. ThisWorkbook.Sheets("LASER DATE").Activate
  2784.  
  2785. LASER_FRM.mach_label.Caption = TPM_ERG.LASERlabel3.Caption
  2786. LASER_FRM.Image1.Picture = LoadPicture(ThisWorkbook.path & "\Picture\Machine Picture\laser.jpg")
  2787.  
  2788. LASER_FRM.m_1.value = Format(Range("D3"), "dd mmmm yyyy")
  2789. LASER_FRM.m_2.value = Format(Range("D4"), "dd mmmm yyyy")
  2790. LASER_FRM.m_3.value = Format(Range("D5"), "dd mmmm yyyy")
  2791.  
  2792. LASER_FRM.Caption = TPM_ERG.LASERlabel3.Caption
  2793.  
  2794. TPM_ERG.calendartext.value = "80"
  2795.  
  2796. LASER_FRM.show
  2797.  
  2798. Else:
  2799.  
  2800. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  2801. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  2802. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  2803.  
  2804. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  2805. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  2806.  
  2807.  
  2808. TPM_ERG.Label666.Caption = "YOUR LASER MACHINE SKILL IS : "
  2809. Call skillgrade
  2810.  
  2811. UserForm2.show
  2812.  
  2813. End If
  2814.  
  2815. End Sub
  2816.  
  2817. Private Sub LASERclick4_Click()
  2818.  
  2819.  
  2820. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  2821. If Format(Range("D21").value, "0%") = "100%" Then
  2822. Range("D21").value = "99,1%"
  2823. End If
  2824.  
  2825. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  2826. Dim foundSkill As Range
  2827. Set foundSkill = Range("A:A").Find(nama_label.Caption)
  2828. foundSkill.Select
  2829. TPM_ERG.skillpercent.value = Format(ActiveCell.Offset(0, 3).value, "0%")
  2830.  
  2831. If TPM_ERG.skillpercent.value >= Format(Range("D21").value, "0%") Or TPM_ERG.skillpercent.value = "100%" Then
  2832.  
  2833. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  2834. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  2835. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  2836.  
  2837. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  2838. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  2839.  
  2840.  
  2841.  
  2842. TPM_ERG.Label666.Caption = "YOUR LASER MACHINE SKILL IS : "
  2843. Call skillgrade
  2844.  
  2845.  
  2846. ThisWorkbook.Sheets("LASER DATE").Activate
  2847.  
  2848. LASER_FRM.mach_label.Caption = TPM_ERG.LASERlabel4.Caption
  2849. LASER_FRM.Image1.Picture = LoadPicture(ThisWorkbook.path & "\Picture\Machine Picture\laser.jpg")
  2850.  
  2851. LASER_FRM.m_1.value = Format(Range("E3"), "dd mmmm yyyy")
  2852. LASER_FRM.m_2.value = Format(Range("E4"), "dd mmmm yyyy")
  2853. LASER_FRM.m_3.value = Format(Range("E5"), "dd mmmm yyyy")
  2854.  
  2855. LASER_FRM.Caption = TPM_ERG.LASERlabel4.Caption
  2856.  
  2857. TPM_ERG.calendartext.value = "81"
  2858.  
  2859. LASER_FRM.show
  2860.  
  2861. Else:
  2862.  
  2863. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  2864. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  2865. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  2866.  
  2867. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  2868. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  2869.  
  2870.  
  2871. TPM_ERG.Label666.Caption = "YOUR LASER MACHINE SKILL IS : "
  2872. Call skillgrade
  2873.  
  2874. UserForm2.show
  2875.  
  2876. End If
  2877.  
  2878. End Sub
  2879.  
  2880. Private Sub LASERclick5_Click()
  2881.  
  2882. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  2883. If Format(Range("D21").value, "0%") = "100%" Then
  2884. Range("D21").value = "99,1%"
  2885. End If
  2886.  
  2887. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  2888. Dim foundSkill As Range
  2889. Set foundSkill = Range("A:A").Find(nama_label.Caption)
  2890. foundSkill.Select
  2891. TPM_ERG.skillpercent.value = Format(ActiveCell.Offset(0, 3).value, "0%")
  2892.  
  2893. If TPM_ERG.skillpercent.value >= Format(Range("D21").value, "0%") Or TPM_ERG.skillpercent.value = "100%" Then
  2894.  
  2895. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  2896. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  2897. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  2898.  
  2899. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  2900. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  2901.  
  2902.  
  2903.  
  2904. TPM_ERG.Label666.Caption = "YOUR LASER MACHINE SKILL IS : "
  2905. Call skillgrade
  2906.  
  2907. ThisWorkbook.Sheets("LASER DATE").Activate
  2908.  
  2909. LASER_FRM.mach_label.Caption = TPM_ERG.LASERlabel5.Caption
  2910. LASER_FRM.Image1.Picture = LoadPicture(ThisWorkbook.path & "\Picture\Machine Picture\laser.jpg")
  2911.  
  2912. LASER_FRM.m_1.value = Format(Range("F3"), "dd mmmm yyyy")
  2913. LASER_FRM.m_2.value = Format(Range("F4"), "dd mmmm yyyy")
  2914. LASER_FRM.m_3.value = Format(Range("F5"), "dd mmmm yyyy")
  2915.  
  2916. LASER_FRM.Caption = TPM_ERG.LASERlabel5.Caption
  2917.  
  2918. TPM_ERG.calendartext.value = "82"
  2919.  
  2920. LASER_FRM.show
  2921.  
  2922. Else:
  2923.  
  2924. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  2925. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  2926. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  2927.  
  2928. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  2929. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  2930.  
  2931.  
  2932. TPM_ERG.Label666.Caption = "YOUR LASER MACHINE SKILL IS : "
  2933. Call skillgrade
  2934.  
  2935. UserForm2.show
  2936.  
  2937. End If
  2938.  
  2939. End Sub
  2940.  
  2941. Private Sub LASERclick6_Click()
  2942.  
  2943. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  2944. If Format(Range("D21").value, "0%") = "100%" Then
  2945. Range("D21").value = "99,1%"
  2946. End If
  2947.  
  2948. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  2949. Dim foundSkill As Range
  2950. Set foundSkill = Range("A:A").Find(nama_label.Caption)
  2951. foundSkill.Select
  2952. TPM_ERG.skillpercent.value = Format(ActiveCell.Offset(0, 3).value, "0%")
  2953.  
  2954. If TPM_ERG.skillpercent.value >= Format(Range("D21").value, "0%") Or TPM_ERG.skillpercent.value = "100%" Then
  2955.  
  2956. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  2957. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  2958. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  2959.  
  2960. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  2961. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  2962.  
  2963.  
  2964.  
  2965. TPM_ERG.Label666.Caption = "YOUR LASER MACHINE SKILL IS : "
  2966. Call skillgrade
  2967.  
  2968. ThisWorkbook.Sheets("LASER DATE").Activate
  2969.  
  2970. LASER_FRM.mach_label.Caption = TPM_ERG.LASERlabel6.Caption
  2971. LASER_FRM.Image1.Picture = LoadPicture(ThisWorkbook.path & "\Picture\Machine Picture\laser.jpg")
  2972.  
  2973. LASER_FRM.m_1.value = Format(Range("G3"), "dd mmmm yyyy")
  2974. LASER_FRM.m_2.value = Format(Range("G4"), "dd mmmm yyyy")
  2975. LASER_FRM.m_3.value = Format(Range("G5"), "dd mmmm yyyy")
  2976.  
  2977. LASER_FRM.Caption = TPM_ERG.LASERlabel6.Caption
  2978.  
  2979. TPM_ERG.calendartext.value = "83"
  2980.  
  2981. LASER_FRM.show
  2982.  
  2983. Else:
  2984.  
  2985. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  2986. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  2987. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  2988.  
  2989. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  2990. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  2991.  
  2992.  
  2993. TPM_ERG.Label666.Caption = "YOUR LASER MACHINE SKILL IS : "
  2994. Call skillgrade
  2995.  
  2996. UserForm2.show
  2997.  
  2998. End If
  2999.  
  3000. End Sub
  3001.  
  3002.  
  3003. Private Sub logout_btn_Click()
  3004.  
  3005. TPM_ERG.WebBrowser1.Visible = False
  3006. TPM_ERG.welcome_image.Visible = False
  3007. TPM_ERG.Welcome_label.Visible = False
  3008. TPM_ERG.nama_label.Visible = False
  3009. TPM_ERG.LOGOUT_BTN.Visible = False
  3010. TPM_ERG.OptionButton1.value = False
  3011. TPM_ERG.OptionButton2.value = False
  3012. TPM_ERG.Label666.Visible = False
  3013. TPM_ERG.skilllabel.Visible = False
  3014. TPM_ERG.skilllabel1.Visible = False
  3015. TPM_ERG.skilllabel2.Visible = False
  3016. TPM_ERG.Label762.Visible = False
  3017.  
  3018.  
  3019. Call UserForm_Initialize
  3020. MsgBox "Log Out", vbInformation
  3021.  
  3022. LOGIN.show
  3023. End Sub
  3024.  
  3025. Private Sub CommandButton1_Click()
  3026.  
  3027. LOGIN.show
  3028.  
  3029. End Sub
  3030.  
  3031. Private Sub FINISHclick1_Click()
  3032.  
  3033. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  3034. If Format(Range("E21").value, "0%") = "100%" Then
  3035. Range("E21").value = "99,1%"
  3036. End If
  3037.  
  3038.  
  3039. Dim foundSkill As Range
  3040. Set foundSkill = Range("A:A").Find(nama_label.Caption)
  3041. foundSkill.Select
  3042. TPM_ERG.skillpercent.value = Format(ActiveCell.Offset(0, 4).value, "0%")
  3043.  
  3044. If TPM_ERG.skillpercent.value >= Format(Range("E21").value, "0%") Or TPM_ERG.skillpercent.value = "100%" Then
  3045.  
  3046. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  3047. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  3048. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  3049.  
  3050. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  3051. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  3052.  
  3053. TPM_ERG.Label666.Caption = "YOUR FINISHING MACHINE SKILL IS : "
  3054. Call skillgrade
  3055.  
  3056.  
  3057. ThisWorkbook.Sheets("FINISHING DATE").Activate
  3058.  
  3059. FINISHING_FRM.mach_label.Caption = TPM_ERG.FINISHlabel1.Caption
  3060. FINISHING_FRM.Image1.Picture = LoadPicture(ThisWorkbook.path & "\Picture\Machine Picture\finishing.jpg")
  3061.  
  3062. FINISHING_FRM.m_1.value = Format(Range("B3"), "dd mmmm yyyy")
  3063. FINISHING_FRM.m_2.value = Format(Range("B4"), "dd mmmm yyyy")
  3064. FINISHING_FRM.m_3.value = Format(Range("B5"), "dd mmmm yyyy")
  3065.  
  3066. FINISHING_FRM.Caption = TPM_ERG.FINISHlabel1.Caption
  3067.  
  3068. TPM_ERG.calendartext.value = "85"
  3069.  
  3070. FINISHING_FRM.show
  3071.  
  3072.  
  3073. Else:
  3074.  
  3075. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  3076. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  3077. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  3078.  
  3079. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  3080. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  3081.  
  3082.  
  3083. TPM_ERG.Label666.Caption = "YOUR FINISHING MACHINE SKILL IS : "
  3084. Call skillgrade
  3085.  
  3086. UserForm2.show
  3087.  
  3088. End If
  3089.  
  3090.  
  3091. End Sub
  3092.  
  3093. Private Sub Label341_Click()
  3094.  
  3095. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  3096. If Format(Range("B21").value, "0%") = "100%" Then
  3097. Range("B21").value = "99,1%"
  3098. End If
  3099.  
  3100.  
  3101. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  3102. Dim foundSkill As Range
  3103. Set foundSkill = Range("A:A").Find(nama_label.Caption)
  3104. foundSkill.Select
  3105. TPM_ERG.skillpercent.value = Format(ActiveCell.Offset(0, 1).value, "0%")
  3106.  
  3107. If TPM_ERG.skillpercent.value >= Format(Range("B21").value, "0%") Or TPM_ERG.skillpercent.value = "100%" Then
  3108.  
  3109. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  3110. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  3111. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  3112.  
  3113. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  3114. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  3115.  
  3116.  
  3117.  
  3118. TPM_ERG.Label666.Caption = "YOUR SPIRALLING MACHINE SKILL IS : "
  3119. Call skillgrade
  3120.  
  3121.  
  3122. ThisWorkbook.Sheets("SPIRALLING DATE").Activate
  3123.  
  3124. SPIRAL.mach_label.Caption = TPM_ERG.Label315.Caption
  3125. SPIRAL.Image1.Picture = LoadPicture(ThisWorkbook.path & "\Picture\Machine Picture\spiralling.jpg")
  3126.  
  3127. SPIRAL.m_1.value = Format(Range("B3"), "dd mmmm yyyy")
  3128. SPIRAL.m_2.value = Format(Range("B4"), "dd mmmm yyyy")
  3129. SPIRAL.m_3.value = Format(Range("B5"), "dd mmmm yyyy")
  3130.  
  3131. SPIRAL.Caption = TPM_ERG.Label315.Caption
  3132.  
  3133. TPM_ERG.calendartext.value = "1"
  3134.  
  3135. SPIRAL.show
  3136.  
  3137. Else:
  3138.  
  3139. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  3140. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  3141. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  3142.  
  3143. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  3144. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  3145.  
  3146.  
  3147. TPM_ERG.Label666.Caption = "YOUR SPIRALLING MACHINE SKILL IS : "
  3148. Call skillgrade
  3149.  
  3150. UserForm2.show
  3151.  
  3152. End If
  3153.  
  3154. End Sub
  3155.  
  3156. Private Sub MultiPage2_Change()
  3157.  
  3158. End Sub
  3159.  
  3160. Private Sub MultiPage3_Change()
  3161.  
  3162. End Sub
  3163.  
  3164. Private Sub spiralclickpage2_1_Click()
  3165.  
  3166. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  3167. If Format(Range("B21").value, "0%") = "100%" Then
  3168. Range("B21").value = "99,1%"
  3169. End If
  3170.  
  3171. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  3172. Dim foundSkill As Range
  3173. Set foundSkill = Range("A:A").Find(nama_label.Caption)
  3174. foundSkill.Select
  3175. TPM_ERG.skillpercent.value = Format(ActiveCell.Offset(0, 1).value, "0%")
  3176.  
  3177. If TPM_ERG.skillpercent.value >= Format(Range("B21").value, "0%") Or TPM_ERG.skillpercent.value = "100%" Then
  3178.  
  3179. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  3180. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  3181. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  3182.  
  3183. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  3184. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  3185.  
  3186.  
  3187.  
  3188. TPM_ERG.Label666.Caption = "YOUR SPIRALLING MACHINE SKILL IS : "
  3189. Call skillgrade
  3190.  
  3191.  
  3192. ThisWorkbook.Sheets("SPIRALLING DATE").Activate
  3193.  
  3194. SPIRAL.mach_label.Caption = TPM_ERG.spiralnolabelpage2_1.Caption
  3195. SPIRAL.Image1.Picture = LoadPicture(ThisWorkbook.path & "\Picture\Machine Picture\spiralling.jpg")
  3196.  
  3197. SPIRAL.m_1.value = Format(Range("B8"), "dd mmmm yyyy")
  3198. SPIRAL.m_2.value = Format(Range("B9"), "dd mmmm yyyy")
  3199. SPIRAL.m_3.value = Format(Range("B10"), "dd mmmm yyyy")
  3200.  
  3201. SPIRAL.Caption = TPM_ERG.spiralnolabelpage2_1.Caption
  3202.  
  3203. TPM_ERG.calendartext.value = "11"
  3204.  
  3205. SPIRAL.show
  3206.  
  3207. Else:
  3208.  
  3209. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  3210. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  3211. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  3212.  
  3213. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  3214. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  3215.  
  3216.  
  3217. TPM_ERG.Label666.Caption = "YOUR SPIRALLING MACHINE SKILL IS : "
  3218. Call skillgrade
  3219.  
  3220. UserForm2.show
  3221.  
  3222. End If
  3223. End Sub
  3224.  
  3225. Private Sub spiralclickpage2_10_Click()
  3226.  
  3227.  
  3228. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  3229. If Format(Range("B21").value, "0%") = "100%" Then
  3230. Range("B21").value = "99,1%"
  3231. End If
  3232.  
  3233. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  3234. Dim foundSkill As Range
  3235. Set foundSkill = Range("A:A").Find(nama_label.Caption)
  3236. foundSkill.Select
  3237. TPM_ERG.skillpercent.value = Format(ActiveCell.Offset(0, 1).value, "0%")
  3238.  
  3239. If TPM_ERG.skillpercent.value >= Format(Range("B21").value, "0%") Or TPM_ERG.skillpercent.value = "100%" Then
  3240.  
  3241. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  3242. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  3243. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  3244.  
  3245. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  3246. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  3247.  
  3248.  
  3249.  
  3250. TPM_ERG.Label666.Caption = "YOUR SPIRALLING MACHINE SKILL IS : "
  3251. Call skillgrade
  3252.  
  3253.  
  3254. ThisWorkbook.Sheets("SPIRALLING DATE").Activate
  3255.  
  3256. SPIRAL.mach_label.Caption = TPM_ERG.spiralnolabelpage2_10.Caption
  3257. SPIRAL.Image1.Picture = LoadPicture(ThisWorkbook.path & "\Picture\Machine Picture\spiralling.jpg")
  3258.  
  3259. SPIRAL.m_1.value = Format(Range("K8"), "dd mmmm yyyy")
  3260. SPIRAL.m_2.value = Format(Range("K8"), "dd mmmm yyyy")
  3261. SPIRAL.m_3.value = Format(Range("K8"), "dd mmmm yyyy")
  3262.  
  3263. SPIRAL.Caption = TPM_ERG.spiralnolabelpage2_10.Caption
  3264.  
  3265. TPM_ERG.calendartext.value = "20"
  3266.  
  3267. SPIRAL.show
  3268.  
  3269. Else:
  3270.  
  3271. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  3272. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  3273. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  3274.  
  3275. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  3276. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  3277.  
  3278.  
  3279. TPM_ERG.Label666.Caption = "YOUR SPIRALLING MACHINE SKILL IS : "
  3280. Call skillgrade
  3281.  
  3282. UserForm2.show
  3283.  
  3284. End If
  3285.  
  3286.  
  3287.  
  3288. End Sub
  3289.  
  3290. Private Sub spiralclickpage2_2_Click()
  3291.  
  3292. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  3293. If Format(Range("B21").value, "0%") = "100%" Then
  3294. Range("B21").value = "99,1%"
  3295. End If
  3296.  
  3297. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  3298. Dim foundSkill As Range
  3299. Set foundSkill = Range("A:A").Find(nama_label.Caption)
  3300. foundSkill.Select
  3301. TPM_ERG.skillpercent.value = Format(ActiveCell.Offset(0, 1).value, "0%")
  3302.  
  3303. If TPM_ERG.skillpercent.value >= Format(Range("B21").value, "0%") Or TPM_ERG.skillpercent.value = "100%" Then
  3304.  
  3305. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  3306. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  3307. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  3308.  
  3309. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  3310. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  3311.  
  3312.  
  3313.  
  3314. TPM_ERG.Label666.Caption = "YOUR SPIRALLING MACHINE SKILL IS : "
  3315. Call skillgrade
  3316.  
  3317.  
  3318. ThisWorkbook.Sheets("SPIRALLING DATE").Activate
  3319.  
  3320. SPIRAL.mach_label.Caption = TPM_ERG.spiralnolabelpage2_2.Caption
  3321. SPIRAL.Image1.Picture = LoadPicture(ThisWorkbook.path & "\Picture\Machine Picture\spiralling.jpg")
  3322.  
  3323. SPIRAL.m_1.value = Format(Range("C8"), "dd mmmm yyyy")
  3324. SPIRAL.m_2.value = Format(Range("C9"), "dd mmmm yyyy")
  3325. SPIRAL.m_3.value = Format(Range("C10"), "dd mmmm yyyy")
  3326.  
  3327. SPIRAL.Caption = TPM_ERG.spiralnolabelpage2_2.Caption
  3328.  
  3329. TPM_ERG.calendartext.value = "12"
  3330.  
  3331. SPIRAL.show
  3332.  
  3333. Else:
  3334.  
  3335. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  3336. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  3337. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  3338.  
  3339. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  3340. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  3341.  
  3342.  
  3343. TPM_ERG.Label666.Caption = "YOUR SPIRALLING MACHINE SKILL IS : "
  3344. Call skillgrade
  3345.  
  3346. UserForm2.show
  3347.  
  3348. End If
  3349. End Sub
  3350.  
  3351. Private Sub spiralclickpage2_3_Click()
  3352.  
  3353. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  3354. If Format(Range("B21").value, "0%") = "100%" Then
  3355. Range("B21").value = "99,1%"
  3356. End If
  3357.  
  3358. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  3359. Dim foundSkill As Range
  3360. Set foundSkill = Range("A:A").Find(nama_label.Caption)
  3361. foundSkill.Select
  3362. TPM_ERG.skillpercent.value = Format(ActiveCell.Offset(0, 1).value, "0%")
  3363.  
  3364. If TPM_ERG.skillpercent.value >= Format(Range("B21").value, "0%") Or TPM_ERG.skillpercent.value = "100%" Then
  3365.  
  3366. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  3367. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  3368. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  3369.  
  3370. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  3371. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  3372.  
  3373.  
  3374.  
  3375. TPM_ERG.Label666.Caption = "YOUR SPIRALLING MACHINE SKILL IS : "
  3376. Call skillgrade
  3377.  
  3378.  
  3379. ThisWorkbook.Sheets("SPIRALLING DATE").Activate
  3380.  
  3381. SPIRAL.mach_label.Caption = TPM_ERG.spiralnolabelpage2_3.Caption
  3382. SPIRAL.Image1.Picture = LoadPicture(ThisWorkbook.path & "\Picture\Machine Picture\spiralling.jpg")
  3383.  
  3384. SPIRAL.m_1.value = Format(Range("D8"), "dd mmmm yyyy")
  3385. SPIRAL.m_2.value = Format(Range("D9"), "dd mmmm yyyy")
  3386. SPIRAL.m_3.value = Format(Range("D10"), "dd mmmm yyyy")
  3387.  
  3388. SPIRAL.Caption = TPM_ERG.spiralnolabelpage2_3.Caption
  3389.  
  3390. TPM_ERG.calendartext.value = "13"
  3391.  
  3392. SPIRAL.show
  3393.  
  3394. Else:
  3395.  
  3396. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  3397. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  3398. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  3399.  
  3400. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  3401. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  3402.  
  3403.  
  3404. TPM_ERG.Label666.Caption = "YOUR SPIRALLING MACHINE SKILL IS : "
  3405. Call skillgrade
  3406.  
  3407. UserForm2.show
  3408.  
  3409. End If
  3410.  
  3411. End Sub
  3412.  
  3413. Private Sub spiralclickpage2_4_Click()
  3414.  
  3415. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  3416. If Format(Range("B21").value, "0%") = "100%" Then
  3417. Range("B21").value = "99,1%"
  3418. End If
  3419.  
  3420. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  3421. Dim foundSkill As Range
  3422. Set foundSkill = Range("A:A").Find(nama_label.Caption)
  3423. foundSkill.Select
  3424. TPM_ERG.skillpercent.value = Format(ActiveCell.Offset(0, 1).value, "0%")
  3425.  
  3426. If TPM_ERG.skillpercent.value >= Format(Range("B21").value, "0%") Or TPM_ERG.skillpercent.value = "100%" Then
  3427.  
  3428. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  3429. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  3430. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  3431.  
  3432. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  3433. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  3434.  
  3435.  
  3436.  
  3437. TPM_ERG.Label666.Caption = "YOUR SPIRALLING MACHINE SKILL IS : "
  3438. Call skillgrade
  3439.  
  3440.  
  3441. ThisWorkbook.Sheets("SPIRALLING DATE").Activate
  3442.  
  3443. SPIRAL.mach_label.Caption = TPM_ERG.spiralnolabelpage2_4.Caption
  3444. SPIRAL.Image1.Picture = LoadPicture(ThisWorkbook.path & "\Picture\Machine Picture\spiralling.jpg")
  3445.  
  3446. SPIRAL.m_1.value = Format(Range("E8"), "dd mmmm yyyy")
  3447. SPIRAL.m_2.value = Format(Range("E9"), "dd mmmm yyyy")
  3448. SPIRAL.m_3.value = Format(Range("E10"), "dd mmmm yyyy")
  3449.  
  3450. SPIRAL.Caption = TPM_ERG.spiralnolabelpage2_4.Caption
  3451.  
  3452. TPM_ERG.calendartext.value = "14"
  3453.  
  3454. SPIRAL.show
  3455.  
  3456. Else:
  3457.  
  3458. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  3459. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  3460. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  3461.  
  3462. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  3463. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  3464.  
  3465.  
  3466. TPM_ERG.Label666.Caption = "YOUR SPIRALLING MACHINE SKILL IS : "
  3467. Call skillgrade
  3468.  
  3469. UserForm2.show
  3470.  
  3471. End If
  3472.  
  3473. End Sub
  3474.  
  3475. Private Sub spiralclickpage2_5_Click()
  3476.  
  3477.  
  3478. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  3479. If Format(Range("B21").value, "0%") = "100%" Then
  3480. Range("B21").value = "99,1%"
  3481. End If
  3482.  
  3483. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  3484. Dim foundSkill As Range
  3485. Set foundSkill = Range("A:A").Find(nama_label.Caption)
  3486. foundSkill.Select
  3487. TPM_ERG.skillpercent.value = Format(ActiveCell.Offset(0, 1).value, "0%")
  3488.  
  3489. If TPM_ERG.skillpercent.value >= Format(Range("B21").value, "0%") Or TPM_ERG.skillpercent.value = "100%" Then
  3490.  
  3491. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  3492. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  3493. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  3494.  
  3495. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  3496. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  3497.  
  3498.  
  3499.  
  3500. TPM_ERG.Label666.Caption = "YOUR SPIRALLING MACHINE SKILL IS : "
  3501. Call skillgrade
  3502.  
  3503.  
  3504. ThisWorkbook.Sheets("SPIRALLING DATE").Activate
  3505.  
  3506. SPIRAL.mach_label.Caption = TPM_ERG.spiralnolabelpage2_5.Caption
  3507. SPIRAL.Image1.Picture = LoadPicture(ThisWorkbook.path & "\Picture\Machine Picture\spiralling.jpg")
  3508.  
  3509. SPIRAL.m_1.value = Format(Range("F8"), "dd mmmm yyyy")
  3510. SPIRAL.m_2.value = Format(Range("F9"), "dd mmmm yyyy")
  3511. SPIRAL.m_3.value = Format(Range("F10"), "dd mmmm yyyy")
  3512.  
  3513. SPIRAL.Caption = TPM_ERG.spiralnolabelpage2_5.Caption
  3514.  
  3515. TPM_ERG.calendartext.value = "15"
  3516.  
  3517. SPIRAL.show
  3518.  
  3519. Else:
  3520.  
  3521. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  3522. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  3523. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  3524.  
  3525. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  3526. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  3527.  
  3528.  
  3529. TPM_ERG.Label666.Caption = "YOUR SPIRALLING MACHINE SKILL IS : "
  3530. Call skillgrade
  3531.  
  3532. UserForm2.show
  3533.  
  3534. End If
  3535.  
  3536.  
  3537. End Sub
  3538.  
  3539. Private Sub spiralclickpage2_6_Click()
  3540.  
  3541. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  3542. If Format(Range("B21").value, "0%") = "100%" Then
  3543. Range("B21").value = "99,1%"
  3544. End If
  3545.  
  3546. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  3547. Dim foundSkill As Range
  3548. Set foundSkill = Range("A:A").Find(nama_label.Caption)
  3549. foundSkill.Select
  3550. TPM_ERG.skillpercent.value = Format(ActiveCell.Offset(0, 1).value, "0%")
  3551.  
  3552. If TPM_ERG.skillpercent.value >= Format(Range("B21").value, "0%") Or TPM_ERG.skillpercent.value = "100%" Then
  3553.  
  3554. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  3555. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  3556. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  3557.  
  3558. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  3559. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  3560.  
  3561.  
  3562.  
  3563. TPM_ERG.Label666.Caption = "YOUR SPIRALLING MACHINE SKILL IS : "
  3564. Call skillgrade
  3565.  
  3566.  
  3567. ThisWorkbook.Sheets("SPIRALLING DATE").Activate
  3568.  
  3569. SPIRAL.mach_label.Caption = TPM_ERG.spiralnolabelpage2_6.Caption
  3570. SPIRAL.Image1.Picture = LoadPicture(ThisWorkbook.path & "\Picture\Machine Picture\spiralling.jpg")
  3571.  
  3572. SPIRAL.m_1.value = Format(Range("G8"), "dd mmmm yyyy")
  3573. SPIRAL.m_2.value = Format(Range("G9"), "dd mmmm yyyy")
  3574. SPIRAL.m_3.value = Format(Range("G10"), "dd mmmm yyyy")
  3575.  
  3576. SPIRAL.Caption = TPM_ERG.spiralnolabelpage2_6.Caption
  3577.  
  3578. TPM_ERG.calendartext.value = "16"
  3579.  
  3580. SPIRAL.show
  3581.  
  3582. Else:
  3583.  
  3584. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  3585. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  3586. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  3587.  
  3588. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  3589. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  3590.  
  3591.  
  3592. TPM_ERG.Label666.Caption = "YOUR SPIRALLING MACHINE SKILL IS : "
  3593. Call skillgrade
  3594.  
  3595. UserForm2.show
  3596.  
  3597. End If
  3598.  
  3599.  
  3600.  
  3601. End Sub
  3602.  
  3603. Private Sub spiralclickpage2_7_Click()
  3604.  
  3605.  
  3606. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  3607. If Format(Range("B21").value, "0%") = "100%" Then
  3608. Range("B21").value = "99,1%"
  3609. End If
  3610.  
  3611. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  3612. Dim foundSkill As Range
  3613. Set foundSkill = Range("A:A").Find(nama_label.Caption)
  3614. foundSkill.Select
  3615. TPM_ERG.skillpercent.value = Format(ActiveCell.Offset(0, 1).value, "0%")
  3616.  
  3617. If TPM_ERG.skillpercent.value >= Format(Range("B21").value, "0%") Or TPM_ERG.skillpercent.value = "100%" Then
  3618.  
  3619. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  3620. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  3621. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  3622.  
  3623. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  3624. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  3625.  
  3626.  
  3627.  
  3628. TPM_ERG.Label666.Caption = "YOUR SPIRALLING MACHINE SKILL IS : "
  3629. Call skillgrade
  3630.  
  3631.  
  3632. ThisWorkbook.Sheets("SPIRALLING DATE").Activate
  3633.  
  3634. SPIRAL.mach_label.Caption = TPM_ERG.spiralnolabelpage2_7.Caption
  3635. SPIRAL.Image1.Picture = LoadPicture(ThisWorkbook.path & "\Picture\Machine Picture\spiralling.jpg")
  3636.  
  3637. SPIRAL.m_1.value = Format(Range("H8"), "dd mmmm yyyy")
  3638. SPIRAL.m_2.value = Format(Range("H9"), "dd mmmm yyyy")
  3639. SPIRAL.m_3.value = Format(Range("H10"), "dd mmmm yyyy")
  3640.  
  3641. SPIRAL.Caption = TPM_ERG.spiralnolabelpage2_7.Caption
  3642.  
  3643. TPM_ERG.calendartext.value = "17"
  3644.  
  3645. SPIRAL.show
  3646.  
  3647. Else:
  3648.  
  3649. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  3650. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  3651. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  3652.  
  3653. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  3654. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  3655.  
  3656.  
  3657. TPM_ERG.Label666.Caption = "YOUR SPIRALLING MACHINE SKILL IS : "
  3658. Call skillgrade
  3659.  
  3660. UserForm2.show
  3661.  
  3662. End If
  3663.  
  3664.  
  3665.  
  3666.  
  3667. End Sub
  3668.  
  3669. Private Sub spiralclickpage2_8_Click()
  3670.  
  3671.  
  3672. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  3673. If Format(Range("B21").value, "0%") = "100%" Then
  3674. Range("B21").value = "99,1%"
  3675. End If
  3676.  
  3677. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  3678. Dim foundSkill As Range
  3679. Set foundSkill = Range("A:A").Find(nama_label.Caption)
  3680. foundSkill.Select
  3681. TPM_ERG.skillpercent.value = Format(ActiveCell.Offset(0, 1).value, "0%")
  3682.  
  3683. If TPM_ERG.skillpercent.value >= Format(Range("B21").value, "0%") Or TPM_ERG.skillpercent.value = "100%" Then
  3684.  
  3685. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  3686. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  3687. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  3688.  
  3689. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  3690. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  3691.  
  3692.  
  3693.  
  3694. TPM_ERG.Label666.Caption = "YOUR SPIRALLING MACHINE SKILL IS : "
  3695. Call skillgrade
  3696.  
  3697.  
  3698. ThisWorkbook.Sheets("SPIRALLING DATE").Activate
  3699.  
  3700. SPIRAL.mach_label.Caption = TPM_ERG.spiralnolabelpage2_8.Caption
  3701. SPIRAL.Image1.Picture = LoadPicture(ThisWorkbook.path & "\Picture\Machine Picture\spiralling.jpg")
  3702.  
  3703. SPIRAL.m_1.value = Format(Range("I8"), "dd mmmm yyyy")
  3704. SPIRAL.m_2.value = Format(Range("I8"), "dd mmmm yyyy")
  3705. SPIRAL.m_3.value = Format(Range("I8"), "dd mmmm yyyy")
  3706.  
  3707. SPIRAL.Caption = TPM_ERG.spiralnolabelpage2_8.Caption
  3708.  
  3709. TPM_ERG.calendartext.value = "18"
  3710.  
  3711. SPIRAL.show
  3712.  
  3713. Else:
  3714.  
  3715. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  3716. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  3717. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  3718.  
  3719. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  3720. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  3721.  
  3722.  
  3723. TPM_ERG.Label666.Caption = "YOUR SPIRALLING MACHINE SKILL IS : "
  3724. Call skillgrade
  3725.  
  3726. UserForm2.show
  3727.  
  3728. End If
  3729.  
  3730.  
  3731. End Sub
  3732.  
  3733. Private Sub spiralclickpage2_9_Click()
  3734.  
  3735.  
  3736. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  3737. If Format(Range("B21").value, "0%") = "100%" Then
  3738. Range("B21").value = "99,1%"
  3739. End If
  3740.  
  3741. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  3742. Dim foundSkill As Range
  3743. Set foundSkill = Range("A:A").Find(nama_label.Caption)
  3744. foundSkill.Select
  3745. TPM_ERG.skillpercent.value = Format(ActiveCell.Offset(0, 1).value, "0%")
  3746.  
  3747. If TPM_ERG.skillpercent.value >= Format(Range("B21").value, "0%") Or TPM_ERG.skillpercent.value = "100%" Then
  3748.  
  3749. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  3750. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  3751. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  3752.  
  3753. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  3754. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  3755.  
  3756.  
  3757.  
  3758. TPM_ERG.Label666.Caption = "YOUR SPIRALLING MACHINE SKILL IS : "
  3759. Call skillgrade
  3760.  
  3761.  
  3762. ThisWorkbook.Sheets("SPIRALLING DATE").Activate
  3763.  
  3764. SPIRAL.mach_label.Caption = TPM_ERG.spiralnolabelpage2_9.Caption
  3765. SPIRAL.Image1.Picture = LoadPicture(ThisWorkbook.path & "\Picture\Machine Picture\spiralling.jpg")
  3766.  
  3767. SPIRAL.m_1.value = Format(Range("J8"), "dd mmmm yyyy")
  3768. SPIRAL.m_2.value = Format(Range("J8"), "dd mmmm yyyy")
  3769. SPIRAL.m_3.value = Format(Range("J8"), "dd mmmm yyyy")
  3770.  
  3771. SPIRAL.Caption = TPM_ERG.spiralnolabelpage2_9.Caption
  3772.  
  3773. TPM_ERG.calendartext.value = "19"
  3774.  
  3775. SPIRAL.show
  3776.  
  3777. Else:
  3778.  
  3779. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  3780. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  3781. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  3782.  
  3783. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  3784. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  3785.  
  3786.  
  3787. TPM_ERG.Label666.Caption = "YOUR SPIRALLING MACHINE SKILL IS : "
  3788. Call skillgrade
  3789.  
  3790. UserForm2.show
  3791.  
  3792. End If
  3793.  
  3794.  
  3795. End Sub
  3796.  
  3797. Private Sub spiralclickpage3_1_Click()
  3798.  
  3799. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  3800. If Format(Range("B21").value, "0%") = "100%" Then
  3801. Range("B21").value = "99,1%"
  3802. End If
  3803.  
  3804. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  3805. Dim foundSkill As Range
  3806. Set foundSkill = Range("A:A").Find(nama_label.Caption)
  3807. foundSkill.Select
  3808. TPM_ERG.skillpercent.value = Format(ActiveCell.Offset(0, 1).value, "0%")
  3809.  
  3810. If TPM_ERG.skillpercent.value >= Format(Range("B21").value, "0%") Or TPM_ERG.skillpercent.value = "100%" Then
  3811.  
  3812. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  3813. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  3814. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  3815.  
  3816. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  3817. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  3818.  
  3819.  
  3820.  
  3821. TPM_ERG.Label666.Caption = "YOUR SPIRALLING MACHINE SKILL IS : "
  3822. Call skillgrade
  3823.  
  3824.  
  3825. ThisWorkbook.Sheets("SPIRALLING DATE").Activate
  3826.  
  3827. SPIRAL.mach_label.Caption = TPM_ERG.spiralnolabelpage3_1.Caption
  3828. SPIRAL.Image1.Picture = LoadPicture(ThisWorkbook.path & "\Picture\Machine Picture\spiralling.jpg")
  3829.  
  3830. SPIRAL.m_1.value = Format(Range("B13"), "dd mmmm yyyy")
  3831. SPIRAL.m_2.value = Format(Range("B14"), "dd mmmm yyyy")
  3832. SPIRAL.m_3.value = Format(Range("B15"), "dd mmmm yyyy")
  3833.  
  3834. SPIRAL.Caption = TPM_ERG.spiralnolabelpage3_1.Caption
  3835.  
  3836. TPM_ERG.calendartext.value = "21"
  3837.  
  3838. SPIRAL.show
  3839.  
  3840. Else:
  3841.  
  3842. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  3843. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  3844. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  3845.  
  3846. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  3847. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  3848.  
  3849.  
  3850. TPM_ERG.Label666.Caption = "YOUR SPIRALLING MACHINE SKILL IS : "
  3851. Call skillgrade
  3852.  
  3853. UserForm2.show
  3854.  
  3855. End If
  3856.  
  3857. End Sub
  3858.  
  3859. Private Sub spiralclickpage3_10_Click()
  3860.  
  3861. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  3862. If Format(Range("B21").value, "0%") = "100%" Then
  3863. Range("B21").value = "99,1%"
  3864. End If
  3865.  
  3866. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  3867. Dim foundSkill As Range
  3868. Set foundSkill = Range("A:A").Find(nama_label.Caption)
  3869. foundSkill.Select
  3870. TPM_ERG.skillpercent.value = Format(ActiveCell.Offset(0, 1).value, "0%")
  3871.  
  3872. If TPM_ERG.skillpercent.value >= Format(Range("B21").value, "0%") Or TPM_ERG.skillpercent.value = "100%" Then
  3873.  
  3874. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  3875. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  3876. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  3877.  
  3878. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  3879. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  3880.  
  3881.  
  3882.  
  3883. TPM_ERG.Label666.Caption = "YOUR SPIRALLING MACHINE SKILL IS : "
  3884. Call skillgrade
  3885.  
  3886.  
  3887. ThisWorkbook.Sheets("SPIRALLING DATE").Activate
  3888.  
  3889. SPIRAL.mach_label.Caption = TPM_ERG.spiralnolabelpage3_10.Caption
  3890. SPIRAL.Image1.Picture = LoadPicture(ThisWorkbook.path & "\Picture\Machine Picture\spiralling.jpg")
  3891.  
  3892. SPIRAL.m_1.value = Format(Range("K13"), "dd mmmm yyyy")
  3893. SPIRAL.m_2.value = Format(Range("K14"), "dd mmmm yyyy")
  3894. SPIRAL.m_3.value = Format(Range("K15"), "dd mmmm yyyy")
  3895.  
  3896. SPIRAL.Caption = TPM_ERG.spiralnolabelpage3_10.Caption
  3897.  
  3898. TPM_ERG.calendartext.value = "30"
  3899.  
  3900. SPIRAL.show
  3901.  
  3902. Else:
  3903.  
  3904. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  3905. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  3906. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  3907.  
  3908. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  3909. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  3910.  
  3911.  
  3912. TPM_ERG.Label666.Caption = "YOUR SPIRALLING MACHINE SKILL IS : "
  3913. Call skillgrade
  3914.  
  3915. UserForm2.show
  3916.  
  3917. End If
  3918.  
  3919.  
  3920. End Sub
  3921.  
  3922. Private Sub spiralclickpage3_2_Click()
  3923.  
  3924.  
  3925. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  3926. If Format(Range("B21").value, "0%") = "100%" Then
  3927. Range("B21").value = "99,1%"
  3928. End If
  3929.  
  3930. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  3931. Dim foundSkill As Range
  3932. Set foundSkill = Range("A:A").Find(nama_label.Caption)
  3933. foundSkill.Select
  3934. TPM_ERG.skillpercent.value = Format(ActiveCell.Offset(0, 1).value, "0%")
  3935.  
  3936. If TPM_ERG.skillpercent.value >= Format(Range("B21").value, "0%") Or TPM_ERG.skillpercent.value = "100%" Then
  3937.  
  3938. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  3939. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  3940. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  3941.  
  3942. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  3943. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  3944.  
  3945.  
  3946.  
  3947. TPM_ERG.Label666.Caption = "YOUR SPIRALLING MACHINE SKILL IS : "
  3948. Call skillgrade
  3949.  
  3950.  
  3951. ThisWorkbook.Sheets("SPIRALLING DATE").Activate
  3952.  
  3953. SPIRAL.mach_label.Caption = TPM_ERG.spiralnolabelpage3_2.Caption
  3954. SPIRAL.Image1.Picture = LoadPicture(ThisWorkbook.path & "\Picture\Machine Picture\spiralling.jpg")
  3955.  
  3956. SPIRAL.m_1.value = Format(Range("C13"), "dd mmmm yyyy")
  3957. SPIRAL.m_2.value = Format(Range("C14"), "dd mmmm yyyy")
  3958. SPIRAL.m_3.value = Format(Range("C15"), "dd mmmm yyyy")
  3959.  
  3960. SPIRAL.Caption = TPM_ERG.spiralnolabelpage3_2.Caption
  3961.  
  3962. TPM_ERG.calendartext.value = "22"
  3963.  
  3964. SPIRAL.show
  3965.  
  3966. Else:
  3967.  
  3968. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  3969. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  3970. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  3971.  
  3972. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  3973. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  3974.  
  3975.  
  3976. TPM_ERG.Label666.Caption = "YOUR SPIRALLING MACHINE SKILL IS : "
  3977. Call skillgrade
  3978.  
  3979. UserForm2.show
  3980.  
  3981. End If
  3982.  
  3983.  
  3984. End Sub
  3985.  
  3986. Private Sub spiralclickpage3_3_Click()
  3987.  
  3988. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  3989. If Format(Range("B21").value, "0%") = "100%" Then
  3990. Range("B21").value = "99,1%"
  3991. End If
  3992.  
  3993. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  3994. Dim foundSkill As Range
  3995. Set foundSkill = Range("A:A").Find(nama_label.Caption)
  3996. foundSkill.Select
  3997. TPM_ERG.skillpercent.value = Format(ActiveCell.Offset(0, 1).value, "0%")
  3998.  
  3999. If TPM_ERG.skillpercent.value >= Format(Range("B21").value, "0%") Or TPM_ERG.skillpercent.value = "100%" Then
  4000.  
  4001. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  4002. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  4003. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  4004.  
  4005. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  4006. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  4007.  
  4008.  
  4009.  
  4010. TPM_ERG.Label666.Caption = "YOUR SPIRALLING MACHINE SKILL IS : "
  4011. Call skillgrade
  4012.  
  4013.  
  4014. ThisWorkbook.Sheets("SPIRALLING DATE").Activate
  4015.  
  4016. SPIRAL.mach_label.Caption = TPM_ERG.spiralnolabelpage3_3.Caption
  4017. SPIRAL.Image1.Picture = LoadPicture(ThisWorkbook.path & "\Picture\Machine Picture\spiralling.jpg")
  4018.  
  4019. SPIRAL.m_1.value = Format(Range("D13"), "dd mmmm yyyy")
  4020. SPIRAL.m_2.value = Format(Range("D14"), "dd mmmm yyyy")
  4021. SPIRAL.m_3.value = Format(Range("D15"), "dd mmmm yyyy")
  4022.  
  4023. SPIRAL.Caption = TPM_ERG.spiralnolabelpage3_3.Caption
  4024.  
  4025. TPM_ERG.calendartext.value = "23"
  4026.  
  4027. SPIRAL.show
  4028.  
  4029. Else:
  4030.  
  4031. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  4032. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  4033. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  4034.  
  4035. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  4036. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  4037.  
  4038.  
  4039. TPM_ERG.Label666.Caption = "YOUR SPIRALLING MACHINE SKILL IS : "
  4040. Call skillgrade
  4041.  
  4042. UserForm2.show
  4043.  
  4044. End If
  4045.  
  4046.  
  4047.  
  4048. End Sub
  4049.  
  4050. Private Sub spiralclickpage3_4_Click()
  4051.  
  4052. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  4053. If Format(Range("B21").value, "0%") = "100%" Then
  4054. Range("B21").value = "99,1%"
  4055. End If
  4056.  
  4057. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  4058. Dim foundSkill As Range
  4059. Set foundSkill = Range("A:A").Find(nama_label.Caption)
  4060. foundSkill.Select
  4061. TPM_ERG.skillpercent.value = Format(ActiveCell.Offset(0, 1).value, "0%")
  4062.  
  4063. If TPM_ERG.skillpercent.value >= Format(Range("B21").value, "0%") Or TPM_ERG.skillpercent.value = "100%" Then
  4064.  
  4065. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  4066. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  4067. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  4068.  
  4069. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  4070. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  4071.  
  4072.  
  4073.  
  4074. TPM_ERG.Label666.Caption = "YOUR SPIRALLING MACHINE SKILL IS : "
  4075. Call skillgrade
  4076.  
  4077.  
  4078. ThisWorkbook.Sheets("SPIRALLING DATE").Activate
  4079.  
  4080. SPIRAL.mach_label.Caption = TPM_ERG.spiralnolabelpage3_4.Caption
  4081. SPIRAL.Image1.Picture = LoadPicture(ThisWorkbook.path & "\Picture\Machine Picture\spiralling.jpg")
  4082.  
  4083. SPIRAL.m_1.value = Format(Range("E13"), "dd mmmm yyyy")
  4084. SPIRAL.m_2.value = Format(Range("E14"), "dd mmmm yyyy")
  4085. SPIRAL.m_3.value = Format(Range("E15"), "dd mmmm yyyy")
  4086.  
  4087. SPIRAL.Caption = TPM_ERG.spiralnolabelpage3_4.Caption
  4088.  
  4089. TPM_ERG.calendartext.value = "24"
  4090.  
  4091. SPIRAL.show
  4092.  
  4093. Else:
  4094.  
  4095. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  4096. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  4097. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  4098.  
  4099. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  4100. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  4101.  
  4102.  
  4103. TPM_ERG.Label666.Caption = "YOUR SPIRALLING MACHINE SKILL IS : "
  4104. Call skillgrade
  4105.  
  4106. UserForm2.show
  4107.  
  4108. End If
  4109.  
  4110.  
  4111.  
  4112. End Sub
  4113.  
  4114. Private Sub spiralclickpage3_5_Click()
  4115.  
  4116. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  4117. If Format(Range("B21").value, "0%") = "100%" Then
  4118. Range("B21").value = "99,1%"
  4119. End If
  4120.  
  4121. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  4122. Dim foundSkill As Range
  4123. Set foundSkill = Range("A:A").Find(nama_label.Caption)
  4124. foundSkill.Select
  4125. TPM_ERG.skillpercent.value = Format(ActiveCell.Offset(0, 1).value, "0%")
  4126.  
  4127. If TPM_ERG.skillpercent.value >= Format(Range("B21").value, "0%") Or TPM_ERG.skillpercent.value = "100%" Then
  4128.  
  4129. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  4130. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  4131. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  4132.  
  4133. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  4134. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  4135.  
  4136.  
  4137.  
  4138. TPM_ERG.Label666.Caption = "YOUR SPIRALLING MACHINE SKILL IS : "
  4139. Call skillgrade
  4140.  
  4141.  
  4142. ThisWorkbook.Sheets("SPIRALLING DATE").Activate
  4143.  
  4144. SPIRAL.mach_label.Caption = TPM_ERG.spiralnolabelpage3_5.Caption
  4145. SPIRAL.Image1.Picture = LoadPicture(ThisWorkbook.path & "\Picture\Machine Picture\spiralling.jpg")
  4146.  
  4147. SPIRAL.m_1.value = Format(Range("F13"), "dd mmmm yyyy")
  4148. SPIRAL.m_2.value = Format(Range("F14"), "dd mmmm yyyy")
  4149. SPIRAL.m_3.value = Format(Range("F15"), "dd mmmm yyyy")
  4150.  
  4151. SPIRAL.Caption = TPM_ERG.spiralnolabelpage3_5.Caption
  4152.  
  4153. TPM_ERG.calendartext.value = "25"
  4154.  
  4155. SPIRAL.show
  4156.  
  4157. Else:
  4158.  
  4159. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  4160. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  4161. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  4162.  
  4163. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  4164. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  4165.  
  4166.  
  4167. TPM_ERG.Label666.Caption = "YOUR SPIRALLING MACHINE SKILL IS : "
  4168. Call skillgrade
  4169.  
  4170. UserForm2.show
  4171.  
  4172. End If
  4173.  
  4174.  
  4175.  
  4176.  
  4177. End Sub
  4178.  
  4179. Private Sub spiralclickpage3_6_Click()
  4180.  
  4181. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  4182. If Format(Range("B21").value, "0%") = "100%" Then
  4183. Range("B21").value = "99,1%"
  4184. End If
  4185.  
  4186. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  4187. Dim foundSkill As Range
  4188. Set foundSkill = Range("A:A").Find(nama_label.Caption)
  4189. foundSkill.Select
  4190. TPM_ERG.skillpercent.value = Format(ActiveCell.Offset(0, 1).value, "0%")
  4191.  
  4192. If TPM_ERG.skillpercent.value >= Format(Range("B21").value, "0%") Or TPM_ERG.skillpercent.value = "100%" Then
  4193.  
  4194. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  4195. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  4196. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  4197.  
  4198. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  4199. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  4200.  
  4201.  
  4202.  
  4203. TPM_ERG.Label666.Caption = "YOUR SPIRALLING MACHINE SKILL IS : "
  4204. Call skillgrade
  4205.  
  4206.  
  4207. ThisWorkbook.Sheets("SPIRALLING DATE").Activate
  4208.  
  4209. SPIRAL.mach_label.Caption = TPM_ERG.spiralnolabelpage3_6.Caption
  4210. SPIRAL.Image1.Picture = LoadPicture(ThisWorkbook.path & "\Picture\Machine Picture\spiralling.jpg")
  4211.  
  4212. SPIRAL.m_1.value = Format(Range("G13"), "dd mmmm yyyy")
  4213. SPIRAL.m_2.value = Format(Range("G14"), "dd mmmm yyyy")
  4214. SPIRAL.m_3.value = Format(Range("G15"), "dd mmmm yyyy")
  4215.  
  4216. SPIRAL.Caption = TPM_ERG.spiralnolabelpage3_6.Caption
  4217.  
  4218. TPM_ERG.calendartext.value = "26"
  4219.  
  4220. SPIRAL.show
  4221.  
  4222. Else:
  4223.  
  4224. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  4225. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  4226. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  4227.  
  4228. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  4229. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  4230.  
  4231.  
  4232. TPM_ERG.Label666.Caption = "YOUR SPIRALLING MACHINE SKILL IS : "
  4233. Call skillgrade
  4234.  
  4235. UserForm2.show
  4236.  
  4237. End If
  4238.  
  4239.  
  4240. End Sub
  4241.  
  4242. Private Sub spiralclickpage3_7_Click()
  4243.  
  4244. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  4245. If Format(Range("B21").value, "0%") = "100%" Then
  4246. Range("B21").value = "99,1%"
  4247. End If
  4248.  
  4249. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  4250. Dim foundSkill As Range
  4251. Set foundSkill = Range("A:A").Find(nama_label.Caption)
  4252. foundSkill.Select
  4253. TPM_ERG.skillpercent.value = Format(ActiveCell.Offset(0, 1).value, "0%")
  4254.  
  4255. If TPM_ERG.skillpercent.value >= Format(Range("B21").value, "0%") Or TPM_ERG.skillpercent.value = "100%" Then
  4256.  
  4257. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  4258. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  4259. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  4260.  
  4261. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  4262. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  4263.  
  4264.  
  4265.  
  4266. TPM_ERG.Label666.Caption = "YOUR SPIRALLING MACHINE SKILL IS : "
  4267. Call skillgrade
  4268.  
  4269.  
  4270. ThisWorkbook.Sheets("SPIRALLING DATE").Activate
  4271.  
  4272. SPIRAL.mach_label.Caption = TPM_ERG.spiralnolabelpage3_7.Caption
  4273. SPIRAL.Image1.Picture = LoadPicture(ThisWorkbook.path & "\Picture\Machine Picture\spiralling.jpg")
  4274.  
  4275. SPIRAL.m_1.value = Format(Range("H13"), "dd mmmm yyyy")
  4276. SPIRAL.m_2.value = Format(Range("H14"), "dd mmmm yyyy")
  4277. SPIRAL.m_3.value = Format(Range("H15"), "dd mmmm yyyy")
  4278.  
  4279. SPIRAL.Caption = TPM_ERG.spiralnolabelpage3_7.Caption
  4280.  
  4281. TPM_ERG.calendartext.value = "27"
  4282.  
  4283. SPIRAL.show
  4284.  
  4285. Else:
  4286.  
  4287. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  4288. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  4289. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  4290.  
  4291. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  4292. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  4293.  
  4294.  
  4295. TPM_ERG.Label666.Caption = "YOUR SPIRALLING MACHINE SKILL IS : "
  4296. Call skillgrade
  4297.  
  4298. UserForm2.show
  4299.  
  4300. End If
  4301.  
  4302.  
  4303. End Sub
  4304.  
  4305. Private Sub spiralclickpage3_8_Click()
  4306.  
  4307.  
  4308. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  4309. If Format(Range("B21").value, "0%") = "100%" Then
  4310. Range("B21").value = "99,1%"
  4311. End If
  4312.  
  4313. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  4314. Dim foundSkill As Range
  4315. Set foundSkill = Range("A:A").Find(nama_label.Caption)
  4316. foundSkill.Select
  4317. TPM_ERG.skillpercent.value = Format(ActiveCell.Offset(0, 1).value, "0%")
  4318.  
  4319. If TPM_ERG.skillpercent.value >= Format(Range("B21").value, "0%") Or TPM_ERG.skillpercent.value = "100%" Then
  4320.  
  4321. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  4322. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  4323. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  4324.  
  4325. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  4326. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  4327.  
  4328.  
  4329.  
  4330. TPM_ERG.Label666.Caption = "YOUR SPIRALLING MACHINE SKILL IS : "
  4331. Call skillgrade
  4332.  
  4333.  
  4334. ThisWorkbook.Sheets("SPIRALLING DATE").Activate
  4335.  
  4336. SPIRAL.mach_label.Caption = TPM_ERG.spiralnolabelpage3_8.Caption
  4337. SPIRAL.Image1.Picture = LoadPicture(ThisWorkbook.path & "\Picture\Machine Picture\spiralling.jpg")
  4338.  
  4339. SPIRAL.m_1.value = Format(Range("I13"), "dd mmmm yyyy")
  4340. SPIRAL.m_2.value = Format(Range("I14"), "dd mmmm yyyy")
  4341. SPIRAL.m_3.value = Format(Range("I15"), "dd mmmm yyyy")
  4342.  
  4343. SPIRAL.Caption = TPM_ERG.spiralnolabelpage3_8.Caption
  4344.  
  4345. TPM_ERG.calendartext.value = "28"
  4346.  
  4347. SPIRAL.show
  4348.  
  4349. Else:
  4350.  
  4351. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  4352. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  4353. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  4354.  
  4355. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  4356. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  4357.  
  4358.  
  4359. TPM_ERG.Label666.Caption = "YOUR SPIRALLING MACHINE SKILL IS : "
  4360. Call skillgrade
  4361.  
  4362. UserForm2.show
  4363.  
  4364. End If
  4365.  
  4366.  
  4367. End Sub
  4368.  
  4369. Private Sub spiralclickpage3_9_Click()
  4370.  
  4371.  
  4372. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  4373. If Format(Range("B21").value, "0%") = "100%" Then
  4374. Range("B21").value = "99,1%"
  4375. End If
  4376.  
  4377. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  4378. Dim foundSkill As Range
  4379. Set foundSkill = Range("A:A").Find(nama_label.Caption)
  4380. foundSkill.Select
  4381. TPM_ERG.skillpercent.value = Format(ActiveCell.Offset(0, 1).value, "0%")
  4382.  
  4383. If TPM_ERG.skillpercent.value >= Format(Range("B21").value, "0%") Or TPM_ERG.skillpercent.value = "100%" Then
  4384.  
  4385. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  4386. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  4387. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  4388.  
  4389. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  4390. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  4391.  
  4392.  
  4393.  
  4394. TPM_ERG.Label666.Caption = "YOUR SPIRALLING MACHINE SKILL IS : "
  4395. Call skillgrade
  4396.  
  4397.  
  4398. ThisWorkbook.Sheets("SPIRALLING DATE").Activate
  4399.  
  4400. SPIRAL.mach_label.Caption = TPM_ERG.spiralnolabelpage3_9.Caption
  4401. SPIRAL.Image1.Picture = LoadPicture(ThisWorkbook.path & "\Picture\Machine Picture\spiralling.jpg")
  4402.  
  4403. SPIRAL.m_1.value = Format(Range("J13"), "dd mmmm yyyy")
  4404. SPIRAL.m_2.value = Format(Range("J14"), "dd mmmm yyyy")
  4405. SPIRAL.m_3.value = Format(Range("J15"), "dd mmmm yyyy")
  4406.  
  4407. SPIRAL.Caption = TPM_ERG.spiralnolabelpage3_9.Caption
  4408.  
  4409. TPM_ERG.calendartext.value = "29"
  4410.  
  4411. SPIRAL.show
  4412.  
  4413. Else:
  4414.  
  4415. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  4416. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  4417. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  4418.  
  4419. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  4420. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  4421.  
  4422.  
  4423. TPM_ERG.Label666.Caption = "YOUR SPIRALLING MACHINE SKILL IS : "
  4424. Call skillgrade
  4425.  
  4426. UserForm2.show
  4427.  
  4428. End If
  4429.  
  4430.  
  4431. End Sub
  4432.  
  4433. Private Sub spiralclickpage4_1_Click()
  4434.  
  4435. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  4436. If Format(Range("B21").value, "0%") = "100%" Then
  4437. Range("B21").value = "99,1%"
  4438. End If
  4439.  
  4440. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  4441.  
  4442. If TPM_ERG.OptionButton2 = True Then
  4443. Dim foundSkill As Range
  4444. Set foundSkill = Range("A:A").Find(nama_label.Caption)
  4445. foundSkill.Select
  4446. TPM_ERG.skillpercent.value = Format(ActiveCell.Offset(0, 1).value, "0%")
  4447.  
  4448. If TPM_ERG.skillpercent.value >= Format(Range("B21").value, "0%") Or TPM_ERG.skillpercent.value = "100%" Then
  4449.  
  4450. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  4451. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  4452. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  4453.  
  4454. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  4455. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  4456.  
  4457.  
  4458. TPM_ERG.Label666.Caption = "YOUR SPIRALLING MACHINE SKILL IS : "
  4459.  
  4460. Call skillgrade
  4461.  
  4462.  
  4463. ThisWorkbook.Sheets("SPIRALLING DATE").Activate
  4464.  
  4465. SPIRAL.mach_label.Caption = TPM_ERG.spiralnolabelpage4_1.Caption
  4466. SPIRAL.Image1.Picture = LoadPicture(ThisWorkbook.path & "\Picture\Machine Picture\spiralling.jpg")
  4467.  
  4468. SPIRAL.m_1.value = Format(Range("B18"), "dd mmmm yyyy")
  4469. SPIRAL.m_2.value = Format(Range("B19"), "dd mmmm yyyy")
  4470. SPIRAL.m_3.value = Format(Range("B20"), "dd mmmm yyyy")
  4471.  
  4472. SPIRAL.Caption = TPM_ERG.spiralnolabelpage4_1.Caption
  4473.  
  4474. TPM_ERG.calendartext.value = "31"
  4475.  
  4476. SPIRAL.show
  4477.  
  4478. Else:
  4479.  
  4480. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  4481. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  4482. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  4483.  
  4484. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  4485. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  4486.  
  4487.  
  4488. TPM_ERG.Label666.Caption = "YOUR SPIRALLING MACHINE SKILL IS : "
  4489. Call skillgrade
  4490.  
  4491. UserForm2.show
  4492.  
  4493. End If
  4494.  
  4495.  
  4496.  
  4497. ElseIf OptionButton1 = True Then
  4498. Dim foundaveragemaintenance As Range
  4499. Set foundaveragemaintenance = Range("A:A").Find("Average")
  4500. foundaveragemaintenance.Select
  4501. TPM_ERG.skillpercent.value = Format(ActiveCell.Offset(0, 1).value, "0%")
  4502.  
  4503. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  4504. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  4505. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  4506.  
  4507. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  4508. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  4509.  
  4510.  
  4511. TPM_ERG.Label762.Caption = "AVERAGE MAINTENANCE SPIRALLING MACHINE SKILL IS : "
  4512. Call skillgrade
  4513.  
  4514.  
  4515. ThisWorkbook.Sheets("SPIRALLING DATE").Activate
  4516.  
  4517. SPIRAL.mach_label.Caption = TPM_ERG.spiralnolabelpage4_1.Caption
  4518. SPIRAL.Image1.Picture = LoadPicture(ThisWorkbook.path & "\Picture\Machine Picture\spiralling.jpg")
  4519.  
  4520. SPIRAL.m_1.value = Format(Range("B18"), "dd mmmm yyyy")
  4521. SPIRAL.m_2.value = Format(Range("B19"), "dd mmmm yyyy")
  4522. SPIRAL.m_3.value = Format(Range("B20"), "dd mmmm yyyy")
  4523.  
  4524. SPIRAL.Caption = TPM_ERG.spiralnolabelpage4_1.Caption
  4525.  
  4526. TPM_ERG.calendartext.value = "31"
  4527.  
  4528. SPIRAL.show
  4529.  
  4530.  
  4531. End If
  4532.  
  4533.  
  4534. End Sub
  4535.  
  4536. Private Sub spiralclickpage4_10_Click()
  4537.  
  4538.  
  4539.  
  4540. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  4541. If Format(Range("B21").value, "0%") = "100%" Then
  4542. Range("B21").value = "99,1%"
  4543. End If
  4544.  
  4545. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  4546. Dim foundSkill As Range
  4547. Set foundSkill = Range("A:A").Find(nama_label.Caption)
  4548. foundSkill.Select
  4549. TPM_ERG.skillpercent.value = Format(ActiveCell.Offset(0, 1).value, "0%")
  4550.  
  4551. If TPM_ERG.skillpercent.value >= Format(Range("B21").value, "0%") Or TPM_ERG.skillpercent.value = "100%" Then
  4552.  
  4553. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  4554. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  4555. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  4556.  
  4557. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  4558. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  4559.  
  4560.  
  4561.  
  4562. TPM_ERG.Label666.Caption = "YOUR SPIRALLING MACHINE SKILL IS : "
  4563. Call skillgrade
  4564.  
  4565.  
  4566. ThisWorkbook.Sheets("SPIRALLING DATE").Activate
  4567.  
  4568. SPIRAL.mach_label.Caption = TPM_ERG.spiralnolabelpage4_10.Caption
  4569. SPIRAL.Image1.Picture = LoadPicture(ThisWorkbook.path & "\Picture\Machine Picture\spiralling.jpg")
  4570.  
  4571. SPIRAL.m_1.value = Format(Range("K18"), "dd mmmm yyyy")
  4572. SPIRAL.m_2.value = Format(Range("K19"), "dd mmmm yyyy")
  4573. SPIRAL.m_3.value = Format(Range("K20"), "dd mmmm yyyy")
  4574.  
  4575. SPIRAL.Caption = TPM_ERG.spiralnolabelpage4_10.Caption
  4576.  
  4577. TPM_ERG.calendartext.value = "40"
  4578.  
  4579. SPIRAL.show
  4580.  
  4581. Else:
  4582.  
  4583. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  4584. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  4585. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  4586.  
  4587. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  4588. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  4589.  
  4590.  
  4591. TPM_ERG.Label666.Caption = "YOUR SPIRALLING MACHINE SKILL IS : "
  4592. Call skillgrade
  4593.  
  4594. UserForm2.show
  4595.  
  4596. End If
  4597.  
  4598.  
  4599.  
  4600.  
  4601. End Sub
  4602.  
  4603. Private Sub spiralclickpage4_2_Click()
  4604.  
  4605.  
  4606. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  4607. If Format(Range("B21").value, "0%") = "100%" Then
  4608. Range("B21").value = "99,1%"
  4609. End If
  4610.  
  4611. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  4612. Dim foundSkill As Range
  4613. Set foundSkill = Range("A:A").Find(nama_label.Caption)
  4614. foundSkill.Select
  4615. TPM_ERG.skillpercent.value = Format(ActiveCell.Offset(0, 1).value, "0%")
  4616.  
  4617. If TPM_ERG.skillpercent.value >= Format(Range("B21").value, "0%") Or TPM_ERG.skillpercent.value = "100%" Then
  4618.  
  4619. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  4620. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  4621. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  4622.  
  4623. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  4624. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  4625.  
  4626.  
  4627.  
  4628. TPM_ERG.Label666.Caption = "YOUR SPIRALLING MACHINE SKILL IS : "
  4629. Call skillgrade
  4630.  
  4631.  
  4632. ThisWorkbook.Sheets("SPIRALLING DATE").Activate
  4633.  
  4634. SPIRAL.mach_label.Caption = TPM_ERG.spiralnolabelpage4_2.Caption
  4635. SPIRAL.Image1.Picture = LoadPicture(ThisWorkbook.path & "\Picture\Machine Picture\spiralling.jpg")
  4636.  
  4637. SPIRAL.m_1.value = Format(Range("C18"), "dd mmmm yyyy")
  4638. SPIRAL.m_2.value = Format(Range("C19"), "dd mmmm yyyy")
  4639. SPIRAL.m_3.value = Format(Range("C20"), "dd mmmm yyyy")
  4640.  
  4641. SPIRAL.Caption = TPM_ERG.spiralnolabelpage4_2.Caption
  4642.  
  4643. TPM_ERG.calendartext.value = "32"
  4644.  
  4645. SPIRAL.show
  4646.  
  4647. Else:
  4648.  
  4649. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  4650. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  4651. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  4652.  
  4653. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  4654. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  4655.  
  4656.  
  4657. TPM_ERG.Label666.Caption = "YOUR SPIRALLING MACHINE SKILL IS : "
  4658. Call skillgrade
  4659.  
  4660. UserForm2.show
  4661.  
  4662. End If
  4663.  
  4664.  
  4665. End Sub
  4666.  
  4667. Private Sub spiralclickpage4_3_Click()
  4668.  
  4669.  
  4670. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  4671. If Format(Range("B21").value, "0%") = "100%" Then
  4672. Range("B21").value = "99,1%"
  4673. End If
  4674.  
  4675. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  4676. Dim foundSkill As Range
  4677. Set foundSkill = Range("A:A").Find(nama_label.Caption)
  4678. foundSkill.Select
  4679. TPM_ERG.skillpercent.value = Format(ActiveCell.Offset(0, 1).value, "0%")
  4680.  
  4681. If TPM_ERG.skillpercent.value >= Format(Range("B21").value, "0%") Or TPM_ERG.skillpercent.value = "100%" Then
  4682.  
  4683. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  4684. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  4685. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  4686.  
  4687. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  4688. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  4689.  
  4690.  
  4691.  
  4692. TPM_ERG.Label666.Caption = "YOUR SPIRALLING MACHINE SKILL IS : "
  4693. Call skillgrade
  4694.  
  4695.  
  4696. ThisWorkbook.Sheets("SPIRALLING DATE").Activate
  4697.  
  4698. SPIRAL.mach_label.Caption = TPM_ERG.spiralnolabelpage4_3.Caption
  4699. SPIRAL.Image1.Picture = LoadPicture(ThisWorkbook.path & "\Picture\Machine Picture\spiralling.jpg")
  4700.  
  4701. SPIRAL.m_1.value = Format(Range("D18"), "dd mmmm yyyy")
  4702. SPIRAL.m_2.value = Format(Range("D19"), "dd mmmm yyyy")
  4703. SPIRAL.m_3.value = Format(Range("D20"), "dd mmmm yyyy")
  4704.  
  4705. SPIRAL.Caption = TPM_ERG.spiralnolabelpage4_3.Caption
  4706.  
  4707. TPM_ERG.calendartext.value = "33"
  4708.  
  4709. SPIRAL.show
  4710.  
  4711. Else:
  4712.  
  4713. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  4714. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  4715. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  4716.  
  4717. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  4718. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  4719.  
  4720.  
  4721. TPM_ERG.Label666.Caption = "YOUR SPIRALLING MACHINE SKILL IS : "
  4722. Call skillgrade
  4723.  
  4724. UserForm2.show
  4725.  
  4726. End If
  4727.  
  4728.  
  4729.  
  4730. End Sub
  4731.  
  4732. Private Sub spiralclickpage4_4_Click()
  4733.  
  4734.  
  4735. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  4736. If Format(Range("B21").value, "0%") = "100%" Then
  4737. Range("B21").value = "99,1%"
  4738. End If
  4739.  
  4740. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  4741. Dim foundSkill As Range
  4742. Set foundSkill = Range("A:A").Find(nama_label.Caption)
  4743. foundSkill.Select
  4744. TPM_ERG.skillpercent.value = Format(ActiveCell.Offset(0, 1).value, "0%")
  4745.  
  4746. If TPM_ERG.skillpercent.value >= Format(Range("B21").value, "0%") Or TPM_ERG.skillpercent.value = "100%" Then
  4747.  
  4748. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  4749. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  4750. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  4751.  
  4752. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  4753. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  4754.  
  4755.  
  4756.  
  4757. TPM_ERG.Label666.Caption = "YOUR SPIRALLING MACHINE SKILL IS : "
  4758. Call skillgrade
  4759.  
  4760.  
  4761. ThisWorkbook.Sheets("SPIRALLING DATE").Activate
  4762.  
  4763. SPIRAL.mach_label.Caption = TPM_ERG.spiralnolabelpage4_4.Caption
  4764. SPIRAL.Image1.Picture = LoadPicture(ThisWorkbook.path & "\Picture\Machine Picture\spiralling.jpg")
  4765.  
  4766. SPIRAL.m_1.value = Format(Range("E18"), "dd mmmm yyyy")
  4767. SPIRAL.m_2.value = Format(Range("E19"), "dd mmmm yyyy")
  4768. SPIRAL.m_3.value = Format(Range("E20"), "dd mmmm yyyy")
  4769.  
  4770. SPIRAL.Caption = TPM_ERG.spiralnolabelpage4_4.Caption
  4771.  
  4772. TPM_ERG.calendartext.value = "34"
  4773.  
  4774. SPIRAL.show
  4775.  
  4776. Else:
  4777.  
  4778. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  4779. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  4780. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  4781.  
  4782. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  4783. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  4784.  
  4785.  
  4786. TPM_ERG.Label666.Caption = "YOUR SPIRALLING MACHINE SKILL IS : "
  4787. Call skillgrade
  4788.  
  4789. UserForm2.show
  4790.  
  4791. End If
  4792.  
  4793.  
  4794.  
  4795.  
  4796. End Sub
  4797.  
  4798. Private Sub spiralclickpage4_5_Click()
  4799.  
  4800.  
  4801. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  4802. If Format(Range("B21").value, "0%") = "100%" Then
  4803. Range("B21").value = "99,1%"
  4804. End If
  4805.  
  4806. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  4807. Dim foundSkill As Range
  4808. Set foundSkill = Range("A:A").Find(nama_label.Caption)
  4809. foundSkill.Select
  4810. TPM_ERG.skillpercent.value = Format(ActiveCell.Offset(0, 1).value, "0%")
  4811.  
  4812. If TPM_ERG.skillpercent.value >= Format(Range("B21").value, "0%") Or TPM_ERG.skillpercent.value = "100%" Then
  4813.  
  4814. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  4815. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  4816. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  4817.  
  4818. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  4819. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  4820.  
  4821.  
  4822.  
  4823. TPM_ERG.Label666.Caption = "YOUR SPIRALLING MACHINE SKILL IS : "
  4824. Call skillgrade
  4825.  
  4826.  
  4827. ThisWorkbook.Sheets("SPIRALLING DATE").Activate
  4828.  
  4829. SPIRAL.mach_label.Caption = TPM_ERG.spiralnolabelpage4_5.Caption
  4830. SPIRAL.Image1.Picture = LoadPicture(ThisWorkbook.path & "\Picture\Machine Picture\spiralling.jpg")
  4831.  
  4832. SPIRAL.m_1.value = Format(Range("F18"), "dd mmmm yyyy")
  4833. SPIRAL.m_2.value = Format(Range("F19"), "dd mmmm yyyy")
  4834. SPIRAL.m_3.value = Format(Range("F20"), "dd mmmm yyyy")
  4835.  
  4836. SPIRAL.Caption = TPM_ERG.spiralnolabelpage4_5.Caption
  4837.  
  4838. TPM_ERG.calendartext.value = "35"
  4839.  
  4840. SPIRAL.show
  4841.  
  4842. Else:
  4843.  
  4844. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  4845. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  4846. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  4847.  
  4848. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  4849. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  4850.  
  4851.  
  4852. TPM_ERG.Label666.Caption = "YOUR SPIRALLING MACHINE SKILL IS : "
  4853. Call skillgrade
  4854.  
  4855. UserForm2.show
  4856.  
  4857. End If
  4858.  
  4859.  
  4860.  
  4861. End Sub
  4862.  
  4863. Private Sub spiralclickpage4_6_Click()
  4864.  
  4865.  
  4866. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  4867. If Format(Range("B21").value, "0%") = "100%" Then
  4868. Range("B21").value = "99,1%"
  4869. End If
  4870.  
  4871. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  4872. Dim foundSkill As Range
  4873. Set foundSkill = Range("A:A").Find(nama_label.Caption)
  4874. foundSkill.Select
  4875. TPM_ERG.skillpercent.value = Format(ActiveCell.Offset(0, 1).value, "0%")
  4876.  
  4877. If TPM_ERG.skillpercent.value >= Format(Range("B21").value, "0%") Or TPM_ERG.skillpercent.value = "100%" Then
  4878.  
  4879. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  4880. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  4881. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  4882.  
  4883. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  4884. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  4885.  
  4886.  
  4887.  
  4888. TPM_ERG.Label666.Caption = "YOUR SPIRALLING MACHINE SKILL IS : "
  4889. Call skillgrade
  4890.  
  4891.  
  4892. ThisWorkbook.Sheets("SPIRALLING DATE").Activate
  4893.  
  4894. SPIRAL.mach_label.Caption = TPM_ERG.spiralnolabelpage4_6.Caption
  4895. SPIRAL.Image1.Picture = LoadPicture(ThisWorkbook.path & "\Picture\Machine Picture\spiralling.jpg")
  4896.  
  4897. SPIRAL.m_1.value = Format(Range("G18"), "dd mmmm yyyy")
  4898. SPIRAL.m_2.value = Format(Range("G19"), "dd mmmm yyyy")
  4899. SPIRAL.m_3.value = Format(Range("G20"), "dd mmmm yyyy")
  4900.  
  4901. SPIRAL.Caption = TPM_ERG.spiralnolabelpage4_6.Caption
  4902.  
  4903. TPM_ERG.calendartext.value = "36"
  4904.  
  4905. SPIRAL.show
  4906.  
  4907. Else:
  4908.  
  4909. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  4910. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  4911. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  4912.  
  4913. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  4914. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  4915.  
  4916.  
  4917. TPM_ERG.Label666.Caption = "YOUR SPIRALLING MACHINE SKILL IS : "
  4918. Call skillgrade
  4919.  
  4920. UserForm2.show
  4921.  
  4922. End If
  4923.  
  4924.  
  4925.  
  4926.  
  4927. End Sub
  4928.  
  4929. Private Sub spiralclickpage4_7_Click()
  4930.  
  4931. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  4932. If Format(Range("B21").value, "0%") = "100%" Then
  4933. Range("B21").value = "99,1%"
  4934. End If
  4935.  
  4936. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  4937. Dim foundSkill As Range
  4938. Set foundSkill = Range("A:A").Find(nama_label.Caption)
  4939. foundSkill.Select
  4940. TPM_ERG.skillpercent.value = Format(ActiveCell.Offset(0, 1).value, "0%")
  4941.  
  4942. If TPM_ERG.skillpercent.value >= Format(Range("B21").value, "0%") Or TPM_ERG.skillpercent.value = "100%" Then
  4943.  
  4944. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  4945. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  4946. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  4947.  
  4948. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  4949. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  4950.  
  4951.  
  4952.  
  4953. TPM_ERG.Label666.Caption = "YOUR SPIRALLING MACHINE SKILL IS : "
  4954. Call skillgrade
  4955.  
  4956.  
  4957. ThisWorkbook.Sheets("SPIRALLING DATE").Activate
  4958.  
  4959. SPIRAL.mach_label.Caption = TPM_ERG.spiralnolabelpage4_7.Caption
  4960. SPIRAL.Image1.Picture = LoadPicture(ThisWorkbook.path & "\Picture\Machine Picture\spiralling.jpg")
  4961.  
  4962. SPIRAL.m_1.value = Format(Range("H18"), "dd mmmm yyyy")
  4963. SPIRAL.m_2.value = Format(Range("H19"), "dd mmmm yyyy")
  4964. SPIRAL.m_3.value = Format(Range("H20"), "dd mmmm yyyy")
  4965.  
  4966. SPIRAL.Caption = TPM_ERG.spiralnolabelpage4_7.Caption
  4967.  
  4968. TPM_ERG.calendartext.value = "37"
  4969.  
  4970. SPIRAL.show
  4971.  
  4972. Else:
  4973.  
  4974. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  4975. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  4976. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  4977.  
  4978. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  4979. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  4980.  
  4981.  
  4982. TPM_ERG.Label666.Caption = "YOUR SPIRALLING MACHINE SKILL IS : "
  4983. Call skillgrade
  4984.  
  4985. UserForm2.show
  4986.  
  4987. End If
  4988.  
  4989.  
  4990.  
  4991. End Sub
  4992.  
  4993. Private Sub spiralclickpage4_8_Click()
  4994.  
  4995. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  4996. If Format(Range("B21").value, "0%") = "100%" Then
  4997. Range("B21").value = "99,1%"
  4998. End If
  4999.  
  5000. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  5001. Dim foundSkill As Range
  5002. Set foundSkill = Range("A:A").Find(nama_label.Caption)
  5003. foundSkill.Select
  5004. TPM_ERG.skillpercent.value = Format(ActiveCell.Offset(0, 1).value, "0%")
  5005.  
  5006. If TPM_ERG.skillpercent.value >= Format(Range("B21").value, "0%") Or TPM_ERG.skillpercent.value = "100%" Then
  5007.  
  5008. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  5009. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  5010. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  5011.  
  5012. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  5013. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  5014.  
  5015.  
  5016.  
  5017. TPM_ERG.Label666.Caption = "YOUR SPIRALLING MACHINE SKILL IS : "
  5018. Call skillgrade
  5019.  
  5020.  
  5021. ThisWorkbook.Sheets("SPIRALLING DATE").Activate
  5022.  
  5023. SPIRAL.mach_label.Caption = TPM_ERG.spiralnolabelpage4_8.Caption
  5024. SPIRAL.Image1.Picture = LoadPicture(ThisWorkbook.path & "\Picture\Machine Picture\spiralling.jpg")
  5025.  
  5026. SPIRAL.m_1.value = Format(Range("I18"), "dd mmmm yyyy")
  5027. SPIRAL.m_2.value = Format(Range("I19"), "dd mmmm yyyy")
  5028. SPIRAL.m_3.value = Format(Range("I20"), "dd mmmm yyyy")
  5029.  
  5030. SPIRAL.Caption = TPM_ERG.spiralnolabelpage4_8.Caption
  5031.  
  5032. TPM_ERG.calendartext.value = "38"
  5033.  
  5034. SPIRAL.show
  5035.  
  5036. Else:
  5037.  
  5038. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  5039. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  5040. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  5041.  
  5042. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  5043. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  5044.  
  5045.  
  5046. TPM_ERG.Label666.Caption = "YOUR SPIRALLING MACHINE SKILL IS : "
  5047. Call skillgrade
  5048.  
  5049. UserForm2.show
  5050.  
  5051. End If
  5052.  
  5053.  
  5054. End Sub
  5055.  
  5056. Private Sub spiralclickpage4_9_Click()
  5057.  
  5058.  
  5059. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  5060. If Format(Range("B21").value, "0%") = "100%" Then
  5061. Range("B21").value = "99,1%"
  5062. End If
  5063.  
  5064. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  5065. Dim foundSkill As Range
  5066. Set foundSkill = Range("A:A").Find(nama_label.Caption)
  5067. foundSkill.Select
  5068. TPM_ERG.skillpercent.value = Format(ActiveCell.Offset(0, 1).value, "0%")
  5069.  
  5070. If TPM_ERG.skillpercent.value >= Format(Range("B21").value, "0%") Or TPM_ERG.skillpercent.value = "100%" Then
  5071.  
  5072. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  5073. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  5074. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  5075.  
  5076. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  5077. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  5078.  
  5079.  
  5080.  
  5081. TPM_ERG.Label666.Caption = "YOUR SPIRALLING MACHINE SKILL IS : "
  5082. Call skillgrade
  5083.  
  5084.  
  5085. ThisWorkbook.Sheets("SPIRALLING DATE").Activate
  5086.  
  5087. SPIRAL.mach_label.Caption = TPM_ERG.spiralnolabelpage4_9.Caption
  5088. SPIRAL.Image1.Picture = LoadPicture(ThisWorkbook.path & "\Picture\Machine Picture\spiralling.jpg")
  5089.  
  5090. SPIRAL.m_1.value = Format(Range("J18"), "dd mmmm yyyy")
  5091. SPIRAL.m_2.value = Format(Range("J19"), "dd mmmm yyyy")
  5092. SPIRAL.m_3.value = Format(Range("J20"), "dd mmmm yyyy")
  5093.  
  5094. SPIRAL.Caption = TPM_ERG.spiralnolabelpage4_9.Caption
  5095.  
  5096. TPM_ERG.calendartext.value = "39"
  5097.  
  5098. SPIRAL.show
  5099.  
  5100. Else:
  5101.  
  5102. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  5103. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  5104. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  5105.  
  5106. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  5107. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  5108.  
  5109.  
  5110. TPM_ERG.Label666.Caption = "YOUR SPIRALLING MACHINE SKILL IS : "
  5111. Call skillgrade
  5112.  
  5113. UserForm2.show
  5114.  
  5115. End If
  5116.  
  5117.  
  5118.  
  5119. End Sub
  5120.  
  5121. Private Sub spiralclickpage5_1_Click()
  5122.  
  5123. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  5124. If Format(Range("B21").value, "0%") = "100%" Then
  5125. Range("B21").value = "99,1%"
  5126. End If
  5127.  
  5128. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  5129. Dim foundSkill As Range
  5130. Set foundSkill = Range("A:A").Find(nama_label.Caption)
  5131. foundSkill.Select
  5132. TPM_ERG.skillpercent.value = Format(ActiveCell.Offset(0, 1).value, "0%")
  5133.  
  5134. If TPM_ERG.skillpercent.value >= Format(Range("B21").value, "0%") Or TPM_ERG.skillpercent.value = "100%" Then
  5135.  
  5136. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  5137. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  5138. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  5139.  
  5140. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  5141. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  5142.  
  5143.  
  5144.  
  5145. TPM_ERG.Label666.Caption = "YOUR SPIRALLING MACHINE SKILL IS : "
  5146. Call skillgrade
  5147.  
  5148.  
  5149. ThisWorkbook.Sheets("SPIRALLING DATE").Activate
  5150.  
  5151. SPIRAL.mach_label.Caption = TPM_ERG.spiralnolabelpage5_1.Caption
  5152. SPIRAL.Image1.Picture = LoadPicture(ThisWorkbook.path & "\Picture\Machine Picture\spiralling.jpg")
  5153.  
  5154. SPIRAL.m_1.value = Format(Range("B23"), "dd mmmm yyyy")
  5155. SPIRAL.m_2.value = Format(Range("B24"), "dd mmmm yyyy")
  5156. SPIRAL.m_3.value = Format(Range("B25"), "dd mmmm yyyy")
  5157.  
  5158. SPIRAL.Caption = TPM_ERG.spiralnolabelpage5_1.Caption
  5159.  
  5160. TPM_ERG.calendartext.value = "41"
  5161.  
  5162. SPIRAL.show
  5163.  
  5164. Else:
  5165.  
  5166. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  5167. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  5168. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  5169.  
  5170. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  5171. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  5172.  
  5173.  
  5174. TPM_ERG.Label666.Caption = "YOUR SPIRALLING MACHINE SKILL IS : "
  5175. Call skillgrade
  5176.  
  5177. UserForm2.show
  5178.  
  5179. End If
  5180.  
  5181.  
  5182. End Sub
  5183.  
  5184. Private Sub spiralclickpage5_10_Click()
  5185.  
  5186. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  5187. If Format(Range("B21").value, "0%") = "100%" Then
  5188. Range("B21").value = "99,1%"
  5189. End If
  5190.  
  5191. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  5192. Dim foundSkill As Range
  5193. Set foundSkill = Range("A:A").Find(nama_label.Caption)
  5194. foundSkill.Select
  5195. TPM_ERG.skillpercent.value = Format(ActiveCell.Offset(0, 1).value, "0%")
  5196.  
  5197. If TPM_ERG.skillpercent.value >= Format(Range("B21").value, "0%") Or TPM_ERG.skillpercent.value = "100%" Then
  5198.  
  5199. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  5200. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  5201. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  5202.  
  5203. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  5204. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  5205.  
  5206.  
  5207.  
  5208. TPM_ERG.Label666.Caption = "YOUR SPIRALLING MACHINE SKILL IS : "
  5209. Call skillgrade
  5210.  
  5211.  
  5212. ThisWorkbook.Sheets("SPIRALLING DATE").Activate
  5213.  
  5214. SPIRAL.mach_label.Caption = TPM_ERG.spiralnolabelpage5_10.Caption
  5215. SPIRAL.Image1.Picture = LoadPicture(ThisWorkbook.path & "\Picture\Machine Picture\spiralling.jpg")
  5216.  
  5217. SPIRAL.m_1.value = Format(Range("K23"), "dd mmmm yyyy")
  5218. SPIRAL.m_2.value = Format(Range("K24"), "dd mmmm yyyy")
  5219. SPIRAL.m_3.value = Format(Range("K25"), "dd mmmm yyyy")
  5220.  
  5221. SPIRAL.Caption = TPM_ERG.spiralnolabelpage5_10.Caption
  5222.  
  5223. TPM_ERG.calendartext.value = "50"
  5224.  
  5225. SPIRAL.show
  5226.  
  5227. Else:
  5228.  
  5229. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  5230. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  5231. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  5232.  
  5233. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  5234. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  5235.  
  5236.  
  5237. TPM_ERG.Label666.Caption = "YOUR SPIRALLING MACHINE SKILL IS : "
  5238. Call skillgrade
  5239.  
  5240. UserForm2.show
  5241.  
  5242. End If
  5243.  
  5244.  
  5245. End Sub
  5246.  
  5247. Private Sub spiralclickpage5_2_Click()
  5248.  
  5249.  
  5250. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  5251. If Format(Range("B21").value, "0%") = "100%" Then
  5252. Range("B21").value = "99,1%"
  5253. End If
  5254.  
  5255. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  5256. Dim foundSkill As Range
  5257. Set foundSkill = Range("A:A").Find(nama_label.Caption)
  5258. foundSkill.Select
  5259. TPM_ERG.skillpercent.value = Format(ActiveCell.Offset(0, 1).value, "0%")
  5260.  
  5261. If TPM_ERG.skillpercent.value >= Format(Range("B21").value, "0%") Or TPM_ERG.skillpercent.value = "100%" Then
  5262.  
  5263. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  5264. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  5265. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  5266.  
  5267. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  5268. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  5269.  
  5270.  
  5271.  
  5272. TPM_ERG.Label666.Caption = "YOUR SPIRALLING MACHINE SKILL IS : "
  5273. Call skillgrade
  5274.  
  5275.  
  5276. ThisWorkbook.Sheets("SPIRALLING DATE").Activate
  5277.  
  5278. SPIRAL.mach_label.Caption = TPM_ERG.spiralnolabelpage5_2.Caption
  5279. SPIRAL.Image1.Picture = LoadPicture(ThisWorkbook.path & "\Picture\Machine Picture\spiralling.jpg")
  5280.  
  5281. SPIRAL.m_1.value = Format(Range("C23"), "dd mmmm yyyy")
  5282. SPIRAL.m_2.value = Format(Range("C24"), "dd mmmm yyyy")
  5283. SPIRAL.m_3.value = Format(Range("C25"), "dd mmmm yyyy")
  5284.  
  5285. SPIRAL.Caption = TPM_ERG.spiralnolabelpage5_2.Caption
  5286.  
  5287. TPM_ERG.calendartext.value = "42"
  5288.  
  5289. SPIRAL.show
  5290.  
  5291. Else:
  5292.  
  5293. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  5294. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  5295. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  5296.  
  5297. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  5298. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  5299.  
  5300.  
  5301. TPM_ERG.Label666.Caption = "YOUR SPIRALLING MACHINE SKILL IS : "
  5302. Call skillgrade
  5303.  
  5304. UserForm2.show
  5305.  
  5306. End If
  5307.  
  5308.  
  5309.  
  5310. End Sub
  5311.  
  5312. Private Sub spiralclickpage5_3_Click()
  5313.  
  5314.  
  5315. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  5316. If Format(Range("B21").value, "0%") = "100%" Then
  5317. Range("B21").value = "99,1%"
  5318. End If
  5319.  
  5320. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  5321. Dim foundSkill As Range
  5322. Set foundSkill = Range("A:A").Find(nama_label.Caption)
  5323. foundSkill.Select
  5324. TPM_ERG.skillpercent.value = Format(ActiveCell.Offset(0, 1).value, "0%")
  5325.  
  5326. If TPM_ERG.skillpercent.value >= Format(Range("B21").value, "0%") Or TPM_ERG.skillpercent.value = "100%" Then
  5327.  
  5328. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  5329. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  5330. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  5331.  
  5332. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  5333. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  5334.  
  5335.  
  5336.  
  5337. TPM_ERG.Label666.Caption = "YOUR SPIRALLING MACHINE SKILL IS : "
  5338. Call skillgrade
  5339.  
  5340.  
  5341. ThisWorkbook.Sheets("SPIRALLING DATE").Activate
  5342.  
  5343. SPIRAL.mach_label.Caption = TPM_ERG.spiralnolabelpage5_3.Caption
  5344. SPIRAL.Image1.Picture = LoadPicture(ThisWorkbook.path & "\Picture\Machine Picture\spiralling.jpg")
  5345.  
  5346. SPIRAL.m_1.value = Format(Range("D23"), "dd mmmm yyyy")
  5347. SPIRAL.m_2.value = Format(Range("D24"), "dd mmmm yyyy")
  5348. SPIRAL.m_3.value = Format(Range("D25"), "dd mmmm yyyy")
  5349.  
  5350. SPIRAL.Caption = TPM_ERG.spiralnolabelpage5_3.Caption
  5351.  
  5352. TPM_ERG.calendartext.value = "43"
  5353.  
  5354. SPIRAL.show
  5355.  
  5356. Else:
  5357.  
  5358. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  5359. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  5360. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  5361.  
  5362. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  5363. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  5364.  
  5365.  
  5366. TPM_ERG.Label666.Caption = "YOUR SPIRALLING MACHINE SKILL IS : "
  5367. Call skillgrade
  5368.  
  5369. UserForm2.show
  5370.  
  5371. End If
  5372.  
  5373.  
  5374.  
  5375. End Sub
  5376.  
  5377. Private Sub spiralclickpage5_4_Click()
  5378.  
  5379.  
  5380. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  5381. If Format(Range("B21").value, "0%") = "100%" Then
  5382. Range("B21").value = "99,1%"
  5383. End If
  5384.  
  5385. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  5386. Dim foundSkill As Range
  5387. Set foundSkill = Range("A:A").Find(nama_label.Caption)
  5388. foundSkill.Select
  5389. TPM_ERG.skillpercent.value = Format(ActiveCell.Offset(0, 1).value, "0%")
  5390.  
  5391. If TPM_ERG.skillpercent.value >= Format(Range("B21").value, "0%") Or TPM_ERG.skillpercent.value = "100%" Then
  5392.  
  5393. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  5394. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  5395. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  5396.  
  5397. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  5398. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  5399.  
  5400.  
  5401.  
  5402. TPM_ERG.Label666.Caption = "YOUR SPIRALLING MACHINE SKILL IS : "
  5403. Call skillgrade
  5404.  
  5405.  
  5406. ThisWorkbook.Sheets("SPIRALLING DATE").Activate
  5407.  
  5408. SPIRAL.mach_label.Caption = TPM_ERG.spiralnolabelpage5_4.Caption
  5409. SPIRAL.Image1.Picture = LoadPicture(ThisWorkbook.path & "\Picture\Machine Picture\spiralling.jpg")
  5410.  
  5411. SPIRAL.m_1.value = Format(Range("E23"), "dd mmmm yyyy")
  5412. SPIRAL.m_2.value = Format(Range("E24"), "dd mmmm yyyy")
  5413. SPIRAL.m_3.value = Format(Range("E25"), "dd mmmm yyyy")
  5414.  
  5415. SPIRAL.Caption = TPM_ERG.spiralnolabelpage5_4.Caption
  5416.  
  5417. TPM_ERG.calendartext.value = "44"
  5418.  
  5419. SPIRAL.show
  5420.  
  5421. Else:
  5422.  
  5423. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  5424. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  5425. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  5426.  
  5427. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  5428. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  5429.  
  5430.  
  5431. TPM_ERG.Label666.Caption = "YOUR SPIRALLING MACHINE SKILL IS : "
  5432. Call skillgrade
  5433.  
  5434. UserForm2.show
  5435.  
  5436. End If
  5437.  
  5438.  
  5439.  
  5440.  
  5441. End Sub
  5442.  
  5443. Private Sub spiralclickpage5_5_Click()
  5444.  
  5445.  
  5446. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  5447. If Format(Range("B21").value, "0%") = "100%" Then
  5448. Range("B21").value = "99,1%"
  5449. End If
  5450.  
  5451. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  5452. Dim foundSkill As Range
  5453. Set foundSkill = Range("A:A").Find(nama_label.Caption)
  5454. foundSkill.Select
  5455. TPM_ERG.skillpercent.value = Format(ActiveCell.Offset(0, 1).value, "0%")
  5456.  
  5457. If TPM_ERG.skillpercent.value >= Format(Range("B21").value, "0%") Or TPM_ERG.skillpercent.value = "100%" Then
  5458.  
  5459. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  5460. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  5461. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  5462.  
  5463. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  5464. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  5465.  
  5466.  
  5467.  
  5468. TPM_ERG.Label666.Caption = "YOUR SPIRALLING MACHINE SKILL IS : "
  5469. Call skillgrade
  5470.  
  5471.  
  5472. ThisWorkbook.Sheets("SPIRALLING DATE").Activate
  5473.  
  5474. SPIRAL.mach_label.Caption = TPM_ERG.spiralnolabelpage5_5.Caption
  5475. SPIRAL.Image1.Picture = LoadPicture(ThisWorkbook.path & "\Picture\Machine Picture\spiralling.jpg")
  5476.  
  5477. SPIRAL.m_1.value = Format(Range("F23"), "dd mmmm yyyy")
  5478. SPIRAL.m_2.value = Format(Range("F24"), "dd mmmm yyyy")
  5479. SPIRAL.m_3.value = Format(Range("F25"), "dd mmmm yyyy")
  5480.  
  5481. SPIRAL.Caption = TPM_ERG.spiralnolabelpage5_5.Caption
  5482.  
  5483. TPM_ERG.calendartext.value = "45"
  5484.  
  5485. SPIRAL.show
  5486.  
  5487. Else:
  5488.  
  5489. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  5490. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  5491. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  5492.  
  5493. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  5494. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  5495.  
  5496.  
  5497. TPM_ERG.Label666.Caption = "YOUR SPIRALLING MACHINE SKILL IS : "
  5498. Call skillgrade
  5499.  
  5500. UserForm2.show
  5501.  
  5502. End If
  5503.  
  5504.  
  5505.  
  5506. End Sub
  5507.  
  5508. Private Sub spiralclickpage5_6_Click()
  5509.  
  5510.  
  5511. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  5512. If Format(Range("B21").value, "0%") = "100%" Then
  5513. Range("B21").value = "99,1%"
  5514. End If
  5515.  
  5516. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  5517. Dim foundSkill As Range
  5518. Set foundSkill = Range("A:A").Find(nama_label.Caption)
  5519. foundSkill.Select
  5520. TPM_ERG.skillpercent.value = Format(ActiveCell.Offset(0, 1).value, "0%")
  5521.  
  5522. If TPM_ERG.skillpercent.value >= Format(Range("B21").value, "0%") Or TPM_ERG.skillpercent.value = "100%" Then
  5523.  
  5524. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  5525. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  5526. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  5527.  
  5528. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  5529. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  5530.  
  5531.  
  5532.  
  5533. TPM_ERG.Label666.Caption = "YOUR SPIRALLING MACHINE SKILL IS : "
  5534. Call skillgrade
  5535.  
  5536.  
  5537. ThisWorkbook.Sheets("SPIRALLING DATE").Activate
  5538.  
  5539. SPIRAL.mach_label.Caption = TPM_ERG.spiralnolabelpage5_6.Caption
  5540. SPIRAL.Image1.Picture = LoadPicture(ThisWorkbook.path & "\Picture\Machine Picture\spiralling.jpg")
  5541.  
  5542. SPIRAL.m_1.value = Format(Range("G23"), "dd mmmm yyyy")
  5543. SPIRAL.m_2.value = Format(Range("G24"), "dd mmmm yyyy")
  5544. SPIRAL.m_3.value = Format(Range("G25"), "dd mmmm yyyy")
  5545.  
  5546. SPIRAL.Caption = TPM_ERG.spiralnolabelpage5_6.Caption
  5547.  
  5548. TPM_ERG.calendartext.value = "46"
  5549.  
  5550. SPIRAL.show
  5551.  
  5552. Else:
  5553.  
  5554. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  5555. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  5556. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  5557.  
  5558. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  5559. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  5560.  
  5561.  
  5562. TPM_ERG.Label666.Caption = "YOUR SPIRALLING MACHINE SKILL IS : "
  5563. Call skillgrade
  5564.  
  5565. UserForm2.show
  5566.  
  5567. End If
  5568.  
  5569.  
  5570.  
  5571. End Sub
  5572.  
  5573. Private Sub spiralclickpage5_7_Click()
  5574.  
  5575. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  5576. If Format(Range("B21").value, "0%") = "100%" Then
  5577. Range("B21").value = "99,1%"
  5578. End If
  5579.  
  5580. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  5581. Dim foundSkill As Range
  5582. Set foundSkill = Range("A:A").Find(nama_label.Caption)
  5583. foundSkill.Select
  5584. TPM_ERG.skillpercent.value = Format(ActiveCell.Offset(0, 1).value, "0%")
  5585.  
  5586. If TPM_ERG.skillpercent.value >= Format(Range("B21").value, "0%") Or TPM_ERG.skillpercent.value = "100%" Then
  5587.  
  5588. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  5589. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  5590. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  5591.  
  5592. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  5593. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  5594.  
  5595.  
  5596.  
  5597. TPM_ERG.Label666.Caption = "YOUR SPIRALLING MACHINE SKILL IS : "
  5598. Call skillgrade
  5599.  
  5600.  
  5601. ThisWorkbook.Sheets("SPIRALLING DATE").Activate
  5602.  
  5603. SPIRAL.mach_label.Caption = TPM_ERG.spiralnolabelpage5_7.Caption
  5604. SPIRAL.Image1.Picture = LoadPicture(ThisWorkbook.path & "\Picture\Machine Picture\spiralling.jpg")
  5605.  
  5606. SPIRAL.m_1.value = Format(Range("H23"), "dd mmmm yyyy")
  5607. SPIRAL.m_2.value = Format(Range("H24"), "dd mmmm yyyy")
  5608. SPIRAL.m_3.value = Format(Range("H25"), "dd mmmm yyyy")
  5609.  
  5610. SPIRAL.Caption = TPM_ERG.spiralnolabelpage5_7.Caption
  5611.  
  5612. TPM_ERG.calendartext.value = "47"
  5613.  
  5614. SPIRAL.show
  5615.  
  5616. Else:
  5617.  
  5618. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  5619. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  5620. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  5621.  
  5622. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  5623. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  5624.  
  5625.  
  5626. TPM_ERG.Label666.Caption = "YOUR SPIRALLING MACHINE SKILL IS : "
  5627. Call skillgrade
  5628.  
  5629. UserForm2.show
  5630.  
  5631. End If
  5632.  
  5633.  
  5634. End Sub
  5635.  
  5636. Private Sub spiralclickpage5_8_Click()
  5637.  
  5638. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  5639. If Format(Range("B21").value, "0%") = "100%" Then
  5640. Range("B21").value = "99,1%"
  5641. End If
  5642.  
  5643. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  5644. Dim foundSkill As Range
  5645. Set foundSkill = Range("A:A").Find(nama_label.Caption)
  5646. foundSkill.Select
  5647. TPM_ERG.skillpercent.value = Format(ActiveCell.Offset(0, 1).value, "0%")
  5648.  
  5649. If TPM_ERG.skillpercent.value >= Format(Range("B21").value, "0%") Or TPM_ERG.skillpercent.value = "100%" Then
  5650.  
  5651. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  5652. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  5653. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  5654.  
  5655. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  5656. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  5657.  
  5658.  
  5659.  
  5660. TPM_ERG.Label666.Caption = "YOUR SPIRALLING MACHINE SKILL IS : "
  5661. Call skillgrade
  5662.  
  5663.  
  5664. ThisWorkbook.Sheets("SPIRALLING DATE").Activate
  5665.  
  5666. SPIRAL.mach_label.Caption = TPM_ERG.spiralnolabelpage5_8.Caption
  5667. SPIRAL.Image1.Picture = LoadPicture(ThisWorkbook.path & "\Picture\Machine Picture\spiralling.jpg")
  5668.  
  5669. SPIRAL.m_1.value = Format(Range("I23"), "dd mmmm yyyy")
  5670. SPIRAL.m_2.value = Format(Range("I24"), "dd mmmm yyyy")
  5671. SPIRAL.m_3.value = Format(Range("I25"), "dd mmmm yyyy")
  5672.  
  5673. SPIRAL.Caption = TPM_ERG.spiralnolabelpage5_8.Caption
  5674.  
  5675. TPM_ERG.calendartext.value = "48"
  5676.  
  5677. SPIRAL.show
  5678.  
  5679. Else:
  5680.  
  5681. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  5682. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  5683. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  5684.  
  5685. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  5686. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  5687.  
  5688.  
  5689. TPM_ERG.Label666.Caption = "YOUR SPIRALLING MACHINE SKILL IS : "
  5690. Call skillgrade
  5691.  
  5692. UserForm2.show
  5693.  
  5694. End If
  5695.  
  5696.  
  5697. End Sub
  5698.  
  5699. Private Sub spiralclickpage5_9_Click()
  5700.  
  5701. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  5702. If Format(Range("B21").value, "0%") = "100%" Then
  5703. Range("B21").value = "99,1%"
  5704. End If
  5705.  
  5706. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  5707. Dim foundSkill As Range
  5708. Set foundSkill = Range("A:A").Find(nama_label.Caption)
  5709. foundSkill.Select
  5710. TPM_ERG.skillpercent.value = Format(ActiveCell.Offset(0, 1).value, "0%")
  5711.  
  5712. If TPM_ERG.skillpercent.value >= Format(Range("B21").value, "0%") Or TPM_ERG.skillpercent.value = "100%" Then
  5713.  
  5714. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  5715. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  5716. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  5717.  
  5718. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  5719. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  5720.  
  5721.  
  5722.  
  5723. TPM_ERG.Label666.Caption = "YOUR SPIRALLING MACHINE SKILL IS : "
  5724. Call skillgrade
  5725.  
  5726.  
  5727. ThisWorkbook.Sheets("SPIRALLING DATE").Activate
  5728.  
  5729. SPIRAL.mach_label.Caption = TPM_ERG.spiralnolabelpage5_9.Caption
  5730. SPIRAL.Image1.Picture = LoadPicture(ThisWorkbook.path & "\Picture\Machine Picture\spiralling.jpg")
  5731.  
  5732. SPIRAL.m_1.value = Format(Range("J23"), "dd mmmm yyyy")
  5733. SPIRAL.m_2.value = Format(Range("J24"), "dd mmmm yyyy")
  5734. SPIRAL.m_3.value = Format(Range("J25"), "dd mmmm yyyy")
  5735.  
  5736. SPIRAL.Caption = TPM_ERG.spiralnolabelpage5_9.Caption
  5737.  
  5738. TPM_ERG.calendartext.value = "49"
  5739.  
  5740. SPIRAL.show
  5741.  
  5742. Else:
  5743.  
  5744. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  5745. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  5746. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  5747.  
  5748. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  5749. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  5750.  
  5751.  
  5752. TPM_ERG.Label666.Caption = "YOUR SPIRALLING MACHINE SKILL IS : "
  5753. Call skillgrade
  5754.  
  5755. UserForm2.show
  5756.  
  5757. End If
  5758.  
  5759.  
  5760.  
  5761. End Sub
  5762.  
  5763. Private Sub spiralclickpage6_1_Click()
  5764.  
  5765. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  5766. If Format(Range("B21").value, "0%") = "100%" Then
  5767. Range("B21").value = "99,1%"
  5768. End If
  5769.  
  5770. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  5771. If Format(Range("B21").value, "0%") = "100%" Then
  5772. Range("B21").value = "99,1%"
  5773. End If
  5774.  
  5775. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  5776. Dim foundSkill As Range
  5777. Set foundSkill = Range("A:A").Find(nama_label.Caption)
  5778. foundSkill.Select
  5779. TPM_ERG.skillpercent.value = Format(ActiveCell.Offset(0, 1).value, "0%")
  5780.  
  5781. If TPM_ERG.skillpercent.value >= Format(Range("B21").value, "0%") Or TPM_ERG.skillpercent.value = "100%" Then
  5782.  
  5783. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  5784. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  5785. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  5786.  
  5787. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  5788. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  5789.  
  5790.  
  5791.  
  5792. TPM_ERG.Label666.Caption = "YOUR SPIRALLING MACHINE SKILL IS : "
  5793. Call skillgrade
  5794.  
  5795.  
  5796. ThisWorkbook.Sheets("SPIRALLING DATE").Activate
  5797.  
  5798. SPIRAL.mach_label.Caption = TPM_ERG.spiralnolabelpage6_1.Caption
  5799. SPIRAL.Image1.Picture = LoadPicture(ThisWorkbook.path & "\Picture\Machine Picture\spiralling.jpg")
  5800.  
  5801. SPIRAL.m_1.value = Format(Range("B28"), "dd mmmm yyyy")
  5802. SPIRAL.m_2.value = Format(Range("B29"), "dd mmmm yyyy")
  5803. SPIRAL.m_3.value = Format(Range("B30"), "dd mmmm yyyy")
  5804.  
  5805. SPIRAL.Caption = TPM_ERG.spiralnolabelpage6_1.Caption
  5806.  
  5807. TPM_ERG.calendartext.value = "51"
  5808.  
  5809. SPIRAL.show
  5810.  
  5811. Else:
  5812.  
  5813. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  5814. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  5815. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  5816.  
  5817. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  5818. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  5819.  
  5820.  
  5821. TPM_ERG.Label666.Caption = "YOUR SPIRALLING MACHINE SKILL IS : "
  5822. Call skillgrade
  5823.  
  5824. UserForm2.show
  5825.  
  5826. End If
  5827.  
  5828.  
  5829. End Sub
  5830.  
  5831. Private Sub spiralclickpage6_10_Click()
  5832.  
  5833. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  5834. If Format(Range("B21").value, "0%") = "100%" Then
  5835. Range("B21").value = "99,1%"
  5836. End If
  5837.  
  5838. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  5839. If Format(Range("B21").value, "0%") = "100%" Then
  5840. Range("B21").value = "99,1%"
  5841. End If
  5842.  
  5843. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  5844. Dim foundSkill As Range
  5845. Set foundSkill = Range("A:A").Find(nama_label.Caption)
  5846. foundSkill.Select
  5847. TPM_ERG.skillpercent.value = Format(ActiveCell.Offset(0, 1).value, "0%")
  5848.  
  5849. If TPM_ERG.skillpercent.value >= Format(Range("B21").value, "0%") Or TPM_ERG.skillpercent.value = "100%" Then
  5850.  
  5851. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  5852. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  5853. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  5854.  
  5855. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  5856. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  5857.  
  5858.  
  5859.  
  5860. TPM_ERG.Label666.Caption = "YOUR SPIRALLING MACHINE SKILL IS : "
  5861. Call skillgrade
  5862.  
  5863.  
  5864. ThisWorkbook.Sheets("SPIRALLING DATE").Activate
  5865.  
  5866. SPIRAL.mach_label.Caption = TPM_ERG.spiralnolabelpage6_10.Caption
  5867. SPIRAL.Image1.Picture = LoadPicture(ThisWorkbook.path & "\Picture\Machine Picture\spiralling.jpg")
  5868.  
  5869. SPIRAL.m_1.value = Format(Range("K28"), "dd mmmm yyyy")
  5870. SPIRAL.m_2.value = Format(Range("K29"), "dd mmmm yyyy")
  5871. SPIRAL.m_3.value = Format(Range("K30"), "dd mmmm yyyy")
  5872.  
  5873. SPIRAL.Caption = TPM_ERG.spiralnolabelpage6_10.Caption
  5874.  
  5875. TPM_ERG.calendartext.value = "60"
  5876.  
  5877. SPIRAL.show
  5878.  
  5879. Else:
  5880.  
  5881. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  5882. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  5883. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  5884.  
  5885. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  5886. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  5887.  
  5888.  
  5889. TPM_ERG.Label666.Caption = "YOUR SPIRALLING MACHINE SKILL IS : "
  5890. Call skillgrade
  5891.  
  5892. UserForm2.show
  5893.  
  5894. End If
  5895.  
  5896.  
  5897. End Sub
  5898.  
  5899. Private Sub spiralclickpage6_2_Click()
  5900.  
  5901.  
  5902. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  5903. If Format(Range("B21").value, "0%") = "100%" Then
  5904. Range("B21").value = "99,1%"
  5905. End If
  5906.  
  5907. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  5908. If Format(Range("B21").value, "0%") = "100%" Then
  5909. Range("B21").value = "99,1%"
  5910. End If
  5911.  
  5912. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  5913. Dim foundSkill As Range
  5914. Set foundSkill = Range("A:A").Find(nama_label.Caption)
  5915. foundSkill.Select
  5916. TPM_ERG.skillpercent.value = Format(ActiveCell.Offset(0, 1).value, "0%")
  5917.  
  5918. If TPM_ERG.skillpercent.value >= Format(Range("B21").value, "0%") Or TPM_ERG.skillpercent.value = "100%" Then
  5919.  
  5920. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  5921. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  5922. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  5923.  
  5924. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  5925. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  5926.  
  5927.  
  5928.  
  5929. TPM_ERG.Label666.Caption = "YOUR SPIRALLING MACHINE SKILL IS : "
  5930. Call skillgrade
  5931.  
  5932.  
  5933. ThisWorkbook.Sheets("SPIRALLING DATE").Activate
  5934.  
  5935. SPIRAL.mach_label.Caption = TPM_ERG.spiralnolabelpage6_2.Caption
  5936. SPIRAL.Image1.Picture = LoadPicture(ThisWorkbook.path & "\Picture\Machine Picture\spiralling.jpg")
  5937.  
  5938. SPIRAL.m_1.value = Format(Range("C28"), "dd mmmm yyyy")
  5939. SPIRAL.m_2.value = Format(Range("C29"), "dd mmmm yyyy")
  5940. SPIRAL.m_3.value = Format(Range("C30"), "dd mmmm yyyy")
  5941.  
  5942. SPIRAL.Caption = TPM_ERG.spiralnolabelpage6_2.Caption
  5943.  
  5944. TPM_ERG.calendartext.value = "52"
  5945.  
  5946. SPIRAL.show
  5947.  
  5948. Else:
  5949.  
  5950. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  5951. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  5952. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  5953.  
  5954. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  5955. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  5956.  
  5957.  
  5958. TPM_ERG.Label666.Caption = "YOUR SPIRALLING MACHINE SKILL IS : "
  5959. Call skillgrade
  5960.  
  5961. UserForm2.show
  5962.  
  5963. End If
  5964.  
  5965.  
  5966.  
  5967. End Sub
  5968.  
  5969. Private Sub spiralclickpage6_3_Click()
  5970.  
  5971.  
  5972.  
  5973. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  5974. If Format(Range("B21").value, "0%") = "100%" Then
  5975. Range("B21").value = "99,1%"
  5976. End If
  5977.  
  5978. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  5979. If Format(Range("B21").value, "0%") = "100%" Then
  5980. Range("B21").value = "99,1%"
  5981. End If
  5982.  
  5983. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  5984. Dim foundSkill As Range
  5985. Set foundSkill = Range("A:A").Find(nama_label.Caption)
  5986. foundSkill.Select
  5987. TPM_ERG.skillpercent.value = Format(ActiveCell.Offset(0, 1).value, "0%")
  5988.  
  5989. If TPM_ERG.skillpercent.value >= Format(Range("B21").value, "0%") Or TPM_ERG.skillpercent.value = "100%" Then
  5990.  
  5991. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  5992. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  5993. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  5994.  
  5995. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  5996. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  5997.  
  5998.  
  5999.  
  6000. TPM_ERG.Label666.Caption = "YOUR SPIRALLING MACHINE SKILL IS : "
  6001. Call skillgrade
  6002.  
  6003.  
  6004. ThisWorkbook.Sheets("SPIRALLING DATE").Activate
  6005.  
  6006. SPIRAL.mach_label.Caption = TPM_ERG.spiralnolabelpage6_3.Caption
  6007. SPIRAL.Image1.Picture = LoadPicture(ThisWorkbook.path & "\Picture\Machine Picture\spiralling.jpg")
  6008.  
  6009. SPIRAL.m_1.value = Format(Range("D28"), "dd mmmm yyyy")
  6010. SPIRAL.m_2.value = Format(Range("D29"), "dd mmmm yyyy")
  6011. SPIRAL.m_3.value = Format(Range("D30"), "dd mmmm yyyy")
  6012.  
  6013. SPIRAL.Caption = TPM_ERG.spiralnolabelpage6_3.Caption
  6014.  
  6015. TPM_ERG.calendartext.value = "53"
  6016.  
  6017. SPIRAL.show
  6018.  
  6019. Else:
  6020.  
  6021. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  6022. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  6023. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  6024.  
  6025. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  6026. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  6027.  
  6028.  
  6029. TPM_ERG.Label666.Caption = "YOUR SPIRALLING MACHINE SKILL IS : "
  6030. Call skillgrade
  6031.  
  6032. UserForm2.show
  6033.  
  6034. End If
  6035.  
  6036.  
  6037.  
  6038. End Sub
  6039.  
  6040. Private Sub spiralclickpage6_4_Click()
  6041.  
  6042.  
  6043.  
  6044. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  6045. If Format(Range("B21").value, "0%") = "100%" Then
  6046. Range("B21").value = "99,1%"
  6047. End If
  6048.  
  6049. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  6050. If Format(Range("B21").value, "0%") = "100%" Then
  6051. Range("B21").value = "99,1%"
  6052. End If
  6053.  
  6054. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  6055. Dim foundSkill As Range
  6056. Set foundSkill = Range("A:A").Find(nama_label.Caption)
  6057. foundSkill.Select
  6058. TPM_ERG.skillpercent.value = Format(ActiveCell.Offset(0, 1).value, "0%")
  6059.  
  6060. If TPM_ERG.skillpercent.value >= Format(Range("B21").value, "0%") Or TPM_ERG.skillpercent.value = "100%" Then
  6061.  
  6062. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  6063. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  6064. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  6065.  
  6066. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  6067. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  6068.  
  6069.  
  6070.  
  6071. TPM_ERG.Label666.Caption = "YOUR SPIRALLING MACHINE SKILL IS : "
  6072. Call skillgrade
  6073.  
  6074.  
  6075. ThisWorkbook.Sheets("SPIRALLING DATE").Activate
  6076.  
  6077. SPIRAL.mach_label.Caption = TPM_ERG.spiralnolabelpage6_4.Caption
  6078. SPIRAL.Image1.Picture = LoadPicture(ThisWorkbook.path & "\Picture\Machine Picture\spiralling.jpg")
  6079.  
  6080. SPIRAL.m_1.value = Format(Range("E28"), "dd mmmm yyyy")
  6081. SPIRAL.m_2.value = Format(Range("E29"), "dd mmmm yyyy")
  6082. SPIRAL.m_3.value = Format(Range("E30"), "dd mmmm yyyy")
  6083.  
  6084. SPIRAL.Caption = TPM_ERG.spiralnolabelpage6_4.Caption
  6085.  
  6086. TPM_ERG.calendartext.value = "54"
  6087.  
  6088. SPIRAL.show
  6089.  
  6090. Else:
  6091.  
  6092. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  6093. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  6094. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  6095.  
  6096. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  6097. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  6098.  
  6099.  
  6100. TPM_ERG.Label666.Caption = "YOUR SPIRALLING MACHINE SKILL IS : "
  6101. Call skillgrade
  6102.  
  6103. UserForm2.show
  6104.  
  6105. End If
  6106.  
  6107.  
  6108.  
  6109.  
  6110. End Sub
  6111.  
  6112. Private Sub spiralclickpage6_5_Click()
  6113.  
  6114.  
  6115.  
  6116. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  6117. If Format(Range("B21").value, "0%") = "100%" Then
  6118. Range("B21").value = "99,1%"
  6119. End If
  6120.  
  6121. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  6122. If Format(Range("B21").value, "0%") = "100%" Then
  6123. Range("B21").value = "99,1%"
  6124. End If
  6125.  
  6126. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  6127. Dim foundSkill As Range
  6128. Set foundSkill = Range("A:A").Find(nama_label.Caption)
  6129. foundSkill.Select
  6130. TPM_ERG.skillpercent.value = Format(ActiveCell.Offset(0, 1).value, "0%")
  6131.  
  6132. If TPM_ERG.skillpercent.value >= Format(Range("B21").value, "0%") Or TPM_ERG.skillpercent.value = "100%" Then
  6133.  
  6134. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  6135. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  6136. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  6137.  
  6138. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  6139. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  6140.  
  6141.  
  6142.  
  6143. TPM_ERG.Label666.Caption = "YOUR SPIRALLING MACHINE SKILL IS : "
  6144. Call skillgrade
  6145.  
  6146.  
  6147. ThisWorkbook.Sheets("SPIRALLING DATE").Activate
  6148.  
  6149. SPIRAL.mach_label.Caption = TPM_ERG.spiralnolabelpage6_5.Caption
  6150. SPIRAL.Image1.Picture = LoadPicture(ThisWorkbook.path & "\Picture\Machine Picture\spiralling.jpg")
  6151.  
  6152. SPIRAL.m_1.value = Format(Range("F28"), "dd mmmm yyyy")
  6153. SPIRAL.m_2.value = Format(Range("F29"), "dd mmmm yyyy")
  6154. SPIRAL.m_3.value = Format(Range("F30"), "dd mmmm yyyy")
  6155.  
  6156. SPIRAL.Caption = TPM_ERG.spiralnolabelpage6_5.Caption
  6157.  
  6158. TPM_ERG.calendartext.value = "55"
  6159.  
  6160. SPIRAL.show
  6161.  
  6162. Else:
  6163.  
  6164. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  6165. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  6166. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  6167.  
  6168. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  6169. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  6170.  
  6171.  
  6172. TPM_ERG.Label666.Caption = "YOUR SPIRALLING MACHINE SKILL IS : "
  6173. Call skillgrade
  6174.  
  6175. UserForm2.show
  6176.  
  6177. End If
  6178.  
  6179.  
  6180.  
  6181. End Sub
  6182.  
  6183. Private Sub spiralclickpage6_6_Click()
  6184.  
  6185.  
  6186.  
  6187. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  6188. If Format(Range("B21").value, "0%") = "100%" Then
  6189. Range("B21").value = "99,1%"
  6190. End If
  6191.  
  6192. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  6193. If Format(Range("B21").value, "0%") = "100%" Then
  6194. Range("B21").value = "99,1%"
  6195. End If
  6196.  
  6197. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  6198. Dim foundSkill As Range
  6199. Set foundSkill = Range("A:A").Find(nama_label.Caption)
  6200. foundSkill.Select
  6201. TPM_ERG.skillpercent.value = Format(ActiveCell.Offset(0, 1).value, "0%")
  6202.  
  6203. If TPM_ERG.skillpercent.value >= Format(Range("B21").value, "0%") Or TPM_ERG.skillpercent.value = "100%" Then
  6204.  
  6205. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  6206. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  6207. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  6208.  
  6209. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  6210. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  6211.  
  6212.  
  6213.  
  6214. TPM_ERG.Label666.Caption = "YOUR SPIRALLING MACHINE SKILL IS : "
  6215. Call skillgrade
  6216.  
  6217.  
  6218. ThisWorkbook.Sheets("SPIRALLING DATE").Activate
  6219.  
  6220. SPIRAL.mach_label.Caption = TPM_ERG.spiralnolabelpage6_6.Caption
  6221. SPIRAL.Image1.Picture = LoadPicture(ThisWorkbook.path & "\Picture\Machine Picture\spiralling.jpg")
  6222.  
  6223. SPIRAL.m_1.value = Format(Range("G28"), "dd mmmm yyyy")
  6224. SPIRAL.m_2.value = Format(Range("G29"), "dd mmmm yyyy")
  6225. SPIRAL.m_3.value = Format(Range("G30"), "dd mmmm yyyy")
  6226.  
  6227. SPIRAL.Caption = TPM_ERG.spiralnolabelpage6_6.Caption
  6228.  
  6229. TPM_ERG.calendartext.value = "56"
  6230.  
  6231. SPIRAL.show
  6232.  
  6233. Else:
  6234.  
  6235. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  6236. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  6237. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  6238.  
  6239. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  6240. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  6241.  
  6242.  
  6243. TPM_ERG.Label666.Caption = "YOUR SPIRALLING MACHINE SKILL IS : "
  6244. Call skillgrade
  6245.  
  6246. UserForm2.show
  6247.  
  6248. End If
  6249.  
  6250.  
  6251.  
  6252. End Sub
  6253.  
  6254. Private Sub spiralclickpage6_7_Click()
  6255.  
  6256.  
  6257. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  6258. If Format(Range("B21").value, "0%") = "100%" Then
  6259. Range("B21").value = "99,1%"
  6260. End If
  6261.  
  6262. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  6263. If Format(Range("B21").value, "0%") = "100%" Then
  6264. Range("B21").value = "99,1%"
  6265. End If
  6266.  
  6267. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  6268. Dim foundSkill As Range
  6269. Set foundSkill = Range("A:A").Find(nama_label.Caption)
  6270. foundSkill.Select
  6271. TPM_ERG.skillpercent.value = Format(ActiveCell.Offset(0, 1).value, "0%")
  6272.  
  6273. If TPM_ERG.skillpercent.value >= Format(Range("B21").value, "0%") Or TPM_ERG.skillpercent.value = "100%" Then
  6274.  
  6275. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  6276. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  6277. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  6278.  
  6279. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  6280. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  6281.  
  6282.  
  6283.  
  6284. TPM_ERG.Label666.Caption = "YOUR SPIRALLING MACHINE SKILL IS : "
  6285. Call skillgrade
  6286.  
  6287.  
  6288. ThisWorkbook.Sheets("SPIRALLING DATE").Activate
  6289.  
  6290. SPIRAL.mach_label.Caption = TPM_ERG.spiralnolabelpage6_7.Caption
  6291. SPIRAL.Image1.Picture = LoadPicture(ThisWorkbook.path & "\Picture\Machine Picture\spiralling.jpg")
  6292.  
  6293. SPIRAL.m_1.value = Format(Range("H28"), "dd mmmm yyyy")
  6294. SPIRAL.m_2.value = Format(Range("H29"), "dd mmmm yyyy")
  6295. SPIRAL.m_3.value = Format(Range("H30"), "dd mmmm yyyy")
  6296.  
  6297. SPIRAL.Caption = TPM_ERG.spiralnolabelpage6_7.Caption
  6298.  
  6299. TPM_ERG.calendartext.value = "57"
  6300.  
  6301. SPIRAL.show
  6302.  
  6303. Else:
  6304.  
  6305. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  6306. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  6307. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  6308.  
  6309. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  6310. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  6311.  
  6312.  
  6313. TPM_ERG.Label666.Caption = "YOUR SPIRALLING MACHINE SKILL IS : "
  6314. Call skillgrade
  6315.  
  6316. UserForm2.show
  6317.  
  6318. End If
  6319.  
  6320. End Sub
  6321.  
  6322. Private Sub spiralclickpage6_8_Click()
  6323.  
  6324.  
  6325.  
  6326. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  6327. If Format(Range("B21").value, "0%") = "100%" Then
  6328. Range("B21").value = "99,1%"
  6329. End If
  6330.  
  6331. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  6332. If Format(Range("B21").value, "0%") = "100%" Then
  6333. Range("B21").value = "99,1%"
  6334. End If
  6335.  
  6336. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  6337. Dim foundSkill As Range
  6338. Set foundSkill = Range("A:A").Find(nama_label.Caption)
  6339. foundSkill.Select
  6340. TPM_ERG.skillpercent.value = Format(ActiveCell.Offset(0, 1).value, "0%")
  6341.  
  6342. If TPM_ERG.skillpercent.value >= Format(Range("B21").value, "0%") Or TPM_ERG.skillpercent.value = "100%" Then
  6343.  
  6344. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  6345. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  6346. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  6347.  
  6348. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  6349. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  6350.  
  6351.  
  6352.  
  6353. TPM_ERG.Label666.Caption = "YOUR SPIRALLING MACHINE SKILL IS : "
  6354. Call skillgrade
  6355.  
  6356.  
  6357. ThisWorkbook.Sheets("SPIRALLING DATE").Activate
  6358.  
  6359. SPIRAL.mach_label.Caption = TPM_ERG.spiralnolabelpage6_8.Caption
  6360. SPIRAL.Image1.Picture = LoadPicture(ThisWorkbook.path & "\Picture\Machine Picture\spiralling.jpg")
  6361.  
  6362. SPIRAL.m_1.value = Format(Range("I28"), "dd mmmm yyyy")
  6363. SPIRAL.m_2.value = Format(Range("I29"), "dd mmmm yyyy")
  6364. SPIRAL.m_3.value = Format(Range("I30"), "dd mmmm yyyy")
  6365.  
  6366. SPIRAL.Caption = TPM_ERG.spiralnolabelpage6_8.Caption
  6367.  
  6368. TPM_ERG.calendartext.value = "58"
  6369.  
  6370. SPIRAL.show
  6371.  
  6372. Else:
  6373.  
  6374. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  6375. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  6376. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  6377.  
  6378. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  6379. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  6380.  
  6381.  
  6382. TPM_ERG.Label666.Caption = "YOUR SPIRALLING MACHINE SKILL IS : "
  6383. Call skillgrade
  6384.  
  6385. UserForm2.show
  6386.  
  6387. End If
  6388.  
  6389.  
  6390. End Sub
  6391.  
  6392. Private Sub spiralclickpage6_9_Click()
  6393.  
  6394.  
  6395. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  6396. If Format(Range("B21").value, "0%") = "100%" Then
  6397. Range("B21").value = "99,1%"
  6398. End If
  6399.  
  6400. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  6401. If Format(Range("B21").value, "0%") = "100%" Then
  6402. Range("B21").value = "99,1%"
  6403. End If
  6404.  
  6405. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  6406. Dim foundSkill As Range
  6407. Set foundSkill = Range("A:A").Find(nama_label.Caption)
  6408. foundSkill.Select
  6409. TPM_ERG.skillpercent.value = Format(ActiveCell.Offset(0, 1).value, "0%")
  6410.  
  6411. If TPM_ERG.skillpercent.value >= Format(Range("B21").value, "0%") Or TPM_ERG.skillpercent.value = "100%" Then
  6412.  
  6413. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  6414. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  6415. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  6416.  
  6417. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  6418. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  6419.  
  6420.  
  6421.  
  6422. TPM_ERG.Label666.Caption = "YOUR SPIRALLING MACHINE SKILL IS : "
  6423. Call skillgrade
  6424.  
  6425.  
  6426. ThisWorkbook.Sheets("SPIRALLING DATE").Activate
  6427.  
  6428. SPIRAL.mach_label.Caption = TPM_ERG.spiralnolabelpage6_9.Caption
  6429. SPIRAL.Image1.Picture = LoadPicture(ThisWorkbook.path & "\Picture\Machine Picture\spiralling.jpg")
  6430.  
  6431. SPIRAL.m_1.value = Format(Range("J28"), "dd mmmm yyyy")
  6432. SPIRAL.m_2.value = Format(Range("J29"), "dd mmmm yyyy")
  6433. SPIRAL.m_3.value = Format(Range("J30"), "dd mmmm yyyy")
  6434.  
  6435. SPIRAL.Caption = TPM_ERG.spiralnolabelpage6_9.Caption
  6436.  
  6437. TPM_ERG.calendartext.value = "59"
  6438.  
  6439. SPIRAL.show
  6440.  
  6441. Else:
  6442.  
  6443. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  6444. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  6445. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  6446.  
  6447. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  6448. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  6449.  
  6450.  
  6451. TPM_ERG.Label666.Caption = "YOUR SPIRALLING MACHINE SKILL IS : "
  6452. Call skillgrade
  6453.  
  6454. UserForm2.show
  6455.  
  6456. End If
  6457.  
  6458.  
  6459. End Sub
  6460.  
  6461. Private Sub spiralclickpage7_1_Click()
  6462.  
  6463. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  6464. If Format(Range("B21").value, "0%") = "100%" Then
  6465. Range("B21").value = "99,1%"
  6466. End If
  6467.  
  6468. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  6469. Dim foundSkill As Range
  6470. Set foundSkill = Range("A:A").Find(nama_label.Caption)
  6471. foundSkill.Select
  6472. TPM_ERG.skillpercent.value = Format(ActiveCell.Offset(0, 1).value, "0%")
  6473.  
  6474. If TPM_ERG.skillpercent.value >= Format(Range("B21").value, "0%") Or TPM_ERG.skillpercent.value = "100%" Then
  6475.  
  6476. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  6477. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  6478. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  6479.  
  6480. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  6481. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  6482.  
  6483.  
  6484.  
  6485. TPM_ERG.Label666.Caption = "YOUR SPIRALLING MACHINE SKILL IS : "
  6486. Call skillgrade
  6487.  
  6488.  
  6489. ThisWorkbook.Sheets("SPIRALLING DATE").Activate
  6490.  
  6491. SPIRAL.mach_label.Caption = TPM_ERG.spiralnolabelpage7_1.Caption
  6492. SPIRAL.Image1.Picture = LoadPicture(ThisWorkbook.path & "\Picture\Machine Picture\spiralling.jpg")
  6493.  
  6494. SPIRAL.m_1.value = Format(Range("B33"), "dd mmmm yyyy")
  6495. SPIRAL.m_2.value = Format(Range("B34"), "dd mmmm yyyy")
  6496. SPIRAL.m_3.value = Format(Range("B35"), "dd mmmm yyyy")
  6497.  
  6498. SPIRAL.Caption = TPM_ERG.spiralnolabelpage7_1.Caption
  6499.  
  6500. TPM_ERG.calendartext.value = "61"
  6501.  
  6502. SPIRAL.show
  6503.  
  6504. Else:
  6505.  
  6506. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  6507. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  6508. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  6509.  
  6510. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  6511. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  6512.  
  6513.  
  6514. TPM_ERG.Label666.Caption = "YOUR SPIRALLING MACHINE SKILL IS : "
  6515. Call skillgrade
  6516.  
  6517. UserForm2.show
  6518.  
  6519. End If
  6520.  
  6521. End Sub
  6522.  
  6523. Private Sub spiralclickpage7_10_Click()
  6524.  
  6525.  
  6526. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  6527. If Format(Range("B21").value, "0%") = "100%" Then
  6528. Range("B21").value = "99,1%"
  6529. End If
  6530.  
  6531. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  6532. Dim foundSkill As Range
  6533. Set foundSkill = Range("A:A").Find(nama_label.Caption)
  6534. foundSkill.Select
  6535. TPM_ERG.skillpercent.value = Format(ActiveCell.Offset(0, 1).value, "0%")
  6536.  
  6537. If TPM_ERG.skillpercent.value >= Format(Range("B21").value, "0%") Or TPM_ERG.skillpercent.value = "100%" Then
  6538.  
  6539. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  6540. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  6541. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  6542.  
  6543. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  6544. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  6545.  
  6546.  
  6547.  
  6548. TPM_ERG.Label666.Caption = "YOUR SPIRALLING MACHINE SKILL IS : "
  6549. Call skillgrade
  6550.  
  6551.  
  6552. ThisWorkbook.Sheets("SPIRALLING DATE").Activate
  6553.  
  6554. SPIRAL.mach_label.Caption = TPM_ERG.spiralnolabelpage7_10.Caption
  6555. SPIRAL.Image1.Picture = LoadPicture(ThisWorkbook.path & "\Picture\Machine Picture\spiralling.jpg")
  6556.  
  6557. SPIRAL.m_1.value = Format(Range("K33"), "dd mmmm yyyy")
  6558. SPIRAL.m_2.value = Format(Range("K34"), "dd mmmm yyyy")
  6559. SPIRAL.m_3.value = Format(Range("K35"), "dd mmmm yyyy")
  6560.  
  6561. SPIRAL.Caption = TPM_ERG.spiralnolabelpage7_10.Caption
  6562.  
  6563. TPM_ERG.calendartext.value = "70"
  6564.  
  6565. SPIRAL.show
  6566.  
  6567. Else:
  6568.  
  6569. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  6570. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  6571. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  6572.  
  6573. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  6574. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  6575.  
  6576.  
  6577. TPM_ERG.Label666.Caption = "YOUR SPIRALLING MACHINE SKILL IS : "
  6578. Call skillgrade
  6579.  
  6580. UserForm2.show
  6581.  
  6582. End If
  6583.  
  6584.  
  6585. End Sub
  6586.  
  6587. Private Sub spiralclickpage7_2_Click()
  6588.  
  6589.  
  6590. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  6591. If Format(Range("B21").value, "0%") = "100%" Then
  6592. Range("B21").value = "99,1%"
  6593. End If
  6594.  
  6595. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  6596. Dim foundSkill As Range
  6597. Set foundSkill = Range("A:A").Find(nama_label.Caption)
  6598. foundSkill.Select
  6599. TPM_ERG.skillpercent.value = Format(ActiveCell.Offset(0, 1).value, "0%")
  6600.  
  6601. If TPM_ERG.skillpercent.value >= Format(Range("B21").value, "0%") Or TPM_ERG.skillpercent.value = "100%" Then
  6602.  
  6603. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  6604. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  6605. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  6606.  
  6607. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  6608. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  6609.  
  6610.  
  6611.  
  6612. TPM_ERG.Label666.Caption = "YOUR SPIRALLING MACHINE SKILL IS : "
  6613. Call skillgrade
  6614.  
  6615.  
  6616. ThisWorkbook.Sheets("SPIRALLING DATE").Activate
  6617.  
  6618. SPIRAL.mach_label.Caption = TPM_ERG.spiralnolabelpage7_2.Caption
  6619. SPIRAL.Image1.Picture = LoadPicture(ThisWorkbook.path & "\Picture\Machine Picture\spiralling.jpg")
  6620.  
  6621. SPIRAL.m_1.value = Format(Range("C33"), "dd mmmm yyyy")
  6622. SPIRAL.m_2.value = Format(Range("C34"), "dd mmmm yyyy")
  6623. SPIRAL.m_3.value = Format(Range("C35"), "dd mmmm yyyy")
  6624.  
  6625. SPIRAL.Caption = TPM_ERG.spiralnolabelpage7_2.Caption
  6626.  
  6627. TPM_ERG.calendartext.value = "62"
  6628.  
  6629. SPIRAL.show
  6630.  
  6631. Else:
  6632.  
  6633. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  6634. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  6635. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  6636.  
  6637. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  6638. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  6639.  
  6640.  
  6641. TPM_ERG.Label666.Caption = "YOUR SPIRALLING MACHINE SKILL IS : "
  6642. Call skillgrade
  6643.  
  6644. UserForm2.show
  6645.  
  6646. End If
  6647.  
  6648.  
  6649. End Sub
  6650.  
  6651. Private Sub spiralclickpage7_3_Click()
  6652.  
  6653.  
  6654. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  6655. If Format(Range("B21").value, "0%") = "100%" Then
  6656. Range("B21").value = "99,1%"
  6657. End If
  6658.  
  6659. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  6660. Dim foundSkill As Range
  6661. Set foundSkill = Range("A:A").Find(nama_label.Caption)
  6662. foundSkill.Select
  6663. TPM_ERG.skillpercent.value = Format(ActiveCell.Offset(0, 1).value, "0%")
  6664.  
  6665. If TPM_ERG.skillpercent.value >= Format(Range("B21").value, "0%") Or TPM_ERG.skillpercent.value = "100%" Then
  6666.  
  6667. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  6668. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  6669. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  6670.  
  6671. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  6672. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  6673.  
  6674.  
  6675.  
  6676. TPM_ERG.Label666.Caption = "YOUR SPIRALLING MACHINE SKILL IS : "
  6677. Call skillgrade
  6678.  
  6679.  
  6680. ThisWorkbook.Sheets("SPIRALLING DATE").Activate
  6681.  
  6682. SPIRAL.mach_label.Caption = TPM_ERG.spiralnolabelpage7_3.Caption
  6683. SPIRAL.Image1.Picture = LoadPicture(ThisWorkbook.path & "\Picture\Machine Picture\spiralling.jpg")
  6684.  
  6685. SPIRAL.m_1.value = Format(Range("D33"), "dd mmmm yyyy")
  6686. SPIRAL.m_2.value = Format(Range("D34"), "dd mmmm yyyy")
  6687. SPIRAL.m_3.value = Format(Range("D35"), "dd mmmm yyyy")
  6688.  
  6689. SPIRAL.Caption = TPM_ERG.spiralnolabelpage7_3.Caption
  6690.  
  6691. TPM_ERG.calendartext.value = "63"
  6692.  
  6693. SPIRAL.show
  6694.  
  6695. Else:
  6696.  
  6697. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  6698. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  6699. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  6700.  
  6701. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  6702. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  6703.  
  6704.  
  6705. TPM_ERG.Label666.Caption = "YOUR SPIRALLING MACHINE SKILL IS : "
  6706. Call skillgrade
  6707.  
  6708. UserForm2.show
  6709.  
  6710. End If
  6711.  
  6712.  
  6713. End Sub
  6714.  
  6715. Private Sub spiralclickpage7_4_Click()
  6716.  
  6717.  
  6718. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  6719. If Format(Range("B21").value, "0%") = "100%" Then
  6720. Range("B21").value = "99,1%"
  6721. End If
  6722.  
  6723. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  6724. Dim foundSkill As Range
  6725. Set foundSkill = Range("A:A").Find(nama_label.Caption)
  6726. foundSkill.Select
  6727. TPM_ERG.skillpercent.value = Format(ActiveCell.Offset(0, 1).value, "0%")
  6728.  
  6729. If TPM_ERG.skillpercent.value >= Format(Range("B21").value, "0%") Or TPM_ERG.skillpercent.value = "100%" Then
  6730.  
  6731. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  6732. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  6733. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  6734.  
  6735. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  6736. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  6737.  
  6738.  
  6739.  
  6740. TPM_ERG.Label666.Caption = "YOUR SPIRALLING MACHINE SKILL IS : "
  6741. Call skillgrade
  6742.  
  6743.  
  6744. ThisWorkbook.Sheets("SPIRALLING DATE").Activate
  6745.  
  6746. SPIRAL.mach_label.Caption = TPM_ERG.spiralnolabelpage7_4.Caption
  6747. SPIRAL.Image1.Picture = LoadPicture(ThisWorkbook.path & "\Picture\Machine Picture\spiralling.jpg")
  6748.  
  6749. SPIRAL.m_1.value = Format(Range("E33"), "dd mmmm yyyy")
  6750. SPIRAL.m_2.value = Format(Range("E34"), "dd mmmm yyyy")
  6751. SPIRAL.m_3.value = Format(Range("E35"), "dd mmmm yyyy")
  6752.  
  6753. SPIRAL.Caption = TPM_ERG.spiralnolabelpage7_4.Caption
  6754.  
  6755. TPM_ERG.calendartext.value = "64"
  6756.  
  6757. SPIRAL.show
  6758.  
  6759. Else:
  6760.  
  6761. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  6762. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  6763. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  6764.  
  6765. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  6766. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  6767.  
  6768.  
  6769. TPM_ERG.Label666.Caption = "YOUR SPIRALLING MACHINE SKILL IS : "
  6770. Call skillgrade
  6771.  
  6772. UserForm2.show
  6773.  
  6774. End If
  6775.  
  6776.  
  6777. End Sub
  6778.  
  6779.  
  6780.  
  6781. Private Sub spiralclickpage7_5_Click()
  6782.  
  6783.  
  6784. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  6785. If Format(Range("B21").value, "0%") = "100%" Then
  6786. Range("B21").value = "99,1%"
  6787. End If
  6788.  
  6789. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  6790. Dim foundSkill As Range
  6791. Set foundSkill = Range("A:A").Find(nama_label.Caption)
  6792. foundSkill.Select
  6793. TPM_ERG.skillpercent.value = Format(ActiveCell.Offset(0, 1).value, "0%")
  6794.  
  6795. If TPM_ERG.skillpercent.value >= Format(Range("B21").value, "0%") Or TPM_ERG.skillpercent.value = "100%" Then
  6796.  
  6797. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  6798. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  6799. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  6800.  
  6801. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  6802. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  6803.  
  6804.  
  6805.  
  6806. TPM_ERG.Label666.Caption = "YOUR SPIRALLING MACHINE SKILL IS : "
  6807. Call skillgrade
  6808.  
  6809.  
  6810. ThisWorkbook.Sheets("SPIRALLING DATE").Activate
  6811.  
  6812. SPIRAL.mach_label.Caption = TPM_ERG.spiralnolabelpage7_5.Caption
  6813. SPIRAL.Image1.Picture = LoadPicture(ThisWorkbook.path & "\Picture\Machine Picture\spiralling.jpg")
  6814.  
  6815. SPIRAL.m_1.value = Format(Range("F33"), "dd mmmm yyyy")
  6816. SPIRAL.m_2.value = Format(Range("F34"), "dd mmmm yyyy")
  6817. SPIRAL.m_3.value = Format(Range("F35"), "dd mmmm yyyy")
  6818.  
  6819. SPIRAL.Caption = TPM_ERG.spiralnolabelpage7_5.Caption
  6820.  
  6821. TPM_ERG.calendartext.value = "65"
  6822.  
  6823. SPIRAL.show
  6824.  
  6825. Else:
  6826.  
  6827. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  6828. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  6829. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  6830.  
  6831. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  6832. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  6833.  
  6834.  
  6835. TPM_ERG.Label666.Caption = "YOUR SPIRALLING MACHINE SKILL IS : "
  6836. Call skillgrade
  6837.  
  6838. UserForm2.show
  6839.  
  6840. End If
  6841.  
  6842.  
  6843.  
  6844. End Sub
  6845.  
  6846. Private Sub spiralclickpage7_6_Click()
  6847.  
  6848.  
  6849. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  6850. If Format(Range("B21").value, "0%") = "100%" Then
  6851. Range("B21").value = "99,1%"
  6852. End If
  6853.  
  6854. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  6855. Dim foundSkill As Range
  6856. Set foundSkill = Range("A:A").Find(nama_label.Caption)
  6857. foundSkill.Select
  6858. TPM_ERG.skillpercent.value = Format(ActiveCell.Offset(0, 1).value, "0%")
  6859.  
  6860. If TPM_ERG.skillpercent.value >= Format(Range("B21").value, "0%") Or TPM_ERG.skillpercent.value = "100%" Then
  6861.  
  6862. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  6863. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  6864. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  6865.  
  6866. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  6867. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  6868.  
  6869.  
  6870.  
  6871. TPM_ERG.Label666.Caption = "YOUR SPIRALLING MACHINE SKILL IS : "
  6872. Call skillgrade
  6873.  
  6874.  
  6875. ThisWorkbook.Sheets("SPIRALLING DATE").Activate
  6876.  
  6877. SPIRAL.mach_label.Caption = TPM_ERG.spiralnolabelpage7_6.Caption
  6878. SPIRAL.Image1.Picture = LoadPicture(ThisWorkbook.path & "\Picture\Machine Picture\spiralling.jpg")
  6879.  
  6880. SPIRAL.m_1.value = Format(Range("G33"), "dd mmmm yyyy")
  6881. SPIRAL.m_2.value = Format(Range("G34"), "dd mmmm yyyy")
  6882. SPIRAL.m_3.value = Format(Range("G35"), "dd mmmm yyyy")
  6883.  
  6884. SPIRAL.Caption = TPM_ERG.spiralnolabelpage7_6.Caption
  6885.  
  6886. TPM_ERG.calendartext.value = "66"
  6887.  
  6888. SPIRAL.show
  6889.  
  6890. Else:
  6891.  
  6892. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  6893. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  6894. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  6895.  
  6896. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  6897. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  6898.  
  6899.  
  6900. TPM_ERG.Label666.Caption = "YOUR SPIRALLING MACHINE SKILL IS : "
  6901. Call skillgrade
  6902.  
  6903. UserForm2.show
  6904.  
  6905. End If
  6906.  
  6907.  
  6908.  
  6909. End Sub
  6910.  
  6911. Private Sub spiralclickpage7_7_Click()
  6912.  
  6913.  
  6914. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  6915. If Format(Range("B21").value, "0%") = "100%" Then
  6916. Range("B21").value = "99,1%"
  6917. End If
  6918.  
  6919. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  6920. Dim foundSkill As Range
  6921. Set foundSkill = Range("A:A").Find(nama_label.Caption)
  6922. foundSkill.Select
  6923. TPM_ERG.skillpercent.value = Format(ActiveCell.Offset(0, 1).value, "0%")
  6924.  
  6925. If TPM_ERG.skillpercent.value >= Format(Range("B21").value, "0%") Or TPM_ERG.skillpercent.value = "100%" Then
  6926.  
  6927. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  6928. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  6929. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  6930.  
  6931. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  6932. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  6933.  
  6934.  
  6935.  
  6936. TPM_ERG.Label666.Caption = "YOUR SPIRALLING MACHINE SKILL IS : "
  6937. Call skillgrade
  6938.  
  6939.  
  6940. ThisWorkbook.Sheets("SPIRALLING DATE").Activate
  6941.  
  6942. SPIRAL.mach_label.Caption = TPM_ERG.spiralnolabelpage7_7.Caption
  6943. SPIRAL.Image1.Picture = LoadPicture(ThisWorkbook.path & "\Picture\Machine Picture\spiralling.jpg")
  6944.  
  6945. SPIRAL.m_1.value = Format(Range("H33"), "dd mmmm yyyy")
  6946. SPIRAL.m_2.value = Format(Range("H34"), "dd mmmm yyyy")
  6947. SPIRAL.m_3.value = Format(Range("H35"), "dd mmmm yyyy")
  6948.  
  6949. SPIRAL.Caption = TPM_ERG.spiralnolabelpage7_7.Caption
  6950.  
  6951. TPM_ERG.calendartext.value = "67"
  6952.  
  6953. SPIRAL.show
  6954.  
  6955. Else:
  6956.  
  6957. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  6958. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  6959. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  6960.  
  6961. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  6962. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  6963.  
  6964.  
  6965. TPM_ERG.Label666.Caption = "YOUR SPIRALLING MACHINE SKILL IS : "
  6966. Call skillgrade
  6967.  
  6968. UserForm2.show
  6969.  
  6970. End If
  6971.  
  6972.  
  6973.  
  6974.  
  6975. End Sub
  6976.  
  6977. Private Sub spiralclickpage7_8_Click()
  6978.  
  6979.  
  6980. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  6981. If Format(Range("B21").value, "0%") = "100%" Then
  6982. Range("B21").value = "99,1%"
  6983. End If
  6984.  
  6985. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  6986. Dim foundSkill As Range
  6987. Set foundSkill = Range("A:A").Find(nama_label.Caption)
  6988. foundSkill.Select
  6989. TPM_ERG.skillpercent.value = Format(ActiveCell.Offset(0, 1).value, "0%")
  6990.  
  6991. If TPM_ERG.skillpercent.value >= Format(Range("B21").value, "0%") Or TPM_ERG.skillpercent.value = "100%" Then
  6992.  
  6993. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  6994. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  6995. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  6996.  
  6997. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  6998. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  6999.  
  7000.  
  7001.  
  7002. TPM_ERG.Label666.Caption = "YOUR SPIRALLING MACHINE SKILL IS : "
  7003. Call skillgrade
  7004.  
  7005.  
  7006. ThisWorkbook.Sheets("SPIRALLING DATE").Activate
  7007.  
  7008. SPIRAL.mach_label.Caption = TPM_ERG.spiralnolabelpage7_8.Caption
  7009. SPIRAL.Image1.Picture = LoadPicture(ThisWorkbook.path & "\Picture\Machine Picture\spiralling.jpg")
  7010.  
  7011. SPIRAL.m_1.value = Format(Range("I33"), "dd mmmm yyyy")
  7012. SPIRAL.m_2.value = Format(Range("I34"), "dd mmmm yyyy")
  7013. SPIRAL.m_3.value = Format(Range("I35"), "dd mmmm yyyy")
  7014.  
  7015. SPIRAL.Caption = TPM_ERG.spiralnolabelpage7_8.Caption
  7016.  
  7017. TPM_ERG.calendartext.value = "68"
  7018.  
  7019. SPIRAL.show
  7020.  
  7021. Else:
  7022.  
  7023. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  7024. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  7025. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  7026.  
  7027. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  7028. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  7029.  
  7030.  
  7031. TPM_ERG.Label666.Caption = "YOUR SPIRALLING MACHINE SKILL IS : "
  7032. Call skillgrade
  7033.  
  7034. UserForm2.show
  7035.  
  7036. End If
  7037.  
  7038.  
  7039.  
  7040. End Sub
  7041.  
  7042. Private Sub spiralclickpage7_9_Click()
  7043.  
  7044. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  7045. If Format(Range("B21").value, "0%") = "100%" Then
  7046. Range("B21").value = "99,1%"
  7047. End If
  7048.  
  7049. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  7050. Dim foundSkill As Range
  7051. Set foundSkill = Range("A:A").Find(nama_label.Caption)
  7052. foundSkill.Select
  7053. TPM_ERG.skillpercent.value = Format(ActiveCell.Offset(0, 1).value, "0%")
  7054.  
  7055. If TPM_ERG.skillpercent.value >= Format(Range("B21").value, "0%") Or TPM_ERG.skillpercent.value = "100%" Then
  7056.  
  7057. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  7058. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  7059. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  7060.  
  7061. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  7062. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  7063.  
  7064.  
  7065.  
  7066. TPM_ERG.Label666.Caption = "YOUR SPIRALLING MACHINE SKILL IS : "
  7067. Call skillgrade
  7068.  
  7069.  
  7070. ThisWorkbook.Sheets("SPIRALLING DATE").Activate
  7071.  
  7072. SPIRAL.mach_label.Caption = TPM_ERG.spiralnolabelpage7_9.Caption
  7073. SPIRAL.Image1.Picture = LoadPicture(ThisWorkbook.path & "\Picture\Machine Picture\spiralling.jpg")
  7074.  
  7075. SPIRAL.m_1.value = Format(Range("J33"), "dd mmmm yyyy")
  7076. SPIRAL.m_2.value = Format(Range("J34"), "dd mmmm yyyy")
  7077. SPIRAL.m_3.value = Format(Range("J35"), "dd mmmm yyyy")
  7078.  
  7079. SPIRAL.Caption = TPM_ERG.spiralnolabelpage7_9.Caption
  7080.  
  7081. TPM_ERG.calendartext.value = "69"
  7082.  
  7083. SPIRAL.show
  7084.  
  7085. Else:
  7086.  
  7087. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  7088. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  7089. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  7090.  
  7091. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  7092. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  7093.  
  7094.  
  7095. TPM_ERG.Label666.Caption = "YOUR SPIRALLING MACHINE SKILL IS : "
  7096. Call skillgrade
  7097.  
  7098. UserForm2.show
  7099.  
  7100. End If
  7101.  
  7102.  
  7103.  
  7104. End Sub
  7105.  
  7106. Private Sub TPMDOCUMENT_BTN_Click()
  7107. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  7108.  
  7109. If Range("B21").value = "99,1%" Then
  7110. Range("B21").value = "100%"
  7111.  
  7112.  
  7113. ElseIf Range("C21").value = "99,1%" Then
  7114. Range("C21").value = "100%"
  7115.  
  7116.  
  7117. ElseIf Range("D21").value = "99,1%" Then
  7118. Range("D21").value = "100%"
  7119.  
  7120.  
  7121. ElseIf Range("E21").value = "99,1%" Then
  7122. Range("E21").value = "100%"
  7123.  
  7124.  
  7125. ElseIf Range("F21").value = "99,1%" Then
  7126. Range("F21").value = "100%"
  7127. End If
  7128.  
  7129.  
  7130.  
  7131. ThisWorkbook.Sheets("SPIRALLING DATE").Activate
  7132. Me.Hide
  7133. End Sub
  7134.  
  7135. Private Sub UserForm_Activate()
  7136.  
  7137. 'spiralling machine caption
  7138. ThisWorkbook.Sheets("SPIRALLING DATE").Activate
  7139. Label315.Caption = Range("B2").value
  7140. Label659.Caption = Range("C2").value
  7141. Label321.Caption = Range("D2").value
  7142. Label324.Caption = Range("E2").value
  7143. Label327.Caption = Range("F2").value
  7144. Label330.Caption = Range("G2").value
  7145. Label333.Caption = Range("H2").value
  7146. Label335.Caption = Range("I2").value
  7147. Label338.Caption = Range("J2").value
  7148. Label308.Caption = Range("K2").value
  7149.  
  7150. spiralnolabelpage2_1.Caption = Range("B7").value
  7151. spiralnolabelpage2_2.Caption = Range("C7").value
  7152. spiralnolabelpage2_3.Caption = Range("D7").value
  7153. spiralnolabelpage2_4.Caption = Range("E7").value
  7154. spiralnolabelpage2_5.Caption = Range("F7").value
  7155. spiralnolabelpage2_6.Caption = Range("G7").value
  7156. spiralnolabelpage2_7.Caption = Range("H7").value
  7157. spiralnolabelpage2_8.Caption = Range("I7").value
  7158. spiralnolabelpage2_9.Caption = Range("J7").value
  7159. spiralnolabelpage2_10.Caption = Range("K7").value
  7160.  
  7161. spiralnolabelpage3_1.Caption = Range("B12").value
  7162. spiralnolabelpage3_2.Caption = Range("C12").value
  7163. spiralnolabelpage3_3.Caption = Range("D12").value
  7164. spiralnolabelpage3_4.Caption = Range("E12").value
  7165. spiralnolabelpage3_5.Caption = Range("F12").value
  7166. spiralnolabelpage3_6.Caption = Range("G12").value
  7167. spiralnolabelpage3_7.Caption = Range("H12").value
  7168. spiralnolabelpage3_8.Caption = Range("I12").value
  7169. spiralnolabelpage3_9.Caption = Range("J12").value
  7170. spiralnolabelpage3_10.Caption = Range("K12").value
  7171.  
  7172. spiralnolabelpage4_1.Caption = Range("B17").value
  7173. spiralnolabelpage4_2.Caption = Range("C17").value
  7174. spiralnolabelpage4_3.Caption = Range("D17").value
  7175. spiralnolabelpage4_4.Caption = Range("E17").value
  7176. spiralnolabelpage4_5.Caption = Range("F17").value
  7177. spiralnolabelpage4_6.Caption = Range("G17").value
  7178. spiralnolabelpage4_7.Caption = Range("H17").value
  7179. spiralnolabelpage4_8.Caption = Range("I17").value
  7180. spiralnolabelpage4_9.Caption = Range("J17").value
  7181. spiralnolabelpage4_10.Caption = Range("K17").value
  7182.  
  7183. spiralnolabelpage5_1.Caption = Range("B22").value
  7184. spiralnolabelpage5_2.Caption = Range("C22").value
  7185. spiralnolabelpage5_3.Caption = Range("D22").value
  7186. spiralnolabelpage5_4.Caption = Range("E22").value
  7187. spiralnolabelpage5_5.Caption = Range("F22").value
  7188. spiralnolabelpage5_6.Caption = Range("G22").value
  7189. spiralnolabelpage5_7.Caption = Range("H22").value
  7190. spiralnolabelpage5_8.Caption = Range("I22").value
  7191. spiralnolabelpage5_9.Caption = Range("J22").value
  7192. spiralnolabelpage5_10.Caption = Range("K22").value
  7193.  
  7194. spiralnolabelpage6_1.Caption = Range("B27").value
  7195. spiralnolabelpage6_2.Caption = Range("C27").value
  7196. spiralnolabelpage6_3.Caption = Range("D27").value
  7197. spiralnolabelpage6_4.Caption = Range("E27").value
  7198. spiralnolabelpage6_5.Caption = Range("F27").value
  7199. spiralnolabelpage6_6.Caption = Range("G27").value
  7200. spiralnolabelpage6_7.Caption = Range("H27").value
  7201. spiralnolabelpage6_8.Caption = Range("I27").value
  7202. spiralnolabelpage6_9.Caption = Range("J27").value
  7203. spiralnolabelpage6_10.Caption = Range("K27").value
  7204.  
  7205. spiralnolabelpage7_1.Caption = Range("B32").value
  7206. spiralnolabelpage7_2.Caption = Range("C32").value
  7207. spiralnolabelpage7_3.Caption = Range("D32").value
  7208. spiralnolabelpage7_4.Caption = Range("E32").value
  7209. spiralnolabelpage7_5.Caption = Range("F32").value
  7210. spiralnolabelpage7_6.Caption = Range("G32").value
  7211. spiralnolabelpage7_7.Caption = Range("H32").value
  7212. spiralnolabelpage7_8.Caption = Range("I32").value
  7213. spiralnolabelpage7_9.Caption = Range("J32").value
  7214. spiralnolabelpage7_10.Caption = Range("K32").value
  7215.  
  7216.  
  7217. 'welding machine caption
  7218. ThisWorkbook.Sheets("WELDING DATE").Activate
  7219. weldnolabel1.Caption = Range("B2").value
  7220. weldnolabel2.Caption = Range("C2").value
  7221. weldnolabel3.Caption = Range("D2").value
  7222. weldnolabel4.Caption = Range("E2").value
  7223. weldnolabel5.Caption = Range("F2").value
  7224. weldnolabel6.Caption = Range("G2").value
  7225. weldnolabel7.Caption = Range("H2").value
  7226. weldnolabel8.Caption = Range("I2").value
  7227.  
  7228.  
  7229. 'laser machine Caption
  7230. ThisWorkbook.Sheets("LASER DATE").Activate
  7231. LASERlabel1.Caption = Range("B2").value
  7232. LASERlabel2.Caption = Range("C2").value
  7233. LASERlabel3.Caption = Range("D2").value
  7234. LASERlabel4.Caption = Range("E2").value
  7235. LASERlabel5.Caption = Range("F2").value
  7236. LASERlabel6.Caption = Range("G2").value
  7237.  
  7238.  
  7239. 'finishing machine caption
  7240. ThisWorkbook.Sheets("FINISHING DATE").Activate
  7241. FINISHlabel1.Caption = Range("B2").value
  7242. FINISHlabel2.Caption = Range("C2").value
  7243. FINISHlabel3.Caption = Range("D2").value
  7244. FINISHlabel4.Caption = Range("E2").value
  7245. FINISHlabel5.Caption = Range("F2").value
  7246. FINISHlabel6.Caption = Range("G2").value
  7247. FINISHlabel7.Caption = Range("H2").value
  7248. FINISHlabel8.Caption = Range("I2").value
  7249.  
  7250. 'forming machine caption
  7251. ThisWorkbook.Sheets("FORMING DATE").Activate
  7252. FORMINGlabel1.Caption = Range("B2").value
  7253. FORMINGlabel2.Caption = Range("C2").value
  7254. FORMINGlabel3.Caption = Range("D2").value
  7255. FORMINGlabel4.Caption = Range("E2").value
  7256. FORMINGlabel5.Caption = Range("F2").value
  7257. FORMINGlabel6.Caption = Range("G2").value
  7258. FORMINGlabel7.Caption = Range("H2").value
  7259. FORMINGlabel8.Caption = Range("I2").value
  7260. FORMINGlabel9.Caption = Range("J2").value
  7261. FORMINGlabel10.Caption = Range("K2").value
  7262.  
  7263. FORMINGlabel11.Caption = Range("B7").value
  7264. FORMINGlabel12.Caption = Range("C7").value
  7265. FORMINGlabel13.Caption = Range("D7").value
  7266. FORMINGlabel14.Caption = Range("E7").value
  7267. FORMINGlabel15.Caption = Range("F7").value
  7268. FORMINGlabel16.Caption = Range("G7").value
  7269. FORMINGlabel17.Caption = Range("H7").value
  7270. FORMINGlabel18.Caption = Range("I7").value
  7271. FORMINGlabel19.Caption = Range("J7").value
  7272. FORMINGlabel20.Caption = Range("K7").value
  7273.  
  7274. CommandButton1 = True
  7275.  
  7276. Do
  7277. Timetextbox.value = Format(Now, "hh:mm:ss")
  7278. Datetextbox.value = Format(Now, " dddd, dd mmmm yyyy")
  7279. DoEvents
  7280. Loop
  7281. End Sub
  7282.  
  7283.  
  7284. Sub UserForm_Initialize()
  7285.  
  7286. Call SystemButtonSettings(Me, False)
  7287.  
  7288. 'show blank textbox spiraling machine page 1
  7289. TextBox194.value = ""
  7290. TextBox192.value = ""
  7291. TextBox193.value = ""
  7292. TextBox489.value = ""
  7293. TextBox490.value = ""
  7294. TextBox491.value = ""
  7295. TextBox200.value = ""
  7296. TextBox198.value = ""
  7297. TextBox199.value = ""
  7298. TextBox203.value = ""
  7299. TextBox201.value = ""
  7300. TextBox202.value = ""
  7301. TextBox205.value = ""
  7302. TextBox206.value = ""
  7303. TextBox204.value = ""
  7304. TextBox208.value = ""
  7305. TextBox209.value = ""
  7306. TextBox207.value = ""
  7307. TextBox211.value = ""
  7308. TextBox212.value = ""
  7309. TextBox210.value = ""
  7310. TextBox214.value = ""
  7311. TextBox215.value = ""
  7312. TextBox213.value = ""
  7313. TextBox217.value = ""
  7314. TextBox218.value = ""
  7315. TextBox216.value = ""
  7316. TextBox190.value = ""
  7317. TextBox191.value = ""
  7318. TextBox189.value = ""
  7319.  
  7320. 'show blank textbox spiraling machine page 2
  7321. spiraltextboxpage2_1.value = ""
  7322. spiraltextboxpage2_2.value = ""
  7323. spiraltextboxpage2_3.value = ""
  7324. spiraltextboxpage2_4.value = ""
  7325. spiraltextboxpage2_5.value = ""
  7326. spiraltextboxpage2_6.value = ""
  7327. spiraltextboxpage2_7.value = ""
  7328. spiraltextboxpage2_8.value = ""
  7329. spiraltextboxpage2_9.value = ""
  7330. spiraltextboxpage2_10.value = ""
  7331. spiraltextboxpage2_11.value = ""
  7332. spiraltextboxpage2_12.value = ""
  7333. spiraltextboxpage2_13.value = ""
  7334. spiraltextboxpage2_14.value = ""
  7335. spiraltextboxpage2_15.value = ""
  7336. spiraltextboxpage2_16.value = ""
  7337. spiraltextboxpage2_17.value = ""
  7338. spiraltextboxpage2_18.value = ""
  7339. spiraltextboxpage2_19.value = ""
  7340. spiraltextboxpage2_20.value = ""
  7341. spiraltextboxpage2_21.value = ""
  7342. spiraltextboxpage2_22.value = ""
  7343. spiraltextboxpage2_23.value = ""
  7344. spiraltextboxpage2_24.value = ""
  7345. spiraltextboxpage2_25.value = ""
  7346. spiraltextboxpage2_26.value = ""
  7347. spiraltextboxpage2_27.value = ""
  7348. spiraltextboxpage2_28.value = ""
  7349. spiraltextboxpage2_29.value = ""
  7350. spiraltextboxpage2_30.value = ""
  7351.  
  7352. 'show blank textbox spiraling machine page 3
  7353. spiraltextboxpage3_1.value = ""
  7354. spiraltextboxpage3_2.value = ""
  7355. spiraltextboxpage3_3.value = ""
  7356. spiraltextboxpage3_4.value = ""
  7357. spiraltextboxpage3_5.value = ""
  7358. spiraltextboxpage3_6.value = ""
  7359. spiraltextboxpage3_7.value = ""
  7360. spiraltextboxpage3_8.value = ""
  7361. spiraltextboxpage3_9.value = ""
  7362. spiraltextboxpage3_10.value = ""
  7363. spiraltextboxpage3_11.value = ""
  7364. spiraltextboxpage3_12.value = ""
  7365. spiraltextboxpage3_13.value = ""
  7366. spiraltextboxpage3_14.value = ""
  7367. spiraltextboxpage3_15.value = ""
  7368. spiraltextboxpage3_16.value = ""
  7369. spiraltextboxpage3_17.value = ""
  7370. spiraltextboxpage3_18.value = ""
  7371. spiraltextboxpage3_19.value = ""
  7372. spiraltextboxpage3_20.value = ""
  7373. spiraltextboxpage3_21.value = ""
  7374. spiraltextboxpage3_22.value = ""
  7375. spiraltextboxpage3_23.value = ""
  7376. spiraltextboxpage3_24.value = ""
  7377. spiraltextboxpage3_25.value = ""
  7378. spiraltextboxpage3_26.value = ""
  7379. spiraltextboxpage3_27.value = ""
  7380. spiraltextboxpage3_28.value = ""
  7381. spiraltextboxpage3_29.value = ""
  7382. spiraltextboxpage3_30.value = ""
  7383.  
  7384. 'show blank textbox spiraling machine page 4
  7385. spiraltextboxpage4_1.value = ""
  7386. spiraltextboxpage4_2.value = ""
  7387. spiraltextboxpage4_3.value = ""
  7388. spiraltextboxpage4_4.value = ""
  7389. spiraltextboxpage4_5.value = ""
  7390. spiraltextboxpage4_6.value = ""
  7391. spiraltextboxpage4_7.value = ""
  7392. spiraltextboxpage4_8.value = ""
  7393. spiraltextboxpage4_9.value = ""
  7394. spiraltextboxpage4_10.value = ""
  7395. spiraltextboxpage4_11.value = ""
  7396. spiraltextboxpage4_12.value = ""
  7397. spiraltextboxpage4_13.value = ""
  7398. spiraltextboxpage4_14.value = ""
  7399. spiraltextboxpage4_15.value = ""
  7400. spiraltextboxpage4_16.value = ""
  7401. spiraltextboxpage4_17.value = ""
  7402. spiraltextboxpage4_18.value = ""
  7403. spiraltextboxpage4_19.value = ""
  7404. spiraltextboxpage4_20.value = ""
  7405. spiraltextboxpage4_21.value = ""
  7406. spiraltextboxpage4_22.value = ""
  7407. spiraltextboxpage4_23.value = ""
  7408. spiraltextboxpage4_24.value = ""
  7409. spiraltextboxpage4_25.value = ""
  7410. spiraltextboxpage4_26.value = ""
  7411. spiraltextboxpage4_27.value = ""
  7412. spiraltextboxpage4_28.value = ""
  7413. spiraltextboxpage4_29.value = ""
  7414. spiraltextboxpage4_30.value = ""
  7415.  
  7416. 'show blank textbox spiraling machine page 5
  7417. spiraltextboxpage5_1.value = ""
  7418. spiraltextboxpage5_2.value = ""
  7419. spiraltextboxpage5_3.value = ""
  7420. spiraltextboxpage5_4.value = ""
  7421. spiraltextboxpage5_5.value = ""
  7422. spiraltextboxpage5_6.value = ""
  7423. spiraltextboxpage5_7.value = ""
  7424. spiraltextboxpage5_8.value = ""
  7425. spiraltextboxpage5_9.value = ""
  7426. spiraltextboxpage5_10.value = ""
  7427. spiraltextboxpage5_11.value = ""
  7428. spiraltextboxpage5_12.value = ""
  7429. spiraltextboxpage5_13.value = ""
  7430. spiraltextboxpage5_14.value = ""
  7431. spiraltextboxpage5_15.value = ""
  7432. spiraltextboxpage5_16.value = ""
  7433. spiraltextboxpage5_17.value = ""
  7434. spiraltextboxpage5_18.value = ""
  7435. spiraltextboxpage5_19.value = ""
  7436. spiraltextboxpage5_20.value = ""
  7437. spiraltextboxpage5_21.value = ""
  7438. spiraltextboxpage5_22.value = ""
  7439. spiraltextboxpage5_23.value = ""
  7440. spiraltextboxpage5_24.value = ""
  7441. spiraltextboxpage5_25.value = ""
  7442. spiraltextboxpage5_26.value = ""
  7443. spiraltextboxpage5_27.value = ""
  7444. spiraltextboxpage5_28.value = ""
  7445. spiraltextboxpage5_29.value = ""
  7446. spiraltextboxpage5_30.value = ""
  7447.  
  7448. 'show blank textbox spiraling machine page 6
  7449. spiraltextboxpage6_1.value = ""
  7450. spiraltextboxpage6_2.value = ""
  7451. spiraltextboxpage6_3.value = ""
  7452. spiraltextboxpage6_4.value = ""
  7453. spiraltextboxpage6_5.value = ""
  7454. spiraltextboxpage6_6.value = ""
  7455. spiraltextboxpage6_7.value = ""
  7456. spiraltextboxpage6_8.value = ""
  7457. spiraltextboxpage6_9.value = ""
  7458. spiraltextboxpage6_10.value = ""
  7459. spiraltextboxpage6_11.value = ""
  7460. spiraltextboxpage6_12.value = ""
  7461. spiraltextboxpage6_13.value = ""
  7462. spiraltextboxpage6_14.value = ""
  7463. spiraltextboxpage6_15.value = ""
  7464. spiraltextboxpage6_16.value = ""
  7465. spiraltextboxpage6_17.value = ""
  7466. spiraltextboxpage6_18.value = ""
  7467. spiraltextboxpage6_19.value = ""
  7468. spiraltextboxpage6_20.value = ""
  7469. spiraltextboxpage6_21.value = ""
  7470. spiraltextboxpage6_22.value = ""
  7471. spiraltextboxpage6_23.value = ""
  7472. spiraltextboxpage6_24.value = ""
  7473. spiraltextboxpage6_25.value = ""
  7474. spiraltextboxpage6_26.value = ""
  7475. spiraltextboxpage6_27.value = ""
  7476. spiraltextboxpage6_28.value = ""
  7477. spiraltextboxpage6_29.value = ""
  7478. spiraltextboxpage6_30.value = ""
  7479.  
  7480. 'show blank textbox spiraling machine page 7
  7481. spiraltextboxpage7_1.value = ""
  7482. spiraltextboxpage7_2.value = ""
  7483. spiraltextboxpage7_3.value = ""
  7484. spiraltextboxpage7_4.value = ""
  7485. spiraltextboxpage7_5.value = ""
  7486. spiraltextboxpage7_6.value = ""
  7487. spiraltextboxpage7_7.value = ""
  7488. spiraltextboxpage7_8.value = ""
  7489. spiraltextboxpage7_9.value = ""
  7490. spiraltextboxpage7_10.value = ""
  7491. spiraltextboxpage7_11.value = ""
  7492. spiraltextboxpage7_12.value = ""
  7493. spiraltextboxpage7_13.value = ""
  7494. spiraltextboxpage7_14.value = ""
  7495. spiraltextboxpage7_15.value = ""
  7496. spiraltextboxpage7_16.value = ""
  7497. spiraltextboxpage7_17.value = ""
  7498. spiraltextboxpage7_18.value = ""
  7499. spiraltextboxpage7_19.value = ""
  7500. spiraltextboxpage7_20.value = ""
  7501. spiraltextboxpage7_21.value = ""
  7502. spiraltextboxpage7_22.value = ""
  7503. spiraltextboxpage7_23.value = ""
  7504. spiraltextboxpage7_24.value = ""
  7505. spiraltextboxpage7_25.value = ""
  7506. spiraltextboxpage7_26.value = ""
  7507. spiraltextboxpage7_27.value = ""
  7508. spiraltextboxpage7_28.value = ""
  7509. spiraltextboxpage7_29.value = ""
  7510. spiraltextboxpage7_30.value = ""
  7511.  
  7512. 'show blank textbox welding machine
  7513. weldtextbox1.value = ""
  7514. weldtextbox2.value = ""
  7515. weldtextbox3.value = ""
  7516. weldtextbox4.value = ""
  7517. weldtextbox5.value = ""
  7518. weldtextbox6.value = ""
  7519. weldtextbox7.value = ""
  7520. weldtextbox8.value = ""
  7521. weldtextbox9.value = ""
  7522. weldtextbox10.value = ""
  7523. weldtextbox11.value = ""
  7524. weldtextbox12.value = ""
  7525. weldtextbox13.value = ""
  7526. weldtextbox14.value = ""
  7527. weldtextbox15.value = ""
  7528. weldtextbox16.value = ""
  7529. weldtextbox17.value = ""
  7530. weldtextbox18.value = ""
  7531. weldtextbox19.value = ""
  7532. weldtextbox20.value = ""
  7533. weldtextbox21.value = ""
  7534. weldtextbox22.value = ""
  7535. weldtextbox23.value = ""
  7536. weldtextbox24.value = ""
  7537.  
  7538. 'show blank textbox laser machine
  7539. lasertextbox1.value = ""
  7540. lasertextbox2.value = ""
  7541. lasertextbox3.value = ""
  7542. lasertextbox4.value = ""
  7543. lasertextbox5.value = ""
  7544. lasertextbox6.value = ""
  7545. lasertextbox7.value = ""
  7546. lasertextbox8.value = ""
  7547. lasertextbox9.value = ""
  7548. lasertextbox10.value = ""
  7549. lasertextbox11.value = ""
  7550. lasertextbox12.value = ""
  7551. lasertextbox13.value = ""
  7552. lasertextbox14.value = ""
  7553. lasertextbox15.value = ""
  7554. lasertextbox16.value = ""
  7555. lasertextbox17.value = ""
  7556. lasertextbox18.value = ""
  7557.  
  7558. 'show blank textbox finishing machine
  7559. finishtextbox1.value = ""
  7560. finishtextbox2.value = ""
  7561. finishtextbox3.value = ""
  7562. finishtextbox4.value = ""
  7563. finishtextbox5.value = ""
  7564. finishtextbox6.value = ""
  7565. finishtextbox7.value = ""
  7566. finishtextbox8.value = ""
  7567. finishtextbox9.value = ""
  7568. finishtextbox10.value = ""
  7569. finishtextbox11.value = ""
  7570. finishtextbox12.value = ""
  7571. finishtextbox13.value = ""
  7572. finishtextbox14.value = ""
  7573. finishtextbox15.value = ""
  7574. finishtextbox16.value = ""
  7575. finishtextbox17.value = ""
  7576. finishtextbox18.value = ""
  7577. finishtextbox19.value = ""
  7578. finishtextbox20.value = ""
  7579. finishtextbox21.value = ""
  7580. finishtextbox22.value = ""
  7581. finishtextbox23.value = ""
  7582. finishtextbox24.value = ""
  7583.  
  7584. 'show blank textbox forming machine
  7585. FORMINGtextbox1.value = ""
  7586. FORMINGtextbox2.value = ""
  7587. FORMINGtextbox3.value = ""
  7588. FORMINGtextbox4.value = ""
  7589. FORMINGtextbox5.value = ""
  7590. FORMINGtextbox6.value = ""
  7591. FORMINGtextbox7.value = ""
  7592. FORMINGtextbox8.value = ""
  7593. FORMINGtextbox9.value = ""
  7594. FORMINGtextbox10.value = ""
  7595. FORMINGtextbox11.value = ""
  7596. FORMINGtextbox12.value = ""
  7597. FORMINGtextbox13.value = ""
  7598. FORMINGtextbox14.value = ""
  7599. FORMINGtextbox15.value = ""
  7600. FORMINGtextbox16.value = ""
  7601. FORMINGtextbox17.value = ""
  7602. FORMINGtextbox18.value = ""
  7603. FORMINGtextbox19.value = ""
  7604. FORMINGtextbox20.value = ""
  7605. FORMINGtextbox21.value = ""
  7606. FORMINGtextbox22.value = ""
  7607. FORMINGtextbox23.value = ""
  7608. FORMINGtextbox24.value = ""
  7609. FORMINGtextbox25.value = ""
  7610. FORMINGtextbox26.value = ""
  7611. FORMINGtextbox27.value = ""
  7612. FORMINGtextbox28.value = ""
  7613. FORMINGtextbox29.value = ""
  7614. FORMINGtextbox30.value = ""
  7615. FORMINGtextboxpage2_1.value = ""
  7616. FORMINGtextboxpage2_2.value = ""
  7617. FORMINGtextboxpage2_3.value = ""
  7618. FORMINGtextboxpage2_4.value = ""
  7619. FORMINGtextboxpage2_5.value = ""
  7620. FORMINGtextboxpage2_6.value = ""
  7621. FORMINGtextboxpage2_7.value = ""
  7622. FORMINGtextboxpage2_8.value = ""
  7623. FORMINGtextboxpage2_9.value = ""
  7624. FORMINGtextboxpage2_10.value = ""
  7625. FORMINGtextboxpage2_11.value = ""
  7626. FORMINGtextboxpage2_12.value = ""
  7627. FORMINGtextboxpage2_13.value = ""
  7628. FORMINGtextboxpage2_14.value = ""
  7629. FORMINGtextboxpage2_15.value = ""
  7630. FORMINGtextboxpage2_16.value = ""
  7631. FORMINGtextboxpage2_17.value = ""
  7632. FORMINGtextboxpage2_18.value = ""
  7633. FORMINGtextboxpage2_19.value = ""
  7634. FORMINGtextboxpage2_20.value = ""
  7635. FORMINGtextboxpage2_21.value = ""
  7636. FORMINGtextboxpage2_22.value = ""
  7637. FORMINGtextboxpage2_22.value = ""
  7638. FORMINGtextboxpage2_23.value = ""
  7639. FORMINGtextboxpage2_24.value = ""
  7640. FORMINGtextboxpage2_25.value = ""
  7641. FORMINGtextboxpage2_26.value = ""
  7642. FORMINGtextboxpage2_27.value = ""
  7643. FORMINGtextboxpage2_28.value = ""
  7644. FORMINGtextboxpage2_29.value = ""
  7645. FORMINGtextboxpage2_30.value = ""
  7646.  
  7647.  
  7648. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  7649. If Range("B21").value = "99,1%" Then
  7650. Range("B21").value = "100%"
  7651.  
  7652. ElseIf Range("C21").value = "99,1%" Then
  7653. Range("C21").value = "100%"
  7654.  
  7655. ElseIf Range("D21").value = "99,1%" Then
  7656. Range("D21").value = "100%"
  7657.  
  7658. ElseIf Range("E21").value = "99,1%" Then
  7659. Range("E21").value = "100%"
  7660.  
  7661. ElseIf Range("F21").value = "99,1%" Then
  7662. Range("F21").value = "100%"
  7663. End If
  7664.  
  7665.  
  7666.  
  7667. End Sub
  7668.  
  7669. Private Sub WebBrowser1_Enter()
  7670. UserForm3.show
  7671.  
  7672. End Sub
  7673.  
  7674. Private Sub WebBrowser1_NavigateComplete2(ByVal pDisp As Object, URL As Variant)
  7675. TPM_ERG.WebBrowser1.document.Body.bgcolor = RGB(48, 46, 46)
  7676. End Sub
  7677.  
  7678. Private Sub weldclick1_Click()
  7679.  
  7680. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  7681. If Format(Range("C21").value, "0%") = "100%" Then
  7682. Range("C21").value = "99,1%"
  7683. End If
  7684.  
  7685. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  7686. Dim foundSkill As Range
  7687. Set foundSkill = Range("A:A").Find(nama_label.Caption)
  7688. foundSkill.Select
  7689. TPM_ERG.skillpercent.value = Format(ActiveCell.Offset(0, 2).value, "0%")
  7690.  
  7691. If TPM_ERG.skillpercent.value >= Format(Range("C21").value, "0%") Or TPM_ERG.skillpercent.value = "100%" Then
  7692.  
  7693. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  7694. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  7695. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  7696.  
  7697. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  7698. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  7699.  
  7700.  
  7701.  
  7702. TPM_ERG.Label666.Caption = "YOUR WELDING MACHINE SKILL IS : "
  7703. Call skillgrade
  7704.  
  7705.  
  7706. ThisWorkbook.Sheets("WELDING DATE").Activate
  7707.  
  7708. WELD.mach_label.Caption = TPM_ERG.weldnolabel1.Caption
  7709. WELD.Image1.Picture = LoadPicture(ThisWorkbook.path & "\Picture\Machine Picture\welding.jpg")
  7710.  
  7711. WELD.m_1.value = Format(Range("B3"), "dd mmmm yyyy")
  7712. WELD.m_2.value = Format(Range("B4"), "dd mmmm yyyy")
  7713. WELD.m_3.value = Format(Range("B5"), "dd mmmm yyyy")
  7714.  
  7715. WELD.Caption = TPM_ERG.weldnolabel1.Caption
  7716.  
  7717. TPM_ERG.calendartext.value = "71"
  7718.  
  7719. WELD.show
  7720.  
  7721. Else:
  7722.  
  7723. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  7724. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  7725. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  7726.  
  7727. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  7728. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  7729.  
  7730.  
  7731. TPM_ERG.Label666.Caption = "YOUR WELDING MACHINE SKILL IS : "
  7732. Call skillgrade
  7733.  
  7734. UserForm2.show
  7735.  
  7736. End If
  7737. End Sub
  7738.  
  7739. Private Sub weldclick2_Click()
  7740.  
  7741.  
  7742. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  7743. If Format(Range("C21").value, "0%") = "100%" Then
  7744. Range("C21").value = "99,1%"
  7745. End If
  7746.  
  7747. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  7748. Dim foundSkill As Range
  7749. Set foundSkill = Range("A:A").Find(nama_label.Caption)
  7750. foundSkill.Select
  7751. TPM_ERG.skillpercent.value = Format(ActiveCell.Offset(0, 2).value, "0%")
  7752.  
  7753. If TPM_ERG.skillpercent.value >= Format(Range("C21").value, "0%") Or TPM_ERG.skillpercent.value = "100%" Then
  7754.  
  7755. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  7756. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  7757. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  7758.  
  7759. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  7760. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  7761.  
  7762.  
  7763.  
  7764. TPM_ERG.Label666.Caption = "YOUR WELDING MACHINE SKILL IS : "
  7765. Call skillgrade
  7766.  
  7767.  
  7768.  
  7769.  
  7770. ThisWorkbook.Sheets("WELDING DATE").Activate
  7771.  
  7772. WELD.mach_label.Caption = TPM_ERG.weldnolabel2.Caption
  7773. WELD.Image1.Picture = LoadPicture(ThisWorkbook.path & "\Picture\Machine Picture\welding.jpg")
  7774.  
  7775. WELD.m_1.value = Format(Range("C3"), "dd mmmm yyyy")
  7776. WELD.m_2.value = Format(Range("C4"), "dd mmmm yyyy")
  7777. WELD.m_3.value = Format(Range("C5"), "dd mmmm yyyy")
  7778.  
  7779. WELD.Caption = TPM_ERG.weldnolabel2.Caption
  7780.  
  7781. TPM_ERG.calendartext.value = "72"
  7782.  
  7783. WELD.show
  7784.  
  7785. Else:
  7786.  
  7787. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  7788. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  7789. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  7790.  
  7791. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  7792. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  7793.  
  7794.  
  7795. TPM_ERG.Label666.Caption = "YOUR WELDING MACHINE SKILL IS : "
  7796. Call skillgrade
  7797.  
  7798. UserForm2.show
  7799.  
  7800. End If
  7801. End Sub
  7802.  
  7803. Private Sub weldclick3_Click()
  7804.  
  7805.  
  7806. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  7807. If Format(Range("C21").value, "0%") = "100%" Then
  7808. Range("C21").value = "99,1%"
  7809. End If
  7810.  
  7811. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  7812. Dim foundSkill As Range
  7813. Set foundSkill = Range("A:A").Find(nama_label.Caption)
  7814. foundSkill.Select
  7815. TPM_ERG.skillpercent.value = Format(ActiveCell.Offset(0, 2).value, "0%")
  7816.  
  7817. If TPM_ERG.skillpercent.value >= Format(Range("C21").value, "0%") Or TPM_ERG.skillpercent.value = "100%" Then
  7818.  
  7819. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  7820. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  7821. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  7822.  
  7823. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  7824. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  7825.  
  7826.  
  7827.  
  7828. TPM_ERG.Label666.Caption = "YOUR WELDING MACHINE SKILL IS : "
  7829. Call skillgrade
  7830.  
  7831.  
  7832.  
  7833. ThisWorkbook.Sheets("WELDING DATE").Activate
  7834.  
  7835. WELD.mach_label.Caption = TPM_ERG.weldnolabel3.Caption
  7836. WELD.Image1.Picture = LoadPicture(ThisWorkbook.path & "\Picture\Machine Picture\welding.jpg")
  7837.  
  7838. WELD.m_1.value = Format(Range("D3"), "dd mmmm yyyy")
  7839. WELD.m_2.value = Format(Range("D4"), "dd mmmm yyyy")
  7840. WELD.m_3.value = Format(Range("D5"), "dd mmmm yyyy")
  7841.  
  7842. WELD.Caption = TPM_ERG.weldnolabel3.Caption
  7843.  
  7844. TPM_ERG.calendartext.value = "73"
  7845.  
  7846. WELD.show
  7847.  
  7848.  
  7849. Else:
  7850.  
  7851. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  7852. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  7853. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  7854.  
  7855. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  7856. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  7857.  
  7858.  
  7859. TPM_ERG.Label666.Caption = "YOUR WELDING MACHINE SKILL IS : "
  7860. Call skillgrade
  7861.  
  7862. UserForm2.show
  7863. End If
  7864. End Sub
  7865.  
  7866. Private Sub weldclick4_Click()
  7867.  
  7868.  
  7869. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  7870. If Format(Range("C21").value, "0%") = "100%" Then
  7871. Range("C21").value = "99,1%"
  7872. End If
  7873.  
  7874. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  7875. Dim foundSkill As Range
  7876. Set foundSkill = Range("A:A").Find(nama_label.Caption)
  7877. foundSkill.Select
  7878. TPM_ERG.skillpercent.value = Format(ActiveCell.Offset(0, 2).value, "0%")
  7879.  
  7880. If TPM_ERG.skillpercent.value >= Format(Range("C21").value, "0%") Or TPM_ERG.skillpercent.value = "100%" Then
  7881.  
  7882. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  7883. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  7884. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  7885.  
  7886. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  7887. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  7888.  
  7889.  
  7890.  
  7891. TPM_ERG.Label666.Caption = "YOUR WELDING MACHINE SKILL IS : "
  7892. Call skillgrade
  7893.  
  7894.  
  7895.  
  7896. ThisWorkbook.Sheets("WELDING DATE").Activate
  7897.  
  7898. WELD.mach_label.Caption = TPM_ERG.weldnolabel4.Caption
  7899. WELD.Image1.Picture = LoadPicture(ThisWorkbook.path & "\Picture\Machine Picture\welding.jpg")
  7900.  
  7901. WELD.m_1.value = Format(Range("E3"), "dd mmmm yyyy")
  7902. WELD.m_2.value = Format(Range("E4"), "dd mmmm yyyy")
  7903. WELD.m_3.value = Format(Range("E5"), "dd mmmm yyyy")
  7904.  
  7905. WELD.Caption = TPM_ERG.weldnolabel4.Caption
  7906.  
  7907. TPM_ERG.calendartext.value = "74"
  7908.  
  7909. WELD.show
  7910.  
  7911.  
  7912. Else:
  7913.  
  7914. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  7915. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  7916. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  7917.  
  7918. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  7919. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  7920.  
  7921.  
  7922. TPM_ERG.Label666.Caption = "YOUR WELDING MACHINE SKILL IS : "
  7923. Call skillgrade
  7924.  
  7925. UserForm2.show
  7926. End If
  7927. End Sub
  7928.  
  7929. Private Sub weldclick5_Click()
  7930.  
  7931. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  7932. If Format(Range("C21").value, "0%") = "100%" Then
  7933. Range("C21").value = "99,1%"
  7934. End If
  7935.  
  7936. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  7937. Dim foundSkill As Range
  7938. Set foundSkill = Range("A:A").Find(nama_label.Caption)
  7939. foundSkill.Select
  7940. TPM_ERG.skillpercent.value = Format(ActiveCell.Offset(0, 2).value, "0%")
  7941.  
  7942. If TPM_ERG.skillpercent.value >= Format(Range("C21").value, "0%") Or TPM_ERG.skillpercent.value = "100%" Then
  7943.  
  7944. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  7945. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  7946. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  7947.  
  7948. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  7949. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  7950.  
  7951.  
  7952.  
  7953. TPM_ERG.Label666.Caption = "YOUR WELDING MACHINE SKILL IS : "
  7954. Call skillgrade
  7955.  
  7956.  
  7957.  
  7958. ThisWorkbook.Sheets("WELDING DATE").Activate
  7959.  
  7960. WELD.mach_label.Caption = TPM_ERG.weldnolabel5.Caption
  7961. WELD.Image1.Picture = LoadPicture(ThisWorkbook.path & "\Picture\Machine Picture\welding.jpg")
  7962.  
  7963. WELD.m_1.value = Format(Range("F3"), "dd mmmm yyyy")
  7964. WELD.m_2.value = Format(Range("F4"), "dd mmmm yyyy")
  7965. WELD.m_3.value = Format(Range("F5"), "dd mmmm yyyy")
  7966.  
  7967. WELD.Caption = TPM_ERG.weldnolabel5.Caption
  7968.  
  7969. TPM_ERG.calendartext.value = "75"
  7970.  
  7971. WELD.show
  7972.  
  7973.  
  7974. Else:
  7975.  
  7976. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  7977. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  7978. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  7979.  
  7980. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  7981. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  7982.  
  7983.  
  7984. TPM_ERG.Label666.Caption = "YOUR WELDING MACHINE SKILL IS : "
  7985. Call skillgrade
  7986.  
  7987. UserForm2.show
  7988. End If
  7989. End Sub
  7990.  
  7991. Private Sub weldclick6_Click()
  7992.  
  7993. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  7994. If Format(Range("C21").value, "0%") = "100%" Then
  7995. Range("C21").value = "99,1%"
  7996. End If
  7997.  
  7998. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  7999. Dim foundSkill As Range
  8000. Set foundSkill = Range("A:A").Find(nama_label.Caption)
  8001. foundSkill.Select
  8002. TPM_ERG.skillpercent.value = Format(ActiveCell.Offset(0, 2).value, "0%")
  8003.  
  8004. If TPM_ERG.skillpercent.value >= Format(Range("C21").value, "0%") Or TPM_ERG.skillpercent.value = "100%" Then
  8005.  
  8006. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  8007. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  8008. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  8009.  
  8010. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  8011. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  8012.  
  8013.  
  8014.  
  8015. TPM_ERG.Label666.Caption = "YOUR WELDING MACHINE SKILL IS : "
  8016. Call skillgrade
  8017.  
  8018.  
  8019.  
  8020. ThisWorkbook.Sheets("WELDING DATE").Activate
  8021.  
  8022. WELD.mach_label.Caption = TPM_ERG.weldnolabel6.Caption
  8023. WELD.Image1.Picture = LoadPicture(ThisWorkbook.path & "\Picture\Machine Picture\welding.jpg")
  8024.  
  8025. WELD.m_1.value = Format(Range("G3"), "dd mmmm yyyy")
  8026. WELD.m_2.value = Format(Range("G4"), "dd mmmm yyyy")
  8027. WELD.m_3.value = Format(Range("G5"), "dd mmmm yyyy")
  8028.  
  8029. WELD.Caption = TPM_ERG.weldnolabel6.Caption
  8030.  
  8031. TPM_ERG.calendartext.value = "76"
  8032.  
  8033. WELD.show
  8034.  
  8035.  
  8036. Else:
  8037.  
  8038. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  8039. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  8040. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  8041.  
  8042. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  8043. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  8044.  
  8045.  
  8046. TPM_ERG.Label666.Caption = "YOUR WELDING MACHINE SKILL IS : "
  8047. Call skillgrade
  8048.  
  8049. UserForm2.show
  8050. End If
  8051. End Sub
  8052.  
  8053. Private Sub weldclick7_Click()
  8054.  
  8055. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  8056. If Format(Range("C21").value, "0%") = "100%" Then
  8057. Range("C21").value = "99,1%"
  8058. End If
  8059.  
  8060. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  8061. Dim foundSkill As Range
  8062. Set foundSkill = Range("A:A").Find(nama_label.Caption)
  8063. foundSkill.Select
  8064. TPM_ERG.skillpercent.value = Format(ActiveCell.Offset(0, 2).value, "0%")
  8065.  
  8066. If TPM_ERG.skillpercent.value >= Format(Range("C21").value, "0%") Or TPM_ERG.skillpercent.value = "100%" Then
  8067.  
  8068. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  8069. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  8070. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  8071.  
  8072. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  8073. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  8074.  
  8075.  
  8076.  
  8077. TPM_ERG.Label666.Caption = "YOUR WELDING MACHINE SKILL IS : "
  8078. Call skillgrade
  8079.  
  8080. ThisWorkbook.Sheets("WELDING DATE").Activate
  8081.  
  8082. WELD.mach_label.Caption = TPM_ERG.weldnolabel7.Caption
  8083. WELD.Image1.Picture = LoadPicture(ThisWorkbook.path & "\Picture\Machine Picture\welding.jpg")
  8084.  
  8085. WELD.m_1.value = Format(Range("H3"), "dd mmmm yyyy")
  8086. WELD.m_2.value = Format(Range("H4"), "dd mmmm yyyy")
  8087. WELD.m_3.value = Format(Range("H5"), "dd mmmm yyyy")
  8088.  
  8089. WELD.Caption = TPM_ERG.weldnolabel7.Caption
  8090.  
  8091. TPM_ERG.calendartext.value = "77"
  8092.  
  8093. WELD.show
  8094.  
  8095.  
  8096. Else:
  8097.  
  8098. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  8099. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  8100. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  8101.  
  8102. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  8103. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  8104.  
  8105.  
  8106. TPM_ERG.Label666.Caption = "YOUR WELDING MACHINE SKILL IS : "
  8107. Call skillgrade
  8108.  
  8109. UserForm2.show
  8110. End If
  8111. End Sub
  8112.  
  8113. Private Sub weldclick8_Click()
  8114.  
  8115. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  8116. If Format(Range("C21").value, "0%") = "100%" Then
  8117. Range("C21").value = "99,1%"
  8118. End If
  8119.  
  8120. ThisWorkbook.Sheets("MAINTENANCE SKILL").Activate
  8121. Dim foundSkill As Range
  8122. Set foundSkill = Range("A:A").Find(nama_label.Caption)
  8123. foundSkill.Select
  8124. TPM_ERG.skillpercent.value = Format(ActiveCell.Offset(0, 2).value, "0%")
  8125.  
  8126. If TPM_ERG.skillpercent.value >= Format(Range("C21").value, "0%") Or TPM_ERG.skillpercent.value = "100%" Then
  8127.  
  8128. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  8129. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  8130. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  8131.  
  8132. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  8133. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  8134.  
  8135.  
  8136.  
  8137. TPM_ERG.Label666.Caption = "YOUR WELDING MACHINE SKILL IS : "
  8138. Call skillgrade
  8139.  
  8140.  
  8141.  
  8142. ThisWorkbook.Sheets("WELDING DATE").Activate
  8143.  
  8144. WELD.mach_label.Caption = TPM_ERG.weldnolabel8.Caption
  8145. WELD.Image1.Picture = LoadPicture(ThisWorkbook.path & "\Picture\Machine Picture\welding.jpg")
  8146.  
  8147. WELD.m_1.value = Format(Range("I3"), "dd mmmm yyyy")
  8148. WELD.m_2.value = Format(Range("I4"), "dd mmmm yyyy")
  8149. WELD.m_3.value = Format(Range("I5"), "dd mmmm yyyy")
  8150.  
  8151. WELD.Caption = TPM_ERG.weldnolabel8.Caption
  8152.  
  8153. TPM_ERG.calendartext.value = "788"
  8154.  
  8155. WELD.show
  8156.  
  8157.  
  8158. Else:
  8159.  
  8160. TPM_ERG.WebBrowser1.Navigate ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif"
  8161. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  8162. & "><img src=" & Chr(39) & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & Chr(39) & "></img></body></html>"
  8163.  
  8164. TPM_ERG.WebBrowser1.Navigate "about:<html><body scroll=" & Chr(39) & "no" & Chr(39) _
  8165. & "><img src=" & ThisWorkbook.path & "\Speedometer\gif\" & TPM_ERG.skillpercent.value & ".gif" & " height=""250"" width=""400""></img></body></html>"
  8166.  
  8167.  
  8168. TPM_ERG.Label666.Caption = "YOUR WELDING MACHINE SKILL IS : "
  8169. Call skillgrade
  8170.  
  8171. UserForm2.show
  8172. End If
  8173. 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!