1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
| Private Sub CommandButton1_Click()
Set WS = ActiveWorkbook.Sheets("COMPASS Extraction")
LR = WS.Range("A950000").End(xlUp).Row
WS.Cells(LR + 1, 1).Value = Label30.Caption 'column A'
WS.Cells(LR + 1, 5).Value = ComboBox2.Value 'column E'
WS.Cells(LR + 1, 8).Value = ComboBox3.Value
WS.Cells(LR + 1, 10).Value = ComboBox5.Value 'column J'
WS.Cells(LR + 1, 7).Value = ComboBox6.Value 'column G'
WS.Cells(LR + 1, 4).Value = ComboBox1.Value 'column D'
WS.Cells(LR + 1, 9).Value = ComboBox4.Value 'column I'
WS.Cells(LR + 1, 2).Value = Label16.Caption 'column B'
WS.Cells(LR + 1, 11).Value = TextBox1.Text 'column K'
WS.Cells(LR + 2, 1).Value = Label30.Caption 'column A'
WS.Cells(LR + 2, 5).Value = ComboBox2.Value 'column E'
WS.Cells(LR + 2, 8).Value = ComboBox3.Value
WS.Cells(LR + 2, 10).Value = ComboBox5.Value 'column J'
WS.Cells(LR + 2, 7).Value = ComboBox6.Value 'column G'
WS.Cells(LR + 2, 4).Value = ComboBox1.Value 'column D'
WS.Cells(LR + 2, 9).Value = ComboBox4.Value 'column I'
WS.Cells(LR + 2, 2).Value = Label17.Caption 'column B'
WS.Cells(LR + 2, 11).Value = TextBox2.Text 'column K'
WS.Cells(LR + 3, 1).Value = Label30.Caption 'column A'
WS.Cells(LR + 3, 5).Value = ComboBox2.Value 'column E'
WS.Cells(LR + 3, 8).Value = ComboBox3.Value
WS.Cells(LR + 3, 10).Value = ComboBox5.Value 'column J'
WS.Cells(LR + 3, 7).Value = ComboBox6.Value 'column G'
WS.Cells(LR + 3, 4).Value = ComboBox1.Value 'column D'
WS.Cells(LR + 3, 9).Value = ComboBox4.Value 'column I'
WS.Cells(LR + 3, 2).Value = Label18.Caption 'column B'
WS.Cells(LR + 3, 11).Value = TextBox3.Text 'column K'
WS.Cells(LR + 4, 1).Value = Label30.Caption 'column A'
WS.Cells(LR + 4, 5).Value = ComboBox2.Value 'column E'
WS.Cells(LR + 4, 8).Value = ComboBox3.Value
WS.Cells(LR + 4, 10).Value = ComboBox5.Value 'column J'
WS.Cells(LR + 4, 7).Value = ComboBox6.Value 'column G'
WS.Cells(LR + 4, 4).Value = ComboBox1.Value 'column D'
WS.Cells(LR + 4, 9).Value = ComboBox4.Value 'column I'
WS.Cells(LR + 4, 2).Value = Label19.Caption 'column B'
WS.Cells(LR + 4, 11).Value = TextBox4.Text 'column K'
WS.Cells(LR + 5, 1).Value = Label30.Caption 'column A'
WS.Cells(LR + 5, 5).Value = ComboBox2.Value 'column E'
WS.Cells(LR + 5, 8).Value = ComboBox3.Value
WS.Cells(LR + 5, 10).Value = ComboBox5.Value 'column J'
WS.Cells(LR + 5, 7).Value = ComboBox6.Value 'column G'
WS.Cells(LR + 5, 4).Value = ComboBox1.Value 'column D'
WS.Cells(LR + 5, 9).Value = ComboBox4.Value 'column I'
WS.Cells(LR + 5, 2).Value = Label20.Caption 'column B'
WS.Cells(LR + 5, 11).Value = TextBox5.Text 'column K'
WS.Cells(LR + 6, 1).Value = Label30.Caption 'column A'
WS.Cells(LR + 6, 5).Value = ComboBox2.Value 'column E'
WS.Cells(LR + 6, 8).Value = ComboBox3.Value
WS.Cells(LR + 6, 10).Value = ComboBox5.Value 'column J'
WS.Cells(LR + 6, 7).Value = ComboBox6.Value 'column G'
WS.Cells(LR + 6, 4).Value = ComboBox1.Value 'column D'
WS.Cells(LR + 6, 9).Value = ComboBox4.Value 'column I'
WS.Cells(LR + 6, 2).Value = Label21.Caption 'column B'
WS.Cells(LR + 6, 11).Value = TextBox6.Text 'column K'
WS.Cells(LR + 7, 1).Value = Label30.Caption 'column A'
WS.Cells(LR + 7, 5).Value = ComboBox2.Value 'column E'
WS.Cells(LR + 7, 8).Value = ComboBox3.Value
WS.Cells(LR + 7, 10).Value = ComboBox5.Value 'column J'
WS.Cells(LR + 7, 7).Value = ComboBox6.Value 'column G'
WS.Cells(LR + 7, 4).Value = ComboBox1.Value 'column D'
WS.Cells(LR + 7, 9).Value = ComboBox4.Value 'column I'
WS.Cells(LR + 7, 2).Value = Label22.Caption 'column B'
WS.Cells(LR + 7, 11).Value = TextBox7.Text 'column K'
WS.Cells(LR + 8, 1).Value = Label30.Caption 'column A'
WS.Cells(LR + 8, 5).Value = ComboBox2.Value 'column E'
WS.Cells(LR + 8, 8).Value = ComboBox3.Value
WS.Cells(LR + 8, 10).Value = ComboBox5.Value 'column J'
WS.Cells(LR + 8, 7).Value = ComboBox6.Value 'column G'
WS.Cells(LR + 8, 4).Value = ComboBox1.Value 'column D'
WS.Cells(LR + 8, 9).Value = ComboBox4.Value 'column I'
WS.Cells(LR + 8, 2).Value = Label23.Caption 'column B'
WS.Cells(LR + 8, 11).Value = TextBox8.Text 'column K'
WS.Cells(LR + 9, 1).Value = Label30.Caption 'column A'
WS.Cells(LR + 9, 5).Value = ComboBox2.Value 'column E'
WS.Cells(LR + 9, 8).Value = ComboBox3.Value
WS.Cells(LR + 9, 10).Value = ComboBox5.Value 'column J'
WS.Cells(LR + 9, 7).Value = ComboBox6.Value 'column G'
WS.Cells(LR + 9, 4).Value = ComboBox1.Value 'column D'
WS.Cells(LR + 9, 9).Value = ComboBox4.Value 'column I'
WS.Cells(LR + 9, 2).Value = Label24.Caption 'column B'
WS.Cells(LR + 9, 11).Value = TextBox9.Text 'column K'
WS.Cells(LR + 10, 1).Value = Label30.Caption 'column A'
WS.Cells(LR + 10, 5).Value = ComboBox2.Value 'column E'
WS.Cells(LR + 10, 8).Value = ComboBox3.Value
WS.Cells(LR + 10, 10).Value = ComboBox5.Value 'column J'
WS.Cells(LR + 10, 7).Value = ComboBox6.Value 'column G'
WS.Cells(LR + 10, 4).Value = ComboBox1.Value 'column D'
WS.Cells(LR + 10, 9).Value = ComboBox4.Value 'column I'
WS.Cells(LR + 10, 2).Value = Label25.Caption 'column B'
WS.Cells(LR + 10, 11).Value = TextBox10.Text 'column K'
WS.Cells(LR + 11, 1).Value = Label30.Caption 'column A'
WS.Cells(LR + 11, 5).Value = ComboBox2.Value 'column E'
WS.Cells(LR + 11, 8).Value = ComboBox3.Value
WS.Cells(LR + 11, 10).Value = ComboBox5.Value 'column J'
WS.Cells(LR + 11, 7).Value = ComboBox6.Value 'column G'
WS.Cells(LR + 11, 4).Value = ComboBox1.Value 'column D'
WS.Cells(LR + 11, 9).Value = ComboBox4.Value 'column I'
WS.Cells(LR + 11, 2).Value = Label26.Caption 'column B'
WS.Cells(LR + 11, 11).Value = TextBox11.Text 'column K'
WS.Cells(LR + 12, 1).Value = Label30.Caption 'column A'
WS.Cells(LR + 12, 5).Value = ComboBox2.Value 'column E'
WS.Cells(LR + 12, 8).Value = ComboBox3.Value
WS.Cells(LR + 12, 10).Value = ComboBox5.Value 'column J'
WS.Cells(LR + 12, 7).Value = ComboBox6.Value 'column G'
WS.Cells(LR + 12, 4).Value = ComboBox1.Value 'column D'
WS.Cells(LR + 12, 9).Value = ComboBox4.Value 'column I'
WS.Cells(LR + 12, 2).Value = Label27.Caption 'column B'
WS.Cells(LR + 12, 11).Value = TextBox12.Text 'column K'
WS.Cells(LR + 13, 1).Value = Label31.Caption 'column A'
WS.Cells(LR + 13, 5).Value = ComboBox2.Value 'column E'
WS.Cells(LR + 13, 8).Value = ComboBox3.Value
WS.Cells(LR + 13, 10).Value = ComboBox5.Value 'column J'
WS.Cells(LR + 13, 7).Value = ComboBox6.Value 'column G'
WS.Cells(LR + 13, 4).Value = ComboBox1.Value 'column D'
WS.Cells(LR + 13, 9).Value = ComboBox4.Value 'column I'
WS.Cells(LR + 13, 2).Value = Label16.Caption 'column B'
WS.Cells(LR + 13, 11).Value = TextBox13.Text 'column K'
WS.Cells(LR + 14, 1).Value = Label31.Caption 'column A'
WS.Cells(LR + 14, 5).Value = ComboBox2.Value 'column E'
WS.Cells(LR + 14, 8).Value = ComboBox3.Value
WS.Cells(LR + 14, 10).Value = ComboBox5.Value 'column J'
WS.Cells(LR + 14, 7).Value = ComboBox6.Value 'column G'
WS.Cells(LR + 14, 4).Value = ComboBox1.Value 'column D'
WS.Cells(LR + 14, 9).Value = ComboBox4.Value 'column I'
WS.Cells(LR + 14, 2).Value = Label17.Caption 'column B'
WS.Cells(LR + 14, 11).Value = TextBox14.Text 'column K'
WS.Cells(LR + 15, 1).Value = Label31.Caption 'column A'
WS.Cells(LR + 15, 5).Value = ComboBox2.Value 'column E'
WS.Cells(LR + 15, 8).Value = ComboBox3.Value
WS.Cells(LR + 15, 10).Value = ComboBox5.Value 'column J'
WS.Cells(LR + 15, 7).Value = ComboBox6.Value 'column G'
WS.Cells(LR + 15, 4).Value = ComboBox1.Value 'column D'
WS.Cells(LR + 15, 9).Value = ComboBox4.Value 'column I'
WS.Cells(LR + 15, 2).Value = Label18.Caption 'column B'
WS.Cells(LR + 15, 11).Value = TextBox15.Text 'column K'
WS.Cells(LR + 16, 1).Value = Label31.Caption 'column A'
WS.Cells(LR + 16, 5).Value = ComboBox2.Value 'column E'
WS.Cells(LR + 16, 8).Value = ComboBox3.Value
WS.Cells(LR + 16, 10).Value = ComboBox5.Value 'column J'
WS.Cells(LR + 16, 7).Value = ComboBox6.Value 'column G'
WS.Cells(LR + 16, 4).Value = ComboBox1.Value 'column D'
WS.Cells(LR + 16, 9).Value = ComboBox4.Value 'column I'
WS.Cells(LR + 16, 2).Value = Label19.Caption 'column B'
WS.Cells(LR + 16, 11).Value = TextBox16.Text 'column K'
WS.Cells(LR + 17, 1).Value = Label31.Caption 'column A'
WS.Cells(LR + 17, 5).Value = ComboBox2.Value 'column E'
WS.Cells(LR + 17, 8).Value = ComboBox3.Value
WS.Cells(LR + 17, 10).Value = ComboBox5.Value 'column J'
WS.Cells(LR + 17, 7).Value = ComboBox6.Value 'column G'
WS.Cells(LR + 17, 4).Value = ComboBox1.Value 'column D'
WS.Cells(LR + 17, 9).Value = ComboBox4.Value 'column I'
WS.Cells(LR + 17, 2).Value = Label20.Caption 'column B'
WS.Cells(LR + 17, 11).Value = TextBox17.Text 'column K'
WS.Cells(LR + 18, 1).Value = Label31.Caption 'column A'
WS.Cells(LR + 18, 5).Value = ComboBox2.Value 'column E'
WS.Cells(LR + 18, 8).Value = ComboBox3.Value
WS.Cells(LR + 18, 10).Value = ComboBox5.Value 'column J'
WS.Cells(LR + 18, 7).Value = ComboBox6.Value 'column G'
WS.Cells(LR + 18, 4).Value = ComboBox1.Value 'column D'
WS.Cells(LR + 18, 9).Value = ComboBox4.Value 'column I'
WS.Cells(LR + 18, 2).Value = Label21.Caption 'column B'
WS.Cells(LR + 18, 11).Value = TextBox18.Text 'column K'
WS.Cells(LR + 19, 1).Value = Label31.Caption 'column A'
WS.Cells(LR + 19, 5).Value = ComboBox2.Value 'column E'
WS.Cells(LR + 19, 8).Value = ComboBox3.Value
WS.Cells(LR + 19, 10).Value = ComboBox5.Value 'column J'
WS.Cells(LR + 19, 7).Value = ComboBox6.Value 'column G'
WS.Cells(LR + 19, 4).Value = ComboBox1.Value 'column D'
WS.Cells(LR + 19, 9).Value = ComboBox4.Value 'column I'
WS.Cells(LR + 19, 2).Value = Label22.Caption 'column B'
WS.Cells(LR + 19, 11).Value = TextBox19.Text 'column K'
WS.Cells(LR + 20, 1).Value = Label31.Caption 'column A'
WS.Cells(LR + 20, 5).Value = ComboBox2.Value 'column E'
WS.Cells(LR + 20, 8).Value = ComboBox3.Value
WS.Cells(LR + 20, 10).Value = ComboBox5.Value 'column J'
WS.Cells(LR + 20, 7).Value = ComboBox6.Value 'column G'
WS.Cells(LR + 20, 4).Value = ComboBox1.Value 'column D'
WS.Cells(LR + 20, 9).Value = ComboBox4.Value 'column I'
WS.Cells(LR + 20, 2).Value = Label23.Caption 'column B'
WS.Cells(LR + 20, 11).Value = TextBox20.Text 'column K'
WS.Cells(LR + 21, 1).Value = Label31.Caption 'column A'
WS.Cells(LR + 21, 5).Value = ComboBox2.Value 'column E'
WS.Cells(LR + 21, 8).Value = ComboBox3.Value
WS.Cells(LR + 21, 10).Value = ComboBox5.Value 'column J'
WS.Cells(LR + 21, 7).Value = ComboBox6.Value 'column G'
WS.Cells(LR + 21, 4).Value = ComboBox1.Value 'column D'
WS.Cells(LR + 21, 9).Value = ComboBox4.Value 'column I'
WS.Cells(LR + 21, 2).Value = Label24.Caption 'column B'
WS.Cells(LR + 21, 11).Value = TextBox21.Text 'column K'
WS.Cells(LR + 22, 1).Value = Label31.Caption 'column A'
WS.Cells(LR + 22, 5).Value = ComboBox2.Value 'column E'
WS.Cells(LR + 22, 8).Value = ComboBox3.Value
WS.Cells(LR + 22, 10).Value = ComboBox5.Value 'column J'
WS.Cells(LR + 22, 7).Value = ComboBox6.Value 'column G'
WS.Cells(LR + 22, 4).Value = ComboBox1.Value 'column D'
WS.Cells(LR + 22, 9).Value = ComboBox4.Value 'column I'
WS.Cells(LR + 22, 2).Value = Label25.Caption 'column B'
WS.Cells(LR + 22, 11).Value = TextBox22.Text 'column K'
WS.Cells(LR + 23, 1).Value = Label31.Caption 'column A'
WS.Cells(LR + 23, 5).Value = ComboBox2.Value 'column E'
WS.Cells(LR + 23, 8).Value = ComboBox3.Value
WS.Cells(LR + 23, 10).Value = ComboBox5.Value 'column J'
WS.Cells(LR + 23, 7).Value = ComboBox6.Value 'column G'
WS.Cells(LR + 23, 4).Value = ComboBox1.Value 'column D'
WS.Cells(LR + 23, 9).Value = ComboBox4.Value 'column I'
WS.Cells(LR + 23, 2).Value = Label26.Caption 'column B'
WS.Cells(LR + 23, 11).Value = TextBox23.Text 'column K'
WS.Cells(LR + 24, 1).Value = Label31.Caption 'column A'
WS.Cells(LR + 24, 5).Value = ComboBox2.Value 'column E'
WS.Cells(LR + 24, 8).Value = ComboBox3.Value
WS.Cells(LR + 24, 10).Value = ComboBox5.Value 'column J'
WS.Cells(LR + 24, 7).Value = ComboBox6.Value 'column G'
WS.Cells(LR + 24, 4).Value = ComboBox1.Value 'column D'
WS.Cells(LR + 24, 9).Value = ComboBox4.Value 'column I'
WS.Cells(LR + 24, 2).Value = Label27.Caption 'column B'
WS.Cells(LR + 24, 11).Value = TextBox24.Text 'column K'
WS.Cells(LR + 25, 1).Value = Label32.Caption 'column A'
WS.Cells(LR + 25, 5).Value = ComboBox2.Value 'column E'
WS.Cells(LR + 25, 8).Value = ComboBox3.Value
WS.Cells(LR + 25, 10).Value = ComboBox5.Value 'column J'
WS.Cells(LR + 25, 7).Value = ComboBox6.Value 'column G'
WS.Cells(LR + 25, 4).Value = ComboBox1.Value 'column D'
WS.Cells(LR + 25, 9).Value = ComboBox4.Value 'column I'
WS.Cells(LR + 25, 2).Value = Label16.Caption 'column B'
WS.Cells(LR + 25, 11).Value = TextBox25.Text 'column K'
WS.Cells(LR + 26, 1).Value = Label32.Caption 'column A'
WS.Cells(LR + 26, 5).Value = ComboBox2.Value 'column E'
WS.Cells(LR + 26, 8).Value = ComboBox3.Value
WS.Cells(LR + 26, 10).Value = ComboBox5.Value 'column J'
WS.Cells(LR + 26, 7).Value = ComboBox6.Value 'column G'
WS.Cells(LR + 26, 4).Value = ComboBox1.Value 'column D'
WS.Cells(LR + 26, 9).Value = ComboBox4.Value 'column I'
WS.Cells(LR + 26, 2).Value = Label17.Caption 'column B'
WS.Cells(LR + 26, 11).Value = TextBox26.Text 'column K'
WS.Cells(LR + 27, 1).Value = Label32.Caption 'column A'
WS.Cells(LR + 27, 5).Value = ComboBox2.Value 'column E'
WS.Cells(LR + 27, 8).Value = ComboBox3.Value
WS.Cells(LR + 27, 10).Value = ComboBox5.Value 'column J'
WS.Cells(LR + 27, 7).Value = ComboBox6.Value 'column G'
WS.Cells(LR + 27, 4).Value = ComboBox1.Value 'column D'
WS.Cells(LR + 27, 9).Value = ComboBox4.Value 'column I'
WS.Cells(LR + 27, 2).Value = Label18.Caption 'column B'
WS.Cells(LR + 27, 11).Value = TextBox27.Text 'column K'
WS.Cells(LR + 28, 1).Value = Label32.Caption 'column A'
WS.Cells(LR + 28, 5).Value = ComboBox2.Value 'column E'
WS.Cells(LR + 28, 8).Value = ComboBox3.Value
WS.Cells(LR + 28, 10).Value = ComboBox5.Value 'column J'
WS.Cells(LR + 28, 7).Value = ComboBox6.Value 'column G'
WS.Cells(LR + 28, 4).Value = ComboBox1.Value 'column D'
WS.Cells(LR + 28, 9).Value = ComboBox4.Value 'column I'
WS.Cells(LR + 28, 2).Value = Label19.Caption 'column B'
WS.Cells(LR + 28, 11).Value = TextBox28.Text 'column K'
WS.Cells(LR + 29, 1).Value = Label32.Caption 'column A'
WS.Cells(LR + 29, 5).Value = ComboBox2.Value 'column E'
WS.Cells(LR + 29, 8).Value = ComboBox3.Value
WS.Cells(LR + 29, 10).Value = ComboBox5.Value 'column J'
WS.Cells(LR + 29, 7).Value = ComboBox6.Value 'column G'
WS.Cells(LR + 29, 4).Value = ComboBox1.Value 'column D'
WS.Cells(LR + 29, 9).Value = ComboBox4.Value 'column I'
WS.Cells(LR + 29, 2).Value = Label20.Caption 'column B'
WS.Cells(LR + 29, 11).Value = TextBox29.Text 'column K'
WS.Cells(LR + 30, 1).Value = Label32.Caption 'column A'
WS.Cells(LR + 30, 5).Value = ComboBox2.Value 'column E'
WS.Cells(LR + 30, 8).Value = ComboBox3.Value
WS.Cells(LR + 30, 10).Value = ComboBox5.Value 'column J'
WS.Cells(LR + 30, 7).Value = ComboBox6.Value 'column G'
WS.Cells(LR + 30, 4).Value = ComboBox1.Value 'column D'
WS.Cells(LR + 30, 9).Value = ComboBox4.Value 'column I'
WS.Cells(LR + 30, 2).Value = Label21.Caption 'column B'
WS.Cells(LR + 30, 11).Value = TextBox30.Text 'column K'
WS.Cells(LR + 31, 1).Value = Label32.Caption 'column A'
WS.Cells(LR + 31, 5).Value = ComboBox2.Value 'column E'
WS.Cells(LR + 31, 8).Value = ComboBox3.Value
WS.Cells(LR + 31, 10).Value = ComboBox5.Value 'column J'
WS.Cells(LR + 31, 7).Value = ComboBox6.Value 'column G'
WS.Cells(LR + 31, 4).Value = ComboBox1.Value 'column D'
WS.Cells(LR + 31, 9).Value = ComboBox4.Value 'column I'
WS.Cells(LR + 31, 2).Value = Label22.Caption 'column B'
WS.Cells(LR + 31, 11).Value = TextBox31.Text 'column K'
WS.Cells(LR + 32, 1).Value = Label32.Caption 'column A'
WS.Cells(LR + 32, 5).Value = ComboBox2.Value 'column E'
WS.Cells(LR + 32, 8).Value = ComboBox3.Value
WS.Cells(LR + 32, 10).Value = ComboBox5.Value 'column J'
WS.Cells(LR + 32, 7).Value = ComboBox6.Value 'column G'
WS.Cells(LR + 32, 4).Value = ComboBox1.Value 'column D'
WS.Cells(LR + 32, 9).Value = ComboBox4.Value 'column I'
WS.Cells(LR + 32, 2).Value = Label23.Caption 'column B'
WS.Cells(LR + 32, 11).Value = TextBox32.Text 'column K'
WS.Cells(LR + 33, 1).Value = Label32.Caption 'column A'
WS.Cells(LR + 33, 5).Value = ComboBox2.Value 'column E'
WS.Cells(LR + 33, 8).Value = ComboBox3.Value
WS.Cells(LR + 33, 10).Value = ComboBox5.Value 'column J'
WS.Cells(LR + 33, 7).Value = ComboBox6.Value 'column G'
WS.Cells(LR + 33, 4).Value = ComboBox1.Value 'column D'
WS.Cells(LR + 33, 9).Value = ComboBox4.Value 'column I'
WS.Cells(LR + 33, 2).Value = Label24.Caption 'column B'
WS.Cells(LR + 33, 11).Value = TextBox33.Text 'column K'
WS.Cells(LR + 34, 1).Value = Label32.Caption 'column A'
WS.Cells(LR + 34, 5).Value = ComboBox2.Value 'column E'
WS.Cells(LR + 34, 8).Value = ComboBox3.Value
WS.Cells(LR + 34, 10).Value = ComboBox5.Value 'column J'
WS.Cells(LR + 34, 7).Value = ComboBox6.Value 'column G'
WS.Cells(LR + 34, 4).Value = ComboBox1.Value 'column D'
WS.Cells(LR + 34, 9).Value = ComboBox4.Value 'column I'
WS.Cells(LR + 34, 2).Value = Label25.Caption 'column B'
WS.Cells(LR + 34, 11).Value = TextBox34.Text 'column K' |
Userform procedure too large
Répondre avec citation
Partager