VBA Macro for: Copying unique variables entered on one sheet automatically on to new worksheet?

[slozcannon]

Hi Everyone,

I have a workbook which has a master sheet and 5 secondary worksheets. More will be created with the same template going forward by date.

I need all data in secondary worksheets (column D of each one) to be copied in to worksheet 2 of the master sheet. Column D contains ID numbers.

I also need it to ONLY copy unique variables, so any repeated ID numbers get ignored.

Finally, I need i to offset to the next empty row, so it doesnt copy over existing data. Basically, as the weeks go by, any new ID numbers need to be copied in to the master copy, without duplicating or copying over whats already in the master sheet.

I managed to do these 2 subs so far but cant seem to combine the two? Can anyone please help?:
____________________________

Sub CopyStuff()

Range("X2:X12").Copy Sheets("Sheet1").Range("D" & Rows.Count).End(xlUp).Offset(1, 0)

End Sub
________________

Sub Unique_Values()

ThisWorkbook.Worksheets("08.06.2022").Activate
Range("D:D").AdvancedFilter Action:=xlFilterCopy, _
CopyToRange:=Range("X:X"), _
Unique:=True
Range("X2:X12").Copy Sheets("Sheet1").Range("D" & Rows.Count).End(xlUp).Offset(1, 0)

End Sub



____

Thanks alot!

 

[Georgiboy]

Could also use a formula option, if you imagine that Columns A, C & E are in different sheets. It would aso depend on whether you have access to the TOCOL function:

Book1
	A	B	C	D	E	F	G	H
1	1		6		12			1
2	1		6		12			2
3	1		7		13			3
4	2		7		14			4
5	3		8		15			5
6	4		8		15			6
7	4		8		16			7
8	4		9		16			8
9	5		10		16			9
10	5		11		17			10
11								11
12								12
13								13
14								14
15								15
16								16
17								17
Sheet1

Cell Formulas
Range	Formula
H1:H17	H1	=UNIQUE(VSTACK(TOCOL(A:A,1),TOCOL(C:C,1),TOCOL(E:E,1)))
Dynamic array formulas.

 

[slozcannon]

Thanks man thats really helped me move it forward didnt think of that how creative, thank you

 

[Georgiboy]

You're welcome, thanks for the feedback.