excel - Use Range of Advanced Filter Cells as Criteria for AutoFilter on Another Sheet -

i have macro set use advanced filter on range of cells on button click, use range 1 column of these filtered values criteria autofilter on sheet ("study info" , "media," respectively). i'm total beginner , cannot following code work:

just added in , edited code lowpar provided. it's carrying array over, reason things filtered out last 4 entries in tab advanced filter. here's have far (with code first tab included time)

with sheets("study info")     if .filtermode .showalldata     dim y integer     y = (range("ca3").value) + 2     range("a12:bp150").advancedfilter action:=xlfilterinplace, criteriarange:= _     range("b2:bp" & y), unique:=false end with sheets("media")     if .filtermode .showalldata     dim frow integer     frow = sheets("study info").range("b" & rows.count).end(xlup).row     dim ary() variant     dim integer     set rng = sheets("study info").range("b13:b" & frow)         = 0         redim ary(0)         each cell in rng         ary(i) = cell.value         = + 1         redim preserve ary(i)         next cell     sheets("media").range("$a$4").autofilter _     field:=1, _     criteria1:=ary, _     operator:=xlfiltervalues end end sub 

create array called ary range, srow startrow, frow final row.

set rng = sheets("sheetname").range(tempcol & srow & ":" & tempcol & frow)         = 0         redim ary(0)         each cell in rng         ary(i) = cell.value         = + 1         redim preserve ary(i)         next cell         activesheet.range(startrow_fil & ":" & endrow_fil).autofilter field:=1, criteria1:=ary, operator:=xlfiltervalues