VBA Transfer information from sheets in workbook 1, to sheets with same sheetname in another workbook -


i want transfer information target workbook source workbook when target sheet name source sheet name.

i realtively new vba, have been working 2 weeks , have literally googled a$$ off. website has proven best hulp far.

i have transpose information on standard basis different format, want fi want automate following code:

sub transfer() dim wbt workbook, wbs workbook 'wbt = workbook target, wbs = workbooksource dim wst worksheet, wss worksheet 'wbt = worksheet target, wbs = worksheet source dim wkt integer, wks integer, wke integer 'wkt = number in target sheet name, wks = number in source sheet name, wke = number in sheet name after want stop transferring information  dim vfile variant  dim cct range, ccs range  set wbt = activeworkbook  vfile = application.getopenfilename("excel-files,*.xlsm", _     1, "select 1 file open", , false)   if typename(vfile) = "boolean" exit sub workbooks.open vfile  set wbs = activeworkbook   wkt = 1  wks = 1  wke = 16  each wks in wbt.wst.("wk " & wkt)         if wks = wkt      wbt.wst("wk " & wkt).range("k13:k63").value = wbs.wss("wk " & wks).range("g8:g58").value     wbt.wst("wk " & wkt).range("m13:m63").value = wbs.wss("wk " & wks).range("h8:h58").value      wkt = wkt + 1     wks = wks + 1      if wke > wkt          wbs.close (false) next  end sub

this better :

sub transfer() dim wbt workbook, wbs workbook 'wbt = workbook target, wbs = workbooksource dim wst worksheet, wss worksheet 'wbt = worksheet target, wbs = worksheet source dim wkt integer, wks integer, wke integer 'wkt = number in target sheet name, wks = number in source sheet name, wke = number in sheet name after want stop transferring information  dim vfile variant  dim cct range, ccs range  set wbt = activeworkbook  vfile = application.getopenfilename("excel-files,*.xlsm", _     1, "select 1 file open", , false)   if typename(vfile) = "boolean" exit sub   set wbs = workbooks.open(vfile)  ' wkt = 1 ' wks = 1  wke = 16  each wss in wbs.sheets     each wst in wbt.sheets          if wst.name <> wss.name or cint(replace(wss.name, "wk ", "")) >= wke         else             wst.range("k13:k63").value = wss.range("g8:g58").value             'wbt.wst("wk " & wkt).range("m13:m63").value = wbs.wss("wk " & wks).range("h8:h58").value  '            wkt = wkt + 1 '            wks = wks + 1         end if '        if wke > wkt wbs.close (false)     next wst next wss  wbs.close set wbs = nothing set wbt = nothing end sub

i don't "wke", number in sheetname on want limit copy? if is, code might changed enough already.

btw, set kind of way create quicker references later use in code can't add arguments in there , have free them @ end of code, set ... = nothing


Comments

Post a Comment

Popular posts from this blog

c++ - Difference between pre and post decrement in recursive function argument -

i have following sample code used pre-decrement void function(int c) { if(c == 0) { return; } else { cout << "dp" << c << endl; function(--c); cout << c << endl; return; } } this function give output input 4 : dp3 dp2 dp1 dp0 0 1 2 3 but when use post decrement void function(int c) { if(c == 0) { return; } else { cout << "dp" << c << endl; function(c--); cout << c << endl; return; } } output goes in infinite loop dp4 can explain me in detail why happens ? this happens because function(c--) called same value of c , when finishes c decremented. recursively called, hence called same value no chance of return , hit stack overflow error. assume this, int x = 1, y = 0; y = x++ result y == 1 , x == 2. if y = ++x , bot x , y 2.
Read more

php - Nothing but 'run(); ' when browsing to my local project, how do I fix this? -

i added new project. made mistake in projectname.conf file in sites-available apache2, led me reinstalling apache2. after reinstalling , re-enabling projects on every page of every project .. <body> run(); </body> .. i've run composer update, restarted service, restarted pc, checked config files, tried disabling new project. there nothing in error log, , access.log: 127.0.0.1 - - [15/may/2015:01:40:47 +0200] "get / http/1.1" 304 181 "-" "mozilla/5.0 (x11; ubuntu; linux x86_64; rv:38.0) gecko/20100101 firefox/38.0" maybe i'm forgetting apache2 reinstall? don't think did different last time installed it. looks haven't setup php correctly. take @ this great guide , maybe you're forgetting link php config apache2.
Read more

php - How can I echo out this array? -

i don't know how go grabbing data in variable , put foreach loop. class tree{ private $info = array( array('name'=>'jim','state'=>'nu','company'=>'nu','phone'=>array('cell'=>'5615111111','office'=>'5611111111'),'email'=>array('primary'=>'exs@example.com','ex@there.com')), array('name'=>'joe smith','city'=>'phoenix','phone'=>'4805551111','email'=>'jsmith@some_email.com'), array('name'=>'john doe','city'=>'chandler','company'=>'doe co.','email'=>array('jdoe@gmail.com','personal'=>'email@email.com'),'phone'=>'6025550002') ); } if you're inside of class, can access private variable using $this->variablename . example, i...
Read more