excel - Show values matching multiple statements -
i'm stuck how move forward problem.
i have excel sheet looking attached images. want in sheet present reviews have comment attached.
what want in sheet(report) want show list consisting of good/bad scores connected team during week 42 comment has been made. in example list concisting of row 2 , 4.
the source list consist of on 100k rows first try limit formula offset on rows in specified week. maybe vba code better quicker way this?
try code:
sub test() dim row integer, lastrow long, rng range 'this filters data , copies result second worksheet - sheet2 (rename suit) sheet1 on error resume next .showalldata on error goto 0 lastrow = .cells(rows.count, 1).end(xlup).row .range("a1:d" & lastrow).autofilter field:=1, criteria1:="a" .range("a1:d" & lastrow).autofilter field:=2, criteria1:="42" .range("a1:d" & lastrow).autofilter field:=4, criteria1:="<>" set rng = .range("a1:d" & .cells(rows.count, 1).end(xlup).row).specialcells(xlcelltypevisible) if rng.cells(rows.count, 1).end(xlup).row > 1 ' if not header row visible i.e filter has actual results set rng = .range("a2:d" & lastrow).specialcells(xlcelltypevisible) 'a2 exclude header rng.copy destination:=sheet2.range("a" & sheet2.cells(rows.count, 1).end(xlup).row + 1) 'copy next available row in sheet 2 end if end end sub
Comments
Post a Comment