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

Popular posts from this blog

c++ - OpenCV Error: Assertion failed <scn == 3 ::scn == 4> in unknown function, -

php - render data via PDO::FETCH_FUNC vs loop -

The canvas has been tainted by cross-origin data in chrome only -