API tools faq
paste
Advertisement
Guest User

Untitled

a guest
Nov 20th, 2019
289
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 23.55 KB | None | 0 0
raw download clone embed print report
  1. Option Explicit
  2.  
  3. 'Option Explicit
  4. '=================================================================================================
  5. Dim vList1, vList2
  6.  
  7. '==============================================='
  8.  
  9. Sub allList(a As Long)
  10. Dim fm, gm
  11. Dim n As Variant
  12.  
  13. With Sheets("Matrice BXL")
  14. fm = Application.Match("Sélectionner paquet sol", .Range("D:D"), 0)
  15. gm = Application.Match("Sélectionner paquet eau", .Range("D:D"), 0)
  16.  
  17. n = .Range("D:D").Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
  18.  
  19. If a = 1 Then
  20. 'LIST 1 location
  21. vList1 = .Range("D" & fm & ":D" & gm - 1)
  22. ElseIf a = 2 Then
  23. 'LIST 2 location
  24. vList2 = .Range("D" & gm & ":D" & n)
  25. End If
  26.  
  27. End With
  28. End Sub
  29.  
  30. Sub toFilter(cbo As Object, vList)
  31. Dim dar As Object, i As Long
  32. Dim z, x
  33.  
  34. If IsEmpty(vList) Then
  35. If Right(cbo.Name, 1) < 6 And Right(cbo.Name, 1) > 0 Then
  36. Call allList(1)
  37. Else
  38. Call allList(2)
  39. End If
  40. End If
  41.  
  42.  
  43. With cbo
  44. If .Value <> "" And IsError(Application.Match(.Value, vList, 0)) Then
  45. Set dar = CreateObject("System.Collections.ArrayList")
  46.  
  47. For i = LBound(vList) To UBound(vList)
  48. dar.Add vList(i, 1)
  49. Next
  50.  
  51.  
  52. For Each x In Split(.Value, ",")
  53. x = Trim(x)
  54. If Len(x) > 0 Then
  55. For i = dar.Count - 1 To 0 Step -1
  56. If InStr(1, dar(i), x, vbTextCompare) = 0 Then dar.RemoveAt i
  57. Next
  58. End If
  59. Next
  60.  
  61. .List = dar.Toarray()
  62. .DropDown
  63.  
  64. End If
  65.  
  66. End With
  67. End Sub
  68.  
  69. Sub setCombobox(cbo As Object)
  70.  
  71. With cbo
  72. .MatchEntry = fmMatchEntryNone
  73. '.Value = ""
  74. '.LinkedCell = ""
  75. '.ListRows = 10 'show how many item
  76.  
  77. .Height = 20
  78. .Width = 200
  79.  
  80.  
  81. End With
  82.  
  83. End Sub
  84.  
  85. Sub setCombobox_A(cbo As Object)
  86.  
  87. With cbo
  88. .MatchEntry = fmMatchEntryNone
  89. ' .Value = ""
  90. ' .LinkedCell = ""
  91. '.ListRows = 10 'show how many item
  92.  
  93. .Height = 13
  94. .Width = 170
  95.  
  96.  
  97. End With
  98.  
  99. End Sub
  100.  
  101. Sub fillEmptyList(cbo1 As Object)
  102. If IsEmpty(vList) Then
  103. If Val(cbo1.Name) < 6 Then Call allList(1)
  104. Else
  105. Call allList(2)
  106. End If
  107. End If
  108. End Sub
  109.  
  110. '============== ComboBox1 ====================
  111. Private Sub ComboBox1_GotFocus()
  112.  
  113. Call setCombobox(ComboBox1)
  114. Call allList(1) '>>> 1 for LIST 1, 2 for LIST 2
  115.  
  116. End Sub
  117. Private Sub ComboBox1_LostFocus()
  118. Call setCombobox_A(ComboBox1)
  119. End Sub
  120. Private Sub ComboBox1_Change()
  121.  
  122. Call toFilter(ComboBox1, vList1) '>>> vList1 for LIST 1, vList2 for LIST 2
  123.  
  124. End Sub
  125.  
  126. Private Sub ComboBox1_DropButtonClick()
  127. '>>> vList1 for LIST 1, vList2 for LIST 2
  128. If IsEmpty(vList1) Then Call allList(1)
  129.  
  130. ComboBox1.List = vList1
  131.  
  132. End Sub
  133.  
  134. '=============================================================================
  135.  
  136. '============== ComboBox2 ====================
  137. Private Sub ComboBox2_GotFocus()
  138.  
  139. Call setCombobox(ComboBox2)
  140. Call allList(1) '>>> 1 for LIST 1, 2 for LIST 2
  141.  
  142. End Sub
  143. Private Sub ComboBox2_LostFocus()
  144. Call setCombobox_A(ComboBox2)
  145. End Sub
  146. Private Sub ComboBox2_Change()
  147.  
  148. Call toFilter(ComboBox2, vList1) '>>> vList1 for LIST 1, vList2 for LIST 2
  149.  
  150. End Sub
  151.  
  152. Private Sub ComboBox2_DropButtonClick()
  153. '>>> vList1 for LIST 1, vList2 for LIST 2
  154. If IsEmpty(vList1) Then Call allList(1)
  155. ComboBox2.List = vList1
  156. End Sub
  157.  
  158. '=============================================================================
  159.  
  160. '============== ComboBox3 ====================
  161. Private Sub ComboBox3_GotFocus()
  162.  
  163. Call setCombobox(ComboBox3)
  164. Call allList(1) '>>> 1 for LIST 1, 2 for LIST 2
  165.  
  166. End Sub
  167. Private Sub ComboBox3_LostFocus()
  168. Call setCombobox_A(ComboBox3)
  169. End Sub
  170. Private Sub ComboBox3_Change()
  171.  
  172. Call toFilter(ComboBox3, vList1) '>>> vList1 for LIST 1, vList2 for LIST 2
  173.  
  174. End Sub
  175.  
  176. Private Sub ComboBox3_DropButtonClick()
  177. '>>> vList1 for LIST 1, vList2 for LIST 2
  178. If IsEmpty(vList1) Then Call allList(1)
  179. ComboBox3.List = vList1
  180. End Sub
  181.  
  182. '=============================================================================
  183.  
  184.  
  185. '============== ComboBox4 ====================
  186. Private Sub ComboBox4_GotFocus()
  187.  
  188. Call setCombobox(ComboBox4)
  189. Call allList(1) '>>> 1 for LIST 1, 2 for LIST 2
  190.  
  191. End Sub
  192. Private Sub ComboBox4_LostFocus()
  193. Call setCombobox_A(ComboBox4)
  194. End Sub
  195. Private Sub ComboBox4_Change()
  196.  
  197. Call toFilter(ComboBox4, vList1) '>>> vList1 for LIST 1, vList2 for LIST 2
  198.  
  199. End Sub
  200.  
  201. Private Sub ComboBox4_DropButtonClick()
  202. '>>> vList1 for LIST 1, vList2 for LIST 2
  203. If IsEmpty(vList1) Then Call allList(1)
  204. ComboBox4.List = vList1
  205. End Sub
  206.  
  207. '=============================================================================
  208.  
  209.  
  210. '============== ComboBox5 ====================
  211. Private Sub ComboBox5_GotFocus()
  212.  
  213. Call setCombobox(ComboBox5)
  214. Call allList(1) '>>> 1 for LIST 1, 2 for LIST 2
  215.  
  216. End Sub
  217. Private Sub ComboBox5_LostFocus()
  218. Call setCombobox_A(ComboBox5)
  219. End Sub
  220. Private Sub ComboBox5_Change()
  221.  
  222. Call toFilter(ComboBox5, vList1) '>>> vList1 for LIST 1, vList2 for LIST 2
  223.  
  224. End Sub
  225.  
  226. Private Sub ComboBox5_DropButtonClick()
  227. '>>> vList1 for LIST 1, vList2 for LIST 2
  228. If IsEmpty(vList1) Then Call allList(1)
  229. ComboBox5.List = vList1
  230. End Sub
  231.  
  232. '=============================================================================
  233.  
  234. '============== ComboBox6 ====================
  235. Private Sub ComboBox6_GotFocus()
  236.  
  237. Call setCombobox(ComboBox6)
  238. Call allList(2) '>>> 1 for LIST 1, 2 for LIST 2
  239.  
  240. End Sub
  241. Private Sub ComboBox6_LostFocus()
  242. Call setCombobox_A(ComboBox6)
  243. End Sub
  244. Private Sub ComboBox6_Change()
  245.  
  246. Call toFilter(ComboBox6, vList2) '>>> vList1 for LIST 1, vList2 for LIST 2
  247.  
  248. End Sub
  249.  
  250. Private Sub ComboBox6_DropButtonClick()
  251. '>>> vList1 for LIST 1, vList2 for LIST 2
  252. If IsEmpty(vList2) Then Call allList(2)
  253. If ComboBox6.Value = vbNullString Then ComboBox6.List = vList2
  254. End Sub
  255.  
  256. '=============================================================================
  257.  
  258. '=============================================================================
  259.  
  260. '============== ComboBox7 ====================
  261. Private Sub ComboBox7_GotFocus()
  262.  
  263. Call setCombobox(ComboBox7)
  264. Call allList(2) '>>> 1 for LIST 1, 2 for LIST 2
  265.  
  266. End Sub
  267. Private Sub ComboBox7_LostFocus()
  268. Call setCombobox_A(ComboBox7)
  269. End Sub
  270. Private Sub ComboBox7_Change()
  271.  
  272. Call toFilter(ComboBox7, vList2) '>>> vList1 for LIST 1, vList2 for LIST 2
  273.  
  274. End Sub
  275.  
  276. Private Sub ComboBox7_DropButtonClick()
  277. '>>> vList1 for LIST 1, vList2 for LIST 2
  278. If IsEmpty(vList2) Then Call allList(2)
  279. ComboBox7.List = vList2
  280. End Sub
  281.  
  282. '=============================================================================
  283. '============== ComboBox8 ====================
  284. Private Sub ComboBox8_GotFocus()
  285.  
  286. Call setCombobox(ComboBox8)
  287. Call allList(2) '>>> 1 for LIST 1, 2 for LIST 2
  288.  
  289. End Sub
  290. Private Sub ComboBox8_LostFocus()
  291. Call setCombobox_A(ComboBox8)
  292. End Sub
  293. Private Sub ComboBox8_Change()
  294.  
  295. Call toFilter(ComboBox8, vList2) '>>> vList1 for LIST 1, vList2 for LIST 2
  296.  
  297. End Sub
  298.  
  299. Private Sub ComboBox8_DropButtonClick()
  300. '>>> vList1 for LIST 1, vList2 for LIST 2
  301. If IsEmpty(vList2) Then Call allList(2)
  302. ComboBox8.List = vList2
  303. End Sub
  304.  
  305. '=============================================================================
  306. '============== ComboBox9 ====================
  307. Private Sub ComboBox9_GotFocus()
  308.  
  309. Call setCombobox(ComboBox9)
  310. Call allList(2) '>>> 1 for LIST 1, 2 for LIST 2
  311.  
  312. End Sub
  313. Private Sub ComboBox9_LostFocus()
  314. Call setCombobox_A(ComboBox9)
  315. End Sub
  316. Private Sub ComboBox9_Change()
  317.  
  318. Call toFilter(ComboBox9, vList2) '>>> vList1 for LIST 1, vList2 for LIST 2
  319.  
  320. End Sub
  321.  
  322. Private Sub ComboBox9_DropButtonClick()
  323. '>>> vList1 for LIST 1, vList2 for LIST 2
  324. If IsEmpty(vList2) Then Call allList(2)
  325. ComboBox9.List = vList2
  326. End Sub
  327.  
  328. '=============================================================================
  329. '============== ComboBox10 ====================
  330. Private Sub ComboBox10_GotFocus()
  331.  
  332. Call setCombobox(ComboBox10)
  333. Call allList(2) '>>> 1 for LIST 1, 2 for LIST 2
  334.  
  335. End Sub
  336. Private Sub ComboBox10_LostFocus()
  337. Call setCombobox_A(ComboBox10)
  338. End Sub
  339. Private Sub ComboBox10_Change()
  340.  
  341. Call toFilter(ComboBox10, vList2) '>>> vList1 for LIST 1, vList2 for LIST 2
  342.  
  343. End Sub
  344.  
  345. Private Sub ComboBox10_DropButtonClick()
  346. '>>> vList1 for LIST 1, vList2 for LIST 2
  347. If IsEmpty(vList2) Then Call allList(2)
  348. ComboBox10.List = vList2
  349. End Sub
  350.  
  351.  
  352.  
  353. '=============================================================================
  354. 'pour réinitialiser la macro
  355. Private Sub CommandButton1_Click()
  356. Application.EnableEvents = True
  357. End Sub
  358.  
  359. 'fonction pour masquer les lignes en fonction du type choisi. Les lignes ont reçu des noms, pour que ajout lignes possible
  360. Private Sub Worksheet_Change(ByVal Target As Range)
  361. If Not Intersect(Target, Range("data1:data6")) Is Nothing Then
  362. Cells.EntireRow.Hidden = False
  363. Select Case Range("data1")
  364. Case "RECONNAISSANCE DE L'ÉTAT DU SOL (RES)"
  365. Range("E_RES_00,E_ED_00:E_TV_11,D_01:M_06,L_S_13").EntireRow.Hidden = True
  366. Case "ÉTUDE DÉTAILLÉE (ED)"
  367. Range("E_RES_00:E_ED_00,E_ER_00:E_TV_11,D_01:M_06,L_S_13").EntireRow.Hidden = True
  368. Case "ÉTUDE DE RISQUE (ER)"
  369. Range("E_RES_00:E_ER_00,E_RES_ED_ER_00:E_TV_11,D_01:M_06,L_S_13").EntireRow.Hidden = True
  370. Case "RECONNAISSANCE + ÉTUDE DÉTAILLÉE (RES-ED)"
  371. Range("E_RES_00,E_ED_00:E_TV_11,D_01:M_06,L_S_13").EntireRow.Hidden = True
  372. Case "ÉTUDE DÉTAILLÉE + ÉTUDE DE RISQUE (ED-ER)"
  373. Range("E_RES_00:E_ER_00,E_RES_ED_ER_00:E_TV_11,D_01:M_06,L_S_13").EntireRow.Hidden = True
  374. Case "RECONNAISSANCE + ÉTUDE DÉTAILLÉE + ÉTUDE DE RISQUE (RES-ED-ER)"
  375. Range("E_RES_00:E_RES_ED_ER_00,E_PA_PGR_00:E_TV_11,D_01:M_06,L_S_13").EntireRow.Hidden = True
  376. Case "PROJET DE GESTION DE RISQUE (PGR)"
  377. Range("E_RES_00:E_PA_PGR_00,E_PA_PGR_12:E_PA_PGR_17,E_SUIVI_00:E_TV_11,L_S_13").EntireRow.Hidden = True
  378. Case "PROJET DE GESTION DE RISQUE (PGR) + SUIVI"
  379. Range("E_RES_00:E_PA_PGR_00,E_SUIVI_00:E_TV_11,L_S_13").EntireRow.Hidden = True
  380. Case "PROJET D'ASSAINISSEMENT (PA)"
  381. Range("E_RES_00:E_PA_PGR_00,E_PA_PGR_12:E_PA_PGR_17,E_SUIVI_00:E_TV_11,L_S_13").EntireRow.Hidden = True
  382. Case "PROJET D'ASSAINISSEMENT (PA) + SUIVI"
  383. Range("E_RES_00:E_PA_PGR_00,E_SUIVI_00:E_TV_11,L_S_13").EntireRow.Hidden = True
  384. Case "SUIVI DES TRAVAUX (SUIVI)"
  385. Range("E_RES_00:E_SUIVI_00,E_TDL_00:E_TV_11,L_S_13").EntireRow.Hidden = True
  386. Case "TRAITEMENT DE DURÉE LIMITÉE (TDL) + SUIVI"
  387. Range("E_RES_00:E_TDL_00,E_GF_00:E_TV_11,T_FMan_05:T_FMan_06,T_FMan_10,T_FMec_01:T_FMec_15,T_Car_FMan_10,T_Car_FMec_01:T_Car_FMec_10,T_EchE_01:T_EchE_05,T_GEO_07:T_GEO_08,M_03:M_05,L_S_13:L_E_10").EntireRow.Hidden = True
  388. Case "ESTIMATION DU MONTANT DE GARANTIE FINANCIÈRE (GF)"
  389. Range("E_RES_00:E_GF_00,E_TV_00:E_TV_11,X_07:X_10").EntireRow.Hidden = True
  390. Case "RAPPORT TECHNIQUE BRUXELLOIS (RT)"
  391. Range("E_RES_00:E_TV_00,T_FMan_05:T_FMan_06,T_FMan_10,T_FMec_08:T_FMec_12,T_FMec_15,T_Car_FMan_10,T_Car_FMec_09,T_TechS_05:T_TechS_06,T_EchE_01:T_EchE_05,T_GEO_07:T_GEO_08,D_01:M_06,L_E_01:L_E_10").EntireRow.Hidden = True
  392. Case "TECHNISH VERSLAG (TV)"
  393. Range("E_RES_00:E_TV_00,T_FMan_05:T_FMan_06,T_FMan_10,T_FMec_08:T_FMec_12,T_FMec_15,T_Car_FMan_10,T_Car_FMec_09,T_TechS_05:T_TechS_06,T_EchE_01:T_EchE_05,T_GEO_07:T_GEO_08,D_01:M_06,L_E_01:L_E_10").EntireRow.Hidden = True
  394. End Select
  395.  
  396.  
  397. Select Case Range("data2")
  398. Case "POSTES STANDARD UNIQUEMENT"
  399. Range("T_FMan_09,T_FMan_10,T_TechS_02,T_TechS_03,T_TechS_05:T_TechS_07,T_GEO_09,T_GEO_12").EntireRow.Hidden = True
  400. End Select
  401.  
  402.  
  403. Select Case Range("data3")
  404. Case "SOL"
  405. Range("T_FMan_05,T_FMan_06,T_FMan_10,T_FMec_08:T_FMec_12,T_FMec_15,T_Car_FMan_10,T_Car_FMec_09,T_EchE_01:T_EchE_05,T_GEO_07,T_GEO_08,L_E_01:L_E_10").EntireRow.Hidden = True
  406. Case "EAU"
  407. Range("T_TechS_02:T_TechS_04,L_S_01:L_S_13").EntireRow.Hidden = True
  408. End Select
  409.  
  410. Select Case Range("data4")
  411. Case "MANUEL"
  412. Range("T_FMec_01:T_FMec_15,T_Car_FMec_01:T_Car_FMec_10").EntireRow.Hidden = True
  413. Case "MECANIQUE"
  414. Range("T_FMan_01:T_FMan_10,T_Car_FMan_01:T_Car_FMan_11").EntireRow.Hidden = True
  415. End Select
  416.  
  417. Select Case Range("data5")
  418. Case "SANS TRAVAUX DE TERRAIN"
  419. Range("X_07:X_10").EntireRow.Hidden = True
  420. Case "AVEC TRAVAUX DE TERRAIN POUR ER (juste nivellement/perméa)"
  421. Range("T_FMan_01:T_GEO_01,T_GEO_05,T_GEO_09:T_GEO_10,T_GEO_12:T_GEO_13,D_01:X_10").EntireRow.Hidden = True
  422. End Select
  423. 'masque de la ligne des sélections d'étude en FR-NL selon choix de la langue
  424. Select Case Range("data6")
  425. Case "FR"
  426. Range("X_02,X_04").EntireRow.Hidden = True
  427. Case "NL"
  428. Range("X_01,X_03").EntireRow.Hidden = True
  429. End Select
  430.  
  431. End If
  432.  
  433.  
  434.  
  435. 'menu dropdown list bilingues. Les cellules avec dropdown ont reçues des noms (dataX). Attention cohérence noms dans les listes (ray etc.) et les 'Case'
  436. Dim ray As Variant, n As Long, ac As Long, Txt As String, nStr As String
  437. Application.EnableEvents = False
  438. ReDim ray(1 To 4, 1 To 2)
  439. ReDim nray(1 To 8, 1 To 2)
  440. If Target.Address = Range("data6").Address Then
  441. ray(1, 1) = "Commande des études de sol antérieures (étude)"
  442. ray(1, 2) = "Bestelling eerdere bodemonderzoeken (studie)"
  443. ray(2, 1) = "Bestelling eerdere bodemonderzoeken (studie)"
  444. ray(2, 2) = "Commande des études de sol antérieures (étude)"
  445. ray(3, 1) = "Commande des études de sol antérieures (dossier)"
  446. ray(3, 2) = "Bestelling eerdere bodemonderzoeken (dossier)"
  447. ray(4, 1) = "Bestelling eerdere bodemonderzoeken (dossier)"
  448. ray(4, 2) = "Commande des études de sol antérieures (dossier)"
  449.  
  450. Txt = Range("data7").Value
  451. For n = 1 To UBound(ray, 1)
  452. If ray(n, 1) = Txt Then
  453. Txt = ray(n, 2)
  454. Exit For
  455. End If
  456. Next n
  457. Select Case Target.Value
  458. Case "FR": nStr = "Sélectionner étude de sol antérieure (étude vs. dossier),Commande des études de sol antérieures (étude),Commande des études de sol antérieures (dossier)"
  459. Case "NL": nStr = "Sélectionner étude de sol antérieure (étude vs. dossier),Bestelling eerdere bodemonderzoeken (dossier),Bestelling eerdere bodemonderzoeken (studie)"
  460. End Select
  461.  
  462. With Range("data7").Validation
  463. .Delete
  464. .Add Type:=xlValidateList, Formula1:=nStr
  465. End With
  466.  
  467. Range("data7").Value = Txt
  468.  
  469. nray(1, 1) = "Mobilisation carotteuse (< ou = 6 carottages)"
  470. nray(1, 2) = "Mobilisatie kernboormachine (< of = 6 boringen)"
  471. nray(2, 1) = "Mobilisatie kernboormachine (< of = 6 boringen)"
  472. nray(2, 2) = "Mobilisation carotteuse (< ou = 6 carottages)"
  473. nray(3, 1) = "Mobilisation carotteuse (> 6 carottages)"
  474. nray(3, 2) = "Mobilisatie kernboormachine (> 6 boringen)"
  475. nray(4, 1) = "Mobilisatie kernboormachine (> 6 boringen)"
  476. nray(4, 2) = "Mobilisation carotteuse (> 6 carottages)"
  477. nray(5, 1) = "Mobilisation carotteuse (> 15 carottages)"
  478. nray(5, 2) = "Mobilisatie kernboormachine (> 15 boringen)"
  479. nray(6, 1) = "Mobilisatie kernboormachine (> 15 boringen)"
  480. nray(6, 2) = "Mobilisation carotteuse (> 15 carottages)"
  481. nray(7, 1) = "Mobilisation carotteuse (> 20 carottages)"
  482. nray(7, 2) = "Mobilisatie kernboormachine (> 20 boringen)"
  483. nray(8, 1) = "Mobilisatie kernboormachine (> 20 boringen)"
  484. nray(8, 2) = "Mobilisation carotteuse (> 20 carottages)"
  485.  
  486.  
  487. Txt = Range("data8").Value
  488.  
  489. For n = 1 To UBound(nray, 1)
  490. If nray(n, 1) = Txt Then
  491. Txt = nray(n, 2)
  492. Exit For
  493. End If
  494. Next n
  495. Select Case Target
  496. Case "FR": nStr = "Sélectionner carottage,Mobilisation carotteuse (< ou = 6 carottages),Mobilisation carotteuse (> 6 carottages),Mobilisation carotteuse (> 15 carottages),Mobilisation carotteuse (> 20 carottages)"
  497. Case "NL": nStr = "Sélectionner carottage,Mobilisatie kernboormachine (< of = 6 boringen),Mobilisatie kernboormachine (> 6 boringen),Mobilisatie kernboormachine (> 15 boringen),Mobilisatie kernboormachine (> 20 boringen)"
  498. End Select
  499.  
  500. With Range("data8").Validation
  501. .Delete
  502. .Add Type:=xlValidateList, Formula1:=nStr
  503. End With
  504.  
  505. Range("data8").Value = Txt
  506.  
  507. End If
  508. Application.EnableEvents = True
  509.  
  510.  
  511. End Sub
  512.  
  513.  
  514. Sub toLinkCell()
  515. ComboBox1.LinkedCell = "Y261"
  516. ComboBox2.LinkedCell = "Y262"
  517. ComboBox3.LinkedCell = "Y263"
  518. ComboBox4.LinkedCell = "Y264"
  519. ComboBox5.LinkedCell = "Y265"
  520. ComboBox6.LinkedCell = "Y274"
  521. ComboBox7.LinkedCell = "Y275"
  522. ComboBox8.LinkedCell = "Y276"
  523. ComboBox9.LinkedCell = "Y277"
  524. ComboBox10.LinkedCell = "Y278"
  525.  
  526. 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!