excel - Summing entire column and using input string in path - 


sub value()   dim fname string dim fld string set wb1 = thisworkbook set ws1 = wb1.worksheets("profit") set ws2 = wb1.worksheets("loss")  ws1 lastrow = .cells(.rows.count, "b").end(xlup).row end  = 1 lastrow   **fld = ws1.cells.value(i, "b")     fname = dir(fld & .cells(i, "c").value + "*.xls*")**     set wb2 = workbooks.open(fld & fname, readonly:=true)     wb1.worksheets("revenues").usedrange.clear     wb2.worksheets("latest").usedrange.copy  destination:=wb1.worksheets("revenues").range("a1")     wb2.close savechanges:=false      ws2     lastrow2 = .cells(.rows.count, "p").end(xlup).row     end      **ws1.cells(i, "e").value = excel.worksheetfunction.sum(ws2.range("p2" & lastrow2))**  next end sub

i facing small errors @ 2 places. first, file latest data opened using directory , file name provided string in b & c column, compiler doesn't take when use. secondly, when sum entire column gives 0 value always, don't know why. in short take file name , directory , place output number(sum column) besides it. sum(p:p) doesn't work.

fld = ws1.cells.value(i, "b")

two issues this:

  1. it's .cells needs cell reference, not .value
  2. you're mixing r1c1 a1 in cell reference

try way:

or:

fld = ws1.range("b" & i).value

you're repeating error #2 in references you're using .cells()

additional error:

fname = dir(fld & .cells(i, "c").value + "*.xls*")

in addition error #2, above, you're using + concatenation. vba uses &. 

fname = dir(fld & .cells(i, 3).value & "*.xls*")

note:

you may want consider putting error handling around set wb2 = workbooks.open(fld & fname, readonly:=true) line, since you're relying on user correctly enter path (you're assuming ends in \) , file name. slightest typo , .open() fail.

you may consider searching filesystemobject present user windows standard file dialog box can pick file want have opened. ensure (if cancel) or guaranteed valid path\filename since selected existing , didn't have type in.


Comments

Post a Comment

Popular posts from this blog

cakephp - simple blog with croogo -

i not problem, made simple blog in croogo, problem is not adding or modifying or delete, because arabic language ?? function add in controller `public function admin_add() { $this->set('title_for_layout', __('add part')); if (!empty($this->request->data)) { $this->part->create(); if ($this->part->save($this->request->data)) { $this->session->setflash(__('the part has been saved'), 'default', array('class' => 'success')); $this->redirect(array('action' => 'index'));//, $this->part->id)); } else { $this->session->setflash(__('the part not saved. please, try again.'), 'default', array('class' => 'error')); } } }` => model `class part extends appmodel { public $name = 'part'; var $belongst...
Read more

How to group boxplot outliers in gnuplot -

i have large set of data points. try plot them boxplot, of outliers exact same value , represented on line beside each other. found how set horizontal distance between outliers in gnuplot boxplot , doesn't much, apparently not possible. is possible group outliers together, print 1 point , print number in brackets beside indicate how many points there are? think make more readable in graph. for information, have 3 boxplots 1 x value , times 6 in 1 graph. using gnuplot 5 , played around pointsize, doesn't reduce distance anymore. hope can help! edit: set terminal pdf set output 'dat.pdf' file0 = 'dat1.dat' file1 = 'dat2.dat' file2 = 'dat3.dat' set pointsize 0.2 set notitle set xlabel 'x' set ylabel 'y' header = system('head -1 '.file0); n = words(header) set xtics ('' 1) set [i=1:n] xtics add (word(header, i) i) set style data boxplot plot file0 using (1-0.25):1:(0.2) boxplot lw 2 lc rgb '#8b0000...
Read more

bash - Performing variable substitution in a string -

i have string contains use of variable, , i'd substitute variable's value string. right best have is #!/bin/bash foo='$name; echo bar' name="the name" expanded="$(eval echo "$foo")" echo "$expanded" which has obvious defects: prints the name bar while i'd print the name; echo bar instead of eval can bash's regex matching bash's string replacement: foo='$name; echo bar' name="the name" [[ "$foo" =~ \$([[:alnum:]]+) ]] && s="${!bash_rematch[1]}" && expanded="${foo/\$${bash_rematch[1]}/$s}" echo "$expanded" name; echo bar
Read more