looking for VBA code

[Wloven]

I am trying to create a VBA code which copy a cell and paste with three condition:
1- If the cell next to the cell targeted is not duplicate.
2- will continue to paste this data till the certain number exceed.
3- will copy another cell and paste with the two above condition also.

(the picture below explain more:
a) the S columns is the target cell where I want to paste.
b) the red circle is the number of how many each name highlighted in yellow should paste.
c) they should not paste if Duplicate appear in columns AA.

 

[Wloven]

Thank you Zot but the code not working, it not do anything.

					Sales Document						Assign To	iBase Linked	Contract Number		Was	Kir	Tas		19​
					436482											3
					441283										Sales	39	20​
					440115										How Many	6	0​
					440826
					440826														Duplicate
					440826														Duplicate
					440826														Duplicate
					440705
					440705														Duplicate
					440706
					440706														Duplicate
					440707
					440707														Duplicate
					440263
					440263														Duplicate
					440264
					440264														Duplicate
					438251
					441497
					436315
					436384
					436384														Duplicate
					436326
					437449
					437449														Duplicate
					437449														Duplicate
					437469
					437469														Duplicate
					437469														Duplicate
					437477
					437477														Duplicate
					437477														Duplicate
					437441
					437466
					437466														Duplicate
					437466														Duplicate
					437481
					437481														Duplicate
					437481														Duplicate

 

[Zot]

It should work since I tried it based on your sheet as displayed.

How many is in X4. I should have asked where the 13 came from since your sample has X4 = 11.25 (not 13)

Anyway, your initial sample put name in W5, X5, Y5 as WA, KI, TA. I put them in W1, X1, ...

Are you sure you put exactly in same columns as sample? I could not understand why it did nothing. I added name Tas and worked just fine

 

[Wloven]

It should work since I tried it based on your sheet as displayed.

How many is in X4. I should have asked where the 13 came from since your sample has X4 = 11.25 (not 13)

Anyway, your initial sample put name in W5, X5, Y5 as WA, KI, TA. I put them in W1, X1, ...

Are you sure you put exactly in same columns as sample? I could not understand why it did nothing. I added name Tas and worked just fine

I changed Set wb = ThisWorkbook to Set wb = ActiveWorkbook and it's worked as I have different excel to work with. Thank you for your help.

 

[Zot]

I changed Set wb = ThisWorkbook to Set wb = ActiveWorkbook and it's worked as I have different excel to work with. Thank you for your help.

Glad to hear that it worked. I have no idea that ThisWorkbook is no more working on new 365 Excel