Setting up loop in Excel VBA to repeatedly sum up specific range -


i have spreadsheet i'm trying repeatedly populate column k specific data various similar points (80 cells down each iteration) in column e.

so k2 should example display total of e25 + e35 + e42 + e56 + e63.

then k3 should display total of e105 + e185 + e122 + e136 + e143.

i have written macro first step (and works), follows:

sub disctoptest()  dim source range dim destination range dim total long  set destination = range("k2") set source = range("e25")  total = worksheetfunction.sum( _ source.value + _ source.offset(10, 0).value + _ source.offset(17, 0).value + _ source.offset(31, 0).value + _ source.offset(38, 0).value)  destination.select  destination.value = total  set source = nothing set destination = nothing  end sub

then inserted loop repeat operation entirety of database, whenever run added macro excel either freezes or refuses work. code i'm using loop:

sub disctop()  dim source range dim destination range dim total long  set destination = range("k2") set source = range("e25")  until destination.offset(0, -1) = ""  destination.select  total = worksheetfunction.sum( _ source.value + _ source.offset(10, 0).value + _ source.offset(17, 0).value + _ source.offset(31, 0).value + _ source.offset(38, 0).value)  destination.value = total  source = source.offset(80, 0) destination = destination.offset(1, 0)  loop  range("a1").activate  set source = nothing set destination = nothing  end sub

in case might easier use different kind of loop, need repeat operation precisely 680 times in column k.

any tips , advice appreciated!

you need use set on range variables make them change cell reference:

set source = source.offset(80, 0) set destination = destination.offset(1, 0)

also

destination.offset(0, -1) = "" never return true sum function return 0 when 5 references empty.

so need test else like: total = 0

or can following formula:

 =index(e:e,25+((row(1:1)-1)*80)) +index(e:e,35+((row(1:1)-1)*80)) +index(e:e,42+((row(1:1)-1)*80)) + index(e:e,56+((row(1:1)-1)*80)) +index(e:e,63+((row(1:1)-1)*80))

put in k2 , copy down.


Comments

Post a Comment

Popular posts from this blog

jOOQ update returning clause with Oracle -

according http://www.jooq.org/doc/3.8/manual/sql-building/sql-statements/update-statement/ jooq doesn't support returning clause in update statements databases except firebird , postgres. does know, still correct oracle jooq? according oracle's documentation, oracle db supports returning clase delete, insert, or update statements. incorrect manual you're right - manual wrong , should fixed: https://github.com/jooq/jooq/issues/5470 single row update returning jooq 3.8 added support single row update .. returning statements. internally, uses callablestatement , pl/sql block of form: begin update "my_table" set "my_table"."column" = 'xyz' "my_table"."id" = 1 returning "my_table"."id", "my_table"."column" ?, ?; ? := sql%rowcount; end; the relevant issue is: https://github.com/jooq/jooq/issues/5190 multi row update returning a...
Read more

java - Warning equals/hashCode on @Data annotation lombok with inheritance -

i have entity inherits other. on other hand, i'm using lombok project reduce boilerplate code, put @data annotation. annotation @data inheritance produces next warning: generating equals/hashcode implementation without call superclass, though class not extend java.lang.object. if intentional, add '@equalsandhashcode(callsuper=false)' type. is advisable add annotation @equalsandhashcode (callsuper = true) or @equalsandhashcode (callsuper = false) ? if not added, 1 callsuper=false or callsuper=true ? the default value false . 1 if don't specify , ignore warning. yes, recommended add @equalsandhashcode annotation on @data annotated classes extend else object. cannot tell if need true or false , depends on class hierarchy, , need examined on case-by-case basis. however, project or package, can configure in lombok.config call super methods if not direct subclass of object. lombok.equalsandhashcode.callsuper = call for configuration system ...
Read more

java - BasicPathUsageException: Cannot join to attribute of basic type -

i using java 8 jpa (hibernate 5.2.1). have clause works perfectly, until introduce clause make use foreign key table values too. i getting following error: basicpathusageexception: cannot join attribute of basic type i think problem related fact have join table, , not sure how create join using join table. employee - employee_category - category model (employee.java): @manytomany(cascade = cascadetype.all, fetch=fetchtype.eager) @jointable ( name="employee_category", joincolumns={ @joincolumn(name="emp_id", referencedcolumnname="id") }, inversejoincolumns={ @joincolumn(name="cat_id", referencedcolumnname="id") } ) private set<category> categories; model (category.java): @id private string id; jpa when introduce following code, fails error above (i think problem new piece of code): join<t, category> category = from.join("id"); predicates.add(criteriabuilder.like(category....
Read more