excel - Selected a Filtered range -
i have list object filter date. once have filtered array. set range on column d
have loop read filtered range
here code
activesheet.listobjects("invoices").range.autofilter field:=5, criteria1:="=" & year.value activesheet.listobjects("invoices").range.autofilter field:=6, criteria1:="=" & month.value dim r range set r = sheets("invoices").range(range("d1"), range("d1").end(xldown)).offset(1, 0) msgbox r.address
column d
have header in d1
. when filter range should d75:d90
... msgbox returns d2:d90
if data not filtered. thx
you're there. use specialcells property below:
dim r range, c range sheets("invoices").range(range("d1"), range("d1").end(xldown)) set r = .offset(1, 0).resize(.rows.count - 1).specialcells(xlcelltypevisible) end '~~> use areas property if want loop '~~> through filtered data posted lukas2 each c in r.areas msgbox c.address next
also need resize range explicitly work on cells values.
compensate offset exclude headers.
Comments
Post a Comment