excel - How to build a dynamic cell range output function using VBA -

-

i building function, when select cell, output cell range selection last filled cell row on same column.

here code, works perfectly.

''get cell range selection last cell function cellrange(cella range)      cellrange = cella.address + ":" + cella.end(xldown).address  end function

question: want update code, when used dates, user can filter 3 options: ytd (year date), (all time - i.e. getting data), year (i.e. 2015 / 2014 / 2013 etc.)

my end goal user select cell in range column of dates , input ytd or all or given year (i.e. 2014) , range filter.

example: user writes =cellrange(a2,2014), should yield $a$2:$a$23 , if user changes =cellrange(a2,2014) should yield $a$24:$a$40 seen on image.

enter image description here

i tried various loops or counts feel quite lost none of tries apparently made sense.

i looking help: guidance or solution problem preferably, want build on after tackle 1 (hence why doing on vba).

here shorter solution works 3 scenarios, , not require data worksheet active:

public function cellrange(rdates range, vfilter variant) string     dim long, ndx1 long, ndx2 long, r range, va variant, berr boolean, ball boolean         berr = true     if isdate(rdates)         rdates.entirecolumn             = rdates.parent.evaluate("count(" & .address & ")")             set r = .cells(1 - + rdates.parent.evaluate("index(" & .address & ",match(9.9e+307," & .address & "))").row).resize(i, 1)         end         va = r.value         select case lcase(vfilter)             case "all": berr = 0: ball = 1             case "ytd"                 = 1 ubound(va)                     if ndx1 = 0 , year(va(i, 1)) = year(date) ndx1 =                     if va(i, 1) <= date ndx2 =                 next             case else 'year                 vfilter = val(vfilter)                 if vfilter                     = 1 ubound(va)                         if ndx1 = 0 , year(va(i, 1)) = vfilter ndx1 =                         if ndx1 , year(va(i, 1)) = vfilter ndx2 =                     next                 end if         end select         if not ball if ndx1 > 0 , ndx2 > 0 set r = r.range(r.parent.cells(ndx1, 1), r.parent.cells(ndx2, 1)): berr = false         if not berr cellrange = r.address else cellrange = cverr(xlerrvalue)     end if end function

Comments

Post a Comment

Popular posts from this blog

Fail to load namespace Spring Security http://www.springframework.org/security/tags -

-
i have problem namespace of spring security on xhtml page. don't understand why can't load uri, , have following issue: whitelabel error page application has no explicit mapping /error, seeing fallback. tue jul 21 16:58:12 utc 2015 there unexpected error (type=not found, status=404). please need help! possible uri has been changed? best regards you using incorrect namespace url. correct url http://www.springframework.org/schema/security the error page seeing spring source website since not recognize url. try visiting http://www.springsource.org/security/tags in browser update : spring security tags used in jsp page correct tag lib declaration is: <%@ taglib prefix="sec" uri="http://www.springframework.org/security/tags" %>
Read more

sql - MySQL query optimization using coalesce -

-
can explain me why second query faster first? (first 1 takes around 40 seconds, second 1 less 0.1) select releases.feature_code, releases.platform_id, version, release_date, general_available, uri, filesize, display_name, feature_name.full_name, if ((select exists(select 1 release_exceptions releases.feature_code = release_exceptions.feature_code , releases.platform_id = release_exceptions.platform_id , releases.version = release_exceptions.version) = 1), 1, 0) release_exceptions releases left outer join platform using(platform_id) left outer join feature_name using(feature_code) order version desc; ~~~ query 2 ------------------ ~~~ select feature_code, version, release_date, general_available, platform_id, uri, filesize, display_name, feature_name.full_name, coalesce(release_exceptions, 0) release_exceptions mus.releases left outer join ( select distinct feature_code, version, platform_id, 1 release_exceptions mus.release_exceptions ) release_exceptions using ...
Read more

unity3d - Unity local avoidance in user created world -

-
i'm using unity3d networked multiplayer online game have large complex 3d terrain scene forest, trees, cliff, hills, mountains, bounders, etc. players can build structures sort of minecraft, , put them anywhere in scene, or move them around anytime. aside human controlled players, there automated ai players , objects animals roaming around scene following path. the problem how make these automated ai players , animals, able navigate around static , dynamic player created structures, because path follow can blocked player created structures, or other players , other ai objects, cliffs etc. have find away around them or on track if tumble down off high cliff example. so made navmesh , used navagents, takes care of static, non moving objects, how make ai players navigate around each other , dynamic structures created players can number in hundreds? i thought of adding navmeshobstacle everything, result in being attached hundreds of objects since user created structures b...
Read more