From filtered data, if a value is duplicated in the reference values, copy the corresponding filtered data considering duplicates

[FariAb]

I have a code that filters the values from a worksheet (let's name it filter worksheet) depending on the values in a list (in the result worksheet), this list is variable and sometimes the values in it are the same/duplicated, for example:

So in the filter worksheet, it filters values 5 and 6 and pastes them on the result worksheet. But since the value "5" is duplicated, I'd like for the filtered value to be duplicated as well. Does anybody know if it could be done via vba or maybe via an excel formula?

Here is the code section of the filtered data:

With ActiveSheet
With Range("A23:AG115")
.AutoFilter Field:=1, Operator:=xlFilterValues, _
Criteria1:=Split(Join(Application.Transpose(wsResult.Range("L2:L8")), ","), ",")
        End With
    LR = Range("A" & Rows.Count).End(xlUp).Row
    Range("O24:O" & LR).SpecialCells(xlCellTypeVisible).Select
    Selection.Copy
End With
wsResult.Activate
wsResult.Range("M3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

Thank you in advance!

 

[Peter_SSs]

When posting vba code in the forum, please use the available code tags. It makes your code much easier to read/debug. My signature block below has more details. I have added the tags for you this time.

Instead of vba, could you use a formula approach using this sort of concept?

22 10 01.xlsm
	A	B	C	D	E	F	G	H	I	J
23	Hdr1	Hdr2	Hdr3		List	Idx		Hdr1	Hdr2	Hdr3
24	9	1	a		5	2		5	2	b
25	5	2	b		6	5		6	5	e
26	2	3	c		5	7		5	7	g
27	8	4	d		2	3		2	3	c
28	6	5	e
29	4	6	f
30	5	7	g
31	5	8	h
32	4	9	i
33	6	10	j
34
FariAb

Cell Formulas
Range	Formula
H24:J27	H24	=INDEX(A24:C33,F24:F27,SEQUENCE(,COLUMNS(A24:C33)))
F24:F27	F24	=AGGREGATE(15,6,ROW(A$24:A$33)/(E24=A$24:A$33),COUNTIF(E$24:E24,E24))-ROW(A$23)
Dynamic array formulas.