excel - Transfer specific cells from each filtered area -

-

i have below code transfers visible data "prepsheet" "contract".

the code refers each visible section in prepsheet, resizes area in contract , transfers data.

i want refer specific columns within filtered area, can transfer column specific data individually. example, may want transfer 1st , 6th columns. please can assist

public rnga range sub test()     dim wb excel.workbook     set wb = activeworkbook      dim sourcews excel.worksheet     set sourcews = prepsheet      dim filtereddatarange excel.range      set filtereddatarange = sourcews.autofilter.range.offset(1, 0)       set filtereddatarange = filtereddatarange.resize(filtereddatarange.rows.countlarge - 1)      set filtereddatarange = filtereddatarange.specialcells(xlcelltypevisible)        dim destinationws excel.worksheet        dim destinationrow long       destinationrow = 1           dim area excel.range          each area in filtereddatarange.areas             set rnga = area             matchselectionarea         next area end sub  sub matchselectionarea() dim rng range, cel range dim nrows long dim ncols long set cel = contract.range("a1048576").end(xlup).offset(1, 0)       nrows = rnga.rows.count     ncols = rnga.columns.count        set rng = cel.resize(nrows, ncols)     rng.value = rnga.value  end sub

you delving filtered rows , using number of filtered rows redefine filtered range. can copy straight out of filtered range , paste visible rows.

sub test()     dim wb excel.workbook, fdrng range, v long, vcols variant     dim sourcews worksheet, destinationws worksheet      set wb = activeworkbook     set sourcews = wb.worksheets("prepsheet")     vcols = array(1, 3, 5) 'columns a, c , e      sourcews         if .autofiltermode             .autofilter.range                 .resize(.rows.count - 1, .columns.count).offset(1, 0)                     v = lbound(vcols) ubound(vcols)                         .columns(vcols(v)).copy _                           destination:='you have provided no defined destination                     next v                 end             end         end if     end end sub  sub matchselectionarea()     dim rng range, cel range     dim nrows long, ncols long      worksheets("contract")         set cel = .range("a1048576").end(xlup).offset(1, 0)          nrows = rnga.rows.count         ncols = rnga.columns.count          'cannot determine         set rng = cel.resize(nrows, ncols)         rng = rnga.value     end  end sub

Comments

Post a Comment

Popular posts from this blog

yii2 - Yii 2 Running a Cron in the basic template -

-
i have seen instructions on running cron in advanced template, cant figure out how on basic template. have following controller in basic controllers folder. <?php namespace app\controllers; use yii\console\controller; /** * cron controller */ class croncontroller extends controller { public function actionindex() { echo "cron service runnning"; } public function actionmail($to) { echo "sending mail " . $to; } } i have navigated root of application , tried these comands yii cron php yii cron im getting unknown comand "cron" i know old question failed find actual answer this. if @ code yii exec file you'll notice requires /common/config/aliases.php file console/config/main.php. can naturally change these or copy on these advanced template. hope solves problem wanting same thing.
Read more

asp.net - 'System.Web.HttpContext' does not contain a definition for 'GetOwinContext' Mystery -

-
i realize question might seem trivial some, it's these types of things find myself fighting quite bit , want make sense of despite seeming losing battle in .net (for me anyway). so, if following: using system.web; ... applicationuser user = system.web.httpcontext.getowincontext().getusermanager<applicationusermanager>().findbyid(system.web.httpcontext.user.identity.getuserid()); that produces error in title , red getowincontext() , error cannot resolve symbol 'getowincontext()' however, if following (remove system.web in front of httpcontext ), works expected (or @ least no errors): using system.web; ... applicationuser user = httpcontext.getowincontext().getusermanager<applicationusermanager>().findbyid(system.web.httpcontext.user.identity.getuserid()); however, if (same line that's working using system.web commented out): //using system.web; ... applicationuser user = httpcontext.getowincontext().getusermana...
Read more

mercurial graft feature, can it copy? -

-
there new feature in mercurial 3, called 'graft' (graft local). job of moving change-set different branch. is there way "copy" change-set branch? i interested in in moving stuff qa branch production branch, still need code reside in qa. want copy. found , have tried few things, maybe it'll become clear more tinkering , reading... does have better way of 'cherry picking' change-sets move cross branch (or trunk)??? graft copies changesets, doesn't move them. hg graft (emphasis mine): this command uses mercurial's merge logic copy individual changes other branches without merging branches in history graph. known 'backporting' or 'cherry-picking' . default, graft copy user, date, , description source changesets.
Read more