Just Testing. Tests of passing codes between Forums and Word

Tests Related to these posts:
http://www.excelfox.com/forum/showth...ll=1#post10131

Code:

---

Option Explicit
' Some tests of passing codes between Forums and Word

---

Hello raghuprabhu
Welcome to excelfox

I do not fully understand your question.

For example you say … When I select an item in the form from the dropdown list …. ??
?? - I do not see any drop down list in your file.

For now I will just give you some ideas that may help you to go further yourself.

If you then still need some help, then I think you will need to explain a bit better exactly what you want.

If you or nobody else can help solve your problem, then I can take another look for you tomorrow:
I only have a little time now to give you some ideas… if no one else helps, and you still need help tomorrow, then please give more information about what you want, so that I can help further tomorrow

---

This is the test range that you have given: ( I have also enclosed your CurrentRegion
as given, for example by Range("A1").CurrentRegion )

_____ Workbook: Lists.xlsm ( Using Excel 2007 32 bit )

Row\Col	A	B	C	D	E
1	Group	Item Col A	Item Col B
2	1	ItemG11	ItemG11
3	1	ItemG12	ItemG12
4	1	ItemG13	ItemG13
5	1	ItemG14	ItemG14
6	1	ItemG15
7	1	ItemG16
8	1	ItemG17
9	1	ItemG18
10	1	ItemG19
11	2	ItemG21	ItemG21
12	2	ItemG22	ItemG22
13	2	ItemG23	ItemG23
14	2	ItemG24	ItemG24
15	2	ItemG25
16	2	ItemG26
17	2	ItemG27
18	2	ItemG28
19	2	ItemG29
20	3	ItemG31	ItemG31
21	3	ItemG32	ItemG32
22	3	ItemG33	ItemG33
23	3	ItemG34	ItemG34
24	3	ItemG35
25	3	ItemG36
26	3	ItemG37
27	3	ItemG38
28
29

Worksheet: Sheet2

You wish to somehow get this sort of output , based on the above test data:
_____ Workbook: Lists.xlsm ( Using Excel 2007 32 bit )

Row\Col	A	B	C
1	Name	Item	Comments
2	Raghu	ItemG11
3	Vim	ItemG16	Instead of ItemG16 use ItemG11
4	Abhi	ItemG21
5	Bhanu	ItemG25	Instead of ItemG25 use ItemG21
6	John	ItemG34
7	Vicky	ItemG35	Instead of ItemG35 use ItemG31

Worksheet: Sheet1

This is your explanation so far…._
_............... In sheet2 of the attached file, I have in column1 have group, column2 has items, column3 also has the same items, some of them missing.

When I select an item in the form from the dropdown list, I want the comment to be populated as shown. If the item selected from column2 is from group1 and is not in column3 then I want the comments column to be as shown.

In the next post I will give you some ideas….




https://wordtohtml.net/

https://www.youtube.com/channel/UCnxwq2aGJRbjOo_MO54oaHA
https://www.youtube.com/watch?v=nVy4GAtkh7Q&lc=UgxJGNhWFZh2p5mK0XB4AaABAg. 9bbxud383FI9c-vOQApTgb
https://www.youtube.com/watch?v=nVy4GAtkh7Q&lc=UgxJGNhWFZh2p5mK0XB4AaABAg. 9bbxud383FI9c-vbihZ-7W
https://www.youtube.com/watch?v=nVy4GAtkh7Q&lc=UgxJGNhWFZh2p5mK0XB4AaABAg. 9bbxud383FI9c-vfmpSO0F
https://www.youtube.com/watch?v=nVy4GAtkh7Q&lc=UgxJGNhWFZh2p5mK0XB4AaABAg. 9bbxud383FI9c-vjfTJ7lX
https://www.youtube.com/watch?v=nVy4GAtkh7Q&lc=UgxJGNhWFZh2p5mK0XB4AaABAg. 9bbxud383FI9c-vmq-LHHz
https://www.youtube.com/watch?v=nVy4GAtkh7Q&lc=UgxJGNhWFZh2p5mK0XB4AaABAg. 9bbxud383FI9c-vst3j_7i
https://www.youtube.com/watch?v=nVy4GAtkh7Q&lc=UgxJGNhWFZh2p5mK0XB4AaABAg. 9bbxud383FI9bwBqjIR5Nj
https://www.youtube.com/watch?v=nVy4GAtkh7Q&lc=UgxJGNhWFZh2p5mK0XB4AaABAg. 9bbxud383FI9bwBw8El0r5
https://www.youtube.com/watch?v=nVy4GAtkh7Q&lc=UgxJGNhWFZh2p5mK0XB4AaABAg. 9bbxud383FI9bwC63GbRuM
https://www.youtube.com/watch?v=nVy4GAtkh7Q&lc=UgxJGNhWFZh2p5mK0XB4AaABAg. 9bbxud383FI9bwC9fyKZdo
https://www.youtube.com/watch?v=nVy4GAtkh7Q&lc=UgxJGNhWFZh2p5mK0XB4AaABAg. 9bbxud383FI9bwCEn8DBQe
https://www.youtube.com/watch?v=nVy4GAtkh7Q&lc=UgxJGNhWFZh2p5mK0XB4AaABAg. 9bbxud383FI9bw0Bey8gQO
https://www.youtube.com/channel/UCnxwq2aGJRbjOo_MO54oaHA

test askjhfaskjhaskjhfkjashfkjhsfkjhafkjhaskjfjaskfh

ASLJJSA


ASFJSAKHASHF


AKHASKJFH

These are just some ideas to get you started.

I will give you a routine which will give you an array, arrOut() , like this

Code:

---

Group        Deafault item
1                ItemG11
2                ItemG21
3                ItemG31

---

The routine is here:
http://www.excelfox.com/forum/showth...ll=1#post11094

Routine brief description

Rem 1
I get the current data region to which includes the first cell in worksheet "Sheet2"

Rem 2
I make an array, arrDtaIn() , of the data

Group	Item Col A	Item Col B
1	ItemG11	ItemG11
1	ItemG12	ItemG12
1	ItemG13	ItemG13
1	ItemG14	ItemG14
1	ItemG15
1	ItemG16
1	ItemG17
1	ItemG18
1	ItemG19
2	ItemG21	ItemG21
2	ItemG22	ItemG22
2	ItemG23	ItemG23
2	ItemG24	ItemG24
2	ItemG25
2	ItemG26
2	ItemG27
2	ItemG28
2	ItemG29
3	ItemG31	ItemG31
3	ItemG32	ItemG32
3	ItemG33	ItemG33
3	ItemG34	ItemG34
3	ItemG35
3	ItemG36
3	ItemG37
3	ItemG38

Rem 3
' 3a)
I make a string of the unique group numbers " 1 2 3 "

' 3b)
I make an array of the unique group numbers { 1, 2, 3 }

' 3c) - ' 3d)
I make and fill an array for output, arrOut()

Rem 4
I paste out that array for output, arrOut()

Results
For this input data, before
_____ Workbook: Lists.xlsm ( Using Excel 2007 32 bit )

Row\Col	A	B	C	D	E
1	Group	Item Col A	Item Col B
2	1	ItemG11	ItemG11
3	1	ItemG12	ItemG12
4	1	ItemG13	ItemG13
5	1	ItemG14	ItemG14
6	1	ItemG15
7	1	ItemG16
8	1	ItemG17
9	1	ItemG18
10	1	ItemG19
11	2	ItemG21	ItemG21
12	2	ItemG22	ItemG22
13	2	ItemG23	ItemG23
14	2	ItemG24	ItemG24
15	2	ItemG25
16	2	ItemG26
17	2	ItemG27
18	2	ItemG28
19	2	ItemG29
20	3	ItemG31	ItemG31
21	3	ItemG32	ItemG32
22	3	ItemG33	ItemG33
23	3	ItemG34	ItemG34
24	3	ItemG35
25	3	ItemG36
26	3	ItemG37
27	3	ItemG38
28

Worksheet: Sheet2

Now run routine, Sub DefaultItem() ( http://www.excelfox.com/forum/showth...ll=1#post11094 )

After running Sub DefaultItem()
_____ Workbook: Lists.xlsm ( Using Excel 2007 32 bit )

Row\Col	A	B	C	D	E
1	Group	Item Col A	Item Col B	Group	Deafault item
2	1	ItemG11	ItemG11	1	ItemG11
3	1	ItemG12	ItemG12	2	ItemG21
4	1	ItemG13	ItemG13	3	ItemG31
5	1	ItemG14	ItemG14
6	1	ItemG15
7	1	ItemG16
8	1	ItemG17
9	1	ItemG18
10	1	ItemG19
11	2	ItemG21	ItemG21
12	2	ItemG22	ItemG22
13	2	ItemG23	ItemG23
14	2	ItemG24	ItemG24
15	2	ItemG25
16	2	ItemG26
17	2	ItemG27
18	2	ItemG28
19	2	ItemG29
20	3	ItemG31	ItemG31
21	3	ItemG32	ItemG32
22	3	ItemG33	ItemG33
23	3	ItemG34	ItemG34
24	3	ItemG35
25	3	ItemG36
26	3	ItemG37
27	3	ItemG38

Worksheet: Sheet2

---

https://wordtohtml.net/