VBA Copy and paste values of filtered rows

[AlanY]

I need some help get from Table 1 to Table 2 then Results please

Book1
	A	B	C	D	E	F	G	H	I	J	K	L	M
1	Table 1				Table 2	4	5	6		Results
2	1	2	3			16	17	18			16	17	18
3	4	5	6	Y		19	20	21			19	20	21
4	7	8	9	Y		22	23	24			22	23	24
5	10	11	12			25	26	27			25	26	27
6	13	14	15	Y		28	29	30			28	29	30
Sheet1

Book1
	A	B	C	D	E	F	G	H	I	J	K	L	M
1	Table 1				Table 2	7	8	9		Results
2	1	2	3			32	34	36			16	17	18
3	4	5	6	Y		38	40	42			19	20	21
4	7	8	9	Y		44	46	48			22	23	24
5	10	11	12			50	52	54			25	26	27
6	13	14	15	Y		56	58	60			28	29	30
7											32	34	36
8											38	40	42
9											44	46	48
10											50	52	54
11											56	58	60
Sheet1

Table 1 is just numbers with a filter column D.
What I need is to put the filtered cells A3:C3, A4:C4 & A6:C6 (with "Y" in Col D) in turn onto F1:H1.
Table 2 (F2:H6) is depending on F1:H1.
For each of the 3 sets of Nos in F1:H1 will produce a set of resutlts.

And I would like to get the 3 sets of results on the final table.

any pointers would be much appreciated

 

[AlanY]

anyone? please

 

[DanteAmor]

I need some help get from Table 1 to Table 2 then Results please


Table 1 is just numbers with a filter column D.
What I need is to put the filtered cells A3:C3, A4:C4 & A6:C6 (with "Y" in Col D) in turn onto F1:H1.
Table 2 (F2:H6) is depending on F1:H1.
For each of the 3 sets of Nos in F1:H1 will produce a set of resutlts.

And I would like to get the 3 sets of results on the final table.

any pointers would be much appreciated

Try this:

Sub Copy_Values()
    Dim c As Range
    For Each c In Range("A2", Range("A" & Rows.Count).End(xlUp))
        If Cells(c.Row, "D").Value = "Y" Then
            Range("F1").Resize(1, 3).Value = c.Resize(1, 3).Value
            Range("F2:H6").Copy
            Range("K" & Rows.Count).End(xlUp)(2).PasteSpecial xlValues
        End If
    Next
End Sub

 

[AlanY]

cheers, will give it a try

 

[AlanY]

that works, thanks.
but I actually simplified the problem as before the results table 2 needed to passed on to table 3 (similar to table 1 to table 2), is it possible to modify the code for that?

Book1
	A	B	C	D	E	F	G	H	I	J	K	L	M	N	O	P	Q
1	Table 1				Table 2	4	5	6		Table 3	19	20	21	Results
2	1	2	3			16	17	18			30	31	32		33	34	35
3	4	5	6	Y		19	20	21			33	34	35		36	37	38
4	7	8	9	Y		22	23	24			36	37	38		42	43	44
5	10	11	12			25	26	27			39	40	41
6	13	14	15	Y		28	29	30			42	43	44
Sheet1

 

[AlanY]

that works, thanks.
but I actually simplified the problem as before the results table 2 needed to passed on to table 3 (similar to table 1 to table 2), is it possible to modify the code for that?

Book1
	A	B	C	D	E	F	G	H	I	J	K	L	M	N	O	P	Q
1	Table 1				Table 2	4	5	6		Table 3	19	20	21	Results
2	1	2	3			16	17	18			30	31	32		33	34	35
3	4	5	6	Y		19	20	21			33	34	35		36	37	38
4	7	8	9	Y		22	23	24			36	37	38		42	43	44
5	10	11	12			25	26	27			39	40	41
6	13	14	15	Y		28	29	30			42	43	44
Sheet1

i think i found the way, testing it now.
thanks anyway

 

[DanteAmor]

i think i found the way, testing it now.
thanks anyway

I'm glad to know you found a solution, let me know if you have any questions.