i using specialcells(xlcelltypevisible) cells visible. objective pull upto 5 records after filter criteria applied.
however, after filter applied , there hidden cells, sequential ones fetched , after hidden rows not getting pulled.
is there way skip hidden cells , upto 5 entries.
dim rrange range, filrange range dim value1 string dim value2 string dim stritemnamebf() string dim icol long dim irow long dim loopcnt integer dim chk string dim integer = 0 dim racells range 'sheets("test log").select sheets("test log").autofiltermode = false set rrange = sheets("test log").range("testlog") rrange .autofilter field:=1, criteria1:=projectid .autofilter field:=4, criteria1:=array("red", "yellow", "green"), operator:=xlfiltervalues set filrange = .offset(1, 0).specialcells(xlcelltypevisible) if filrange.rows.count > 0 if filrange.rows.count > 5 loopcnt = 5 else loopcnt = filrange.rows.count
