excel - Creating a formula, Same cell, Dynamic number of sheets -


i have created workbook has 2 sheets there: "master" , "score". on master sheet have named dynamic range inputting names, instance(mike, sheila, tom, , matt) have macro take list of names , create separate sheets. list can vary 3 20.

sub create_ws()      dim mycell range, myrange range     dim newname string      set wb1 = thisworkbook     set ws2 = wb1.sheets("master")       'this macro create separate tabs based on list in master tab k2 down      set myrange = ws2.range("k2")     set myrange = range(myrange, myrange.end(xldown))      screen 0, 1      each mycell in myrange         if sheetexists(mycell)             newname = inputbox("sheet exists, please specify unique name!", "new copy")                 if newname = vbnullstring or newname = ""                     screen 1                     exit sub                 end if              sheets.add after:=sheets(sheets.count)             sheets(sheets.count).name = (newname)         else             sheets.add after:=sheets(sheets.count) 'creates new worksheet             sheets(sheets.count).name = mycell.value ' renames new worksheet             format_tabs (mycell) 'calls next process add named tabs         end if     next mycell      screen 1      ws2.select end sub

on each sheet format same: column , b pre-filled data , columns c, d,and e person fill in scoring information. sheets , rows vary, columns needed average same.

what looking on "score" sheet develop macro build formula average responses in each sheet not static names , put them correct cell on scoring sheet. instance if there 11 issues formula placed in c2, d2, e2, c3, d3, e3...all way c12, d12, e12. in cell c2 on score sheet formula should read =average(mike!c2,sheila!c2,tom!c2,matt!c2) , in cell d2 formula read =average(mike!d2,sheila!d2,tom!d2,matt!d2)

my named range greviewers , starts on master!k2. have helper cells looking automate workbook expand knowledge vba.

here code found. sums sheets need , puts in cell need go in, need average , if formula display in cell able use .filldown.

sub totals()  dim c range, mytotal double  mytotal = 0      each c in range("greview")         mytotal = mytotal + sheets(c.value).range("c2")     next c         thisworkbook.worksheets("score").range("c2") = mytotal  end sub

so after playing , researching able solve own question. if have neater way code please feel free add on.

sub b_form() dim c range dim myform string dim r long dim x long  mytotal = 0 x = 1 thisworkbook.sheets("score").select cells(1, 1).select  ' count rows in named range dim orng range, lrows long lrows = 0 each orng in range("greview").areas lrows = lrows + orng.rows.count next orng  'gets sheetnames , cells build dynamic formula  r = 3 5     each c in range("greview")         if x <> lrows             myform = myform + c & "!" & cells(2, r).address(rowabsolute:=false, columnabsolute:=true) & ","         else             myform = myform + c & "!" & cells(2, r).address(rowabsolute:=false, columnabsolute:=true)         end if         x = x + 1     next c         thisworkbook.worksheets("score").cells(2, r) = "=average(" & myform & ")"         myform = ""         x = 1 next r ' calculation no longer needed @ time 'sheets("score").range("f2") = "=($c2*$d2)-(($c2*$d2)*($e2/5))"  lr = get_lr(2)  sheets("score").range("c2:e" & lr)     .filldown end   end sub

Comments

Post a Comment

Popular posts from this blog

neo4j - finding mutual friends in a cypher statement starting with three or more persons -

Image
i trying build cypher statement neo4j know 2-n starting nodes name , need find node (if any) can reached of starting nodes. at first tought similar "mutual friend" situation handled (start1)-[*..2]->(main)<-[*..2]-(start2) in case have more 2 starting points around 6 know name. so puzzled how can include third, fourth , on node cypher able find commmon root amongst them. in above example neo4j website need path starting 'dilshad', 'becky' , 'cesar' check if have common friend (anders) excluding 'filipa' , 'emil' not friends of three. so far create statement programmatically looks like match (start1 {name:'person1'}), (start2 {name:'person2'}), (start3 {name: 'person3'}), (main) (start1)-[*..2]->(main) , (start2)-[*..2]->(main) , (start3)-[*..2]->(main) return distinct main but wondering if there more elegant / efficient way in cypher possibly use list of names parameter ...
Read more

php - How to remove letter in front of the word laravel -

Image
based on picture above result of var_dump() , dd() of same variable ,when var_dump() , apostrophe (') symbol in black diamond of question mark , when dd() same variable , apostrophe can seen letter 'b' appear in front of words what want can me result : loreal's sdn bhd and @ same time want remove special character ( excluding these 4 symbols (-) ,(_) ,('),(,) ) simply escape special character resolve issue. mysqli_real_escape_string resolve issue. $name = mysqli_real_escape_string($request()->user); or use addslashes function() $name = addslashes($request()->user);
Read more

minify - Minimizing css files -

i want know how css files can minimized. currently, using external sites css minifier compress css files. however, after removing whitespaces, comments, etc, file sizes reduced 10-15%. how frameworks bootstrap manage make minimized versions kilobytes. as example, css is: body { background-color: #ff0; } the reduction goes 28 bytes 22 bytes other css files have lot more characters still smaller this. actually minifying code means it's remove thing code white space characters new line characters comments block delimiters it reduces amount of code has transferred on web , speed site load fastly.but unreadable format.
Read more