Excel VBA - How to copy and paste groups of data following blank cells? -

-

i have data in b6 , m6 correspond directly each other. data goes b6:b12 , there 2 blank cells in b13:b14. data goes on b15:b23 , there 2 blank cells , pattern repeats down page...(the same goes column m).

i researched finding blank cells , able use code grab first set of data b6:b12 , m6:m12 , paste on new worksheet in location wanted. here code:

sub copyandpaste()  nextfree = range("b6:b" & rows.count).cells.specialcells(xlcelltypeblanks).row range("b" & nextfree).select  nextfree2 = range("m6:m" & rows.count).cells.specialcells(xlcelltypeblanks).row range("m" & nextfree2).select  sheets("sheet 1").range("b6:b" & nextfree).copy destination:=sheets("sheet 2").range("b13")  sheets("sheet 1").range("m6:m" & nextfree2).copy destination:=sheets("sheet 2").range("j13")  end sub

this works grab first group before blank 2 blank cells cannot find way grab second, third, , on groups follow 2 blank cells. appreciated.

if know pattern of blocks (block - 2 spaces - block) can nested loop.

sub grabblocks()  dim cfirst range, clast range dim sh worksheet  set sh = thisworkbook.sheets(1) set cfirst = sh.range("b6") 'first cell of each new block set clast = cfirst 'this becomes last cell of block  while not cfirst = ""      'get last cell of block     while not clast.offset(1, 0) = ""         set clast = clast.offset(1, 0)     loop      'do copy address     debug.print range(cfirst.address & ":" & clast.address).address     '... copy code goes here...      'go next block     set cfirst = clast.offset(3, 0) 'first cell of new block 2 + 1 cells below last     set clast = cfirst loop  end sub

this code terminate when next block more 2 cells away, expecting no more blocks come.

beware these loops can become nasty if termination condition can not satisfied (e.g. cells contain 'invisible' data spaces)


Comments

Post a Comment

Popular posts from this blog

Delphi XE2 Indy10 udp client-server interchange using SendBuffer-ReceiveBuffer -

-
i use delphi xe2 , indy10 udp protocol. can't receive server echo on client side if use receivebuffer method. got "socket error # 10040" although send small echo message server client. console application illustrate problem below. in advance. program project1; {$apptype console} {$r *.res} uses system.sysutils, idglobal, idbasecomponent, idcomponent, idsockethandle, idudpclient, idudpserver, idudpbase, idstack; type tudp_serv = class(tidudpserver) procedure udpsvudpread(athread: tidudplistenerthread; adata: tidbytes; abinding: tidsockethandle); end; var udpserver: tudp_serv; udpcl: tidudpclient; bsnd, brcv: tbytes; s: string; k: integer; //============================================================================== procedure tudp_serv.udpsvudpread(athread: tidudplistenerthread; adata: tidbytes; abinding: tidsockethandle); begin writeln(' server read: ' + tohex(adata, length(adata))); abinding sendto(peerip, peerport, adat...
Read more

Qt ActiveX WMI QAxBase::dynamicCallHelper: ItemIndex(int): No such property in -

-
i new windows programming. here goes code objiwbemlocator = new qaxobject("wbemscripting.swbemlocator"); objwmiservice = objiwbemlocator->querysubobject("connectserver(qstring&,qstring&)",qstring("."),qstring("root\\cimv2")); qaxobject* returnlist = objwmiservice->querysubobject("execquery(qstring&)", qstring("select * %1").arg(domain)); qaxobject* result = returnlist->querysubobject("itemindex(int)", 0); i getting error on runtime qt activex wmi qaxbase::dynamiccallhelper: itemindex(int): no such property in but itemindex method exists msdn says the itemindex method not work collections not contain swbemobjects, such swbemmethodset, swbemnamedvalueset, swbemprivilegeset, swbempropertyset, , swbemqualifierset. what selecting ? have tried iterating on collection ? plus need minimum windows vista itemindex method. hope helps
Read more

Enable autocomplete or intellisense in Atom editor for PHP -

-
i'm first time user of atom editor php code. atom can autocomplete built-in functions of php. possible make editor autocomplete custom function written in separate file? function.php <?php function printsomething() { echo "hello world"; } index.php <?php require_once "function.php"; printsomething(); // autocompleted atom editor while typing thanks in advance. there text file in %userprofile%.atom called snippets.cson. in there can add snippet. more this: http://flight-manual.atom.io/using-atom/sections/snippets/ but need think can use later on other files well. otherwise need copy , paste.
Read more