vba - Excel 2010: Need to copy certain cells to different worksheet based on cell value -

-

i have spreadsheet in excel 2010, wanting take cells in row , copy them worksheet when value entered specific cell in same row.

for example: in worksheet a, in cell a2, if "x" entered, want cell a5, a7 , a13-17 copied worksheet b. in worksheet b, should copied next available row, need them copied specific cells (not same in worksheet a- i.e: cell a5 need copy cell 2 in worksheet b; a7 cell 4 , a13-17 10-14). , cells copied in worksheet b need created in new row.

i have vba similar; however, copies entire row. above, need specific cells , won't match same cells in worksheet b.

here have been able work (to copy entire row):

sub testing_issue(byval target range)   'disable events code doesn't re-fire when row deleted     application.enableevents = false   'was change made column t?     if target.column = 20   'if yes, target read "y"?     if target = "y"   'if y, determine next empty row in sheet "test"     nxtrw = sheets("test").range("a" & rows.count).end(xlup).row + 1    'copy row open worksheet , move test worksheet     target.entirerow.copy destination:=sheets("test").range("a" & nxtrw)     else       msgbox ("that not valid entry")     end if   end if 're-enable events    application.enableevents = true  end sub

i tried using following instead of entire row part, not work.

target.range("a13").copy destination:=sheets("test").range("a5 & nxtrw") target.range("b13").copy destination:=sheets("test").range("c5 & nxtrw") target.range("i13:j13").copy destination:=sheets("test").range("e5 & nxtrw")

i appreciate advice, need working right. please let me know if not clear.

i'm not sure want copied , want pasted to, started in right direction:

private sub worksheet_change(byval target range)      dim rngcheck range     dim checkcell range     dim lrow long      set rngcheck = intersect(me.columns("t"), target)      if not rngcheck nothing         each checkcell in rngcheck.cells             if checkcell.value = "y"                 sheets("test")                     lrow = .cells(.rows.count, "a").end(xlup).row + 1                     me.cells(checkcell.row, "a").copy destination:=.cells(lrow, "a")                     me.cells(checkcell.row, "c").copy destination:=.cells(lrow, "b")                     me.cells(checkcell.row, "i").copy destination:=.cells(lrow, "e")                     me.cells(checkcell.row, "j").copy destination:=.cells(lrow, "f")                 end             end if         next checkcell     end if  end sub

Comments

Post a Comment

Popular posts from this blog

java - Run a .jar on Heroku -

-
i trying run .jar file on heroku, , can't find instructions anywhere on how this. have read wants me compile uploading heroku. possible, , if is, how this? if helps, trying run minecraft craftbukkit server, , don't have pom.xml file yet. you didn't provide details i'll try give , people reaches question way it. first of all, create heroku account , create heroku application (assumed have done that). second, need generate application jar , upload heroku. so, open terminal , install heroku cli (assuming unix terminal): $ sudo npm install -g heroku-cli you need have npm , nodejs installed, can check link: https://www.digitalocean.com/community/tutorials/how-to-install-node-js-on-ubuntu-16-04 once done that, can use npm update node version acceptable heroku-cli: $ sudo npm install -g n $ sudo n 7.10.0 and run: $ sudo npm install -g heroku-cli in order deploy jars, need install deploy plugin: $ sudo heroku plugins:install heroku-cli-deploy ...
Read more

java - Jtable duplicate Rows -

-
Image
when add new rows in jtable duplicate rows many times this method update jtable public final void tableaucomande(){ ((defaulttablemodel)tabcommande.getmodel()).getdatavector().clear(); session s=hibernateutil.getsessionfactory().opensession(); criteria cr1= s.createcriteria(commande.class); list <commande> lcs=cr1.list() ; criteria cr2= s.createcriteria(lignecommande.class); list <lignecommande> lck=cr2.list() ; if(lcs.size()!=0 && lck.size()!=0) { (commande lc:lcs) { for(lignecommande lig:lck){ ((defaulttablemodel)tabcommande.getmodel()).addrow(new object[]{ lc.getid_cmd(),lc.getnumcmd(),lc.getdate_cmd(),lc.getclient().getnomprenom(), lig.getproduit().getlib_prd(),lig.getquantite(),lig.getproduit().getid_prd() }); } } // tabcommande.setrowselectioninterval(tabcommande.getrowcount()-1,tabcommande.getrowcount()-1); } } this code add add data rows displaye...
Read more

validation - How to pass paramaters like unix into windows batch file -

-
i need pass various parameters .cmd file unix format file.cmd -configuration=value -source=value -flag but, try this: startlocal @echo off cls setlocal set cmdline=%* set configuration= set source= set badargs= set validation= goto main :splitargs echo splitargs(%*) if "%*" neq "" ( /f "tokens=1,2,* delims== " %%i in ("%*") call :assignkeyvalue %%i %%j & call :splitargs %%k ) goto :eof :assignkeyvalue echo assignkeyvalue(%1, %2) if /i %1==-configuration ( set configuration=%2 ) else if /i %1==-source ( set source=%2 ) else ( rem append unrecognised [key,value] badargs echo unknown key %1 set badargs=%badargs%[%1, %2] ) goto :eof :validate echo validating set validation=fail if defined configuration ( echo -configuration ok if defined source ( echo -source ok if not defined badargs ( set validation=success ) ) ) goto :eof :main cl...
Read more