excel - VBA Index/Match with multiple criteria (unique value & date) -

-

i have spreadsheet has values more 1 month, trying first find value based on value in wsrevfile worksheet , ensure value last month. when use following code, "invalid number of arguments" error. 

sub revlookup(wsmvfile worksheet, wsrevold worksheet, wsnewrev worksheet, _                         rowcount integer, workcol string, _                         srccol1 integer, srccol2 integer)  dim vrw variant, long  = 2 rowcount     vrw = application.match(wsrevfile.range("a" & i), wsnewrev.columns(2), format(dateserial(year(date), month(date), 0), "mm/dd/yyyy"), wsnewrev.columns(1), 0)     if iserror(vrw)         vrw = application.match(wsrevfile.range("a" & i), wsrevold.columns(1), 0)         if not iserror(vrw) _             wsrevfile.range(workcol & i) = application.index(wsrevold.columns(srccol1), vrw)     else         wsrevfile.range(workcol & i) = application.index(wsnewrev.columns(srccol2), vrw, 1)     end if next end sub

i assuming has way assigned application match function, because formula without part works other columns. ideas on how work?

thanks help!

try ajusting variables of following procedure, didn't figure out input , output data:

sub main() dim searchvalue variant dim searchcolumn range dim returncolumn range dim resultrows collection dim lastdate variant 'date? dim irow variant  searchvalue = 10 '<-- change suit set searchcolumn = wsnewrev.range("b1:b10") set returncolumn = wsnewrev.range("c1:c10") '<-- change suit  set resultrows = getlooprows(searchcolumn, searchvalue) each irow in resultrows     if lastdate < returncolumn(irow)         lastdate = returncolumn(irow)     end if next irow  debug.print lastdate end sub  function getlooprows(paramarray pparameters() variant) collection 'obtém limites de laços com levando em conta condições '[vetor1], [valor1], [vetor2], [valor2], ...  dim icondition long dim variant dim irow variant dim result collection dim numconditions long dim searchcollection collection dim arrayscollection collection dim iarray variant  numconditions = (ubound(pparameters) - lbound(pparameters) + 1) / 2 set arrayscollection = new collection set searchcollection = new collection = lbound(pparameters) ubound(pparameters) step 2     arrayscollection.add pparameters(i + 0).value2     searchcollection.add pparameters(i + 1) next  set result = new collection irow = lbound(arrayscollection(1)) ubound(arrayscollection(1))     icondition = 1 numconditions         if arrayscollection(icondition)(irow, 1) <> searchcollection(icondition) goto continue     next icondition     result.add clng(irow) continue: next irow quit: set getlooprows = result end function

Comments

Post a Comment

Popular posts from this blog

java - nested exception is org.hibernate.exception.SQLGrammarException: could not extract ResultSet Hibernate+SpringMVC -

-
i trying fetch records database , having above error this classs appropriate getters , setters public class user { private int id; private string username; private string password; private string email; i have create database , inserted data below configuration <bean id="datasource" class="org.apache.commons.dbcp2.basicdatasource" destroy-method="close"> <property name="driverclassname" value="com.mysql.jdbc.driver"/> <property name="url" value="jdbc:mysql://localhost:3306/usersdb"/> <property name="username" value="root"/> <property name="password" value=""/> </bean> this complete stacktrace severe: servlet.service() servlet [appservlet] in context path [/spring] threw exception [request processing failed; nested exception org.hibernate.exception.sqlgrammarexception: not ...
Read more

sql - Postgresql tables exists, but getting "relation does not exist" when querying -

-
Image
i have postgresql db number of tables. if query: select column_name information_schema.columns table_name="my_table"; i list of columns returned properly. however, when query: select * "my_table"; i error: (programmingerror) relation "my_table" not exist 'select *\n "my_table"\n' {} any thoughts on why can columns, can't query table? goal able query table. you have include schema if isnt public one select * <schema>."my_table" or can change default schema show search_path; set search_path my_schema; check table schema here select * information_schema.columns for example if table on default schema public both works ok select * parroquias_region select * public.parroquias_region but sectors need specify schema select * map_update.sectores_point
Read more

asp.net mvc - breakpoint on javascript in CSHTML? -

-
i have .cshtml file has javascript tag. within script tag have few lines of javascript. first line of javascript refers property in @viewbag. other javascript lines plain script without mvc related references. observation: can place breakpoints (visual studio 2015) on each of these javascript lines. however, breakpoints has white dot in center of breakpoint symbol (red circle) except line @viewbag reference (this particular line not have white dot in center). it seems breakpoint without white dot hit during run-time. question: can explain going on here? white dot mean? why plain red breakpoint line line hitting breakpoint? the visual studio debugger expecting debug actual server-side code within .cshtml file opposed client-side javascript within it. iirc, visual studio allow debug javascript code expected in internet explorer (and possibly edge), other browsers want use either third-party tool or developer tools (f12) within browser. an easy approach take advant...
Read more