excel - Macro cuts and paste whole row below data loop -


i have report lists sales salesperson month. when type of sale "open", cell in column d start o (open order, open layaway, etc). can't include open orders in subtotal monthly sales, instead have opens orders in separate section below sales in section called "open orders".

so need macro whenever cell in column d starts o, cut whole row , insert (needs insert isn't blanks when pasting) paste below data. shift data since inserting. problem i'm having macro continue cut , paste though have gone through rows in data set. 

sub moveopens()  'this im using establish last row in data set   cells(1, 1).select   selection.end(xldown).select   nrowmax = selection.row  = 2 nrowmax     sitem = cells(i, 4)      while left(sitem, 1) = "o"         rows(i).select         selection.cut     'moves cursor below data set         selection.end(xltoleft).select         selection.end(xldown).select         selection.offset(4, 0).select     'this part works thinks loop doesn't stop      'and start copy , pasting below new data section     selection.insert         sitem = cells(i, 4)     loop next  end sub

how can macro know when have reached last row doesn't continue cutting , paste rows copied , pasted? let me know if need more details

here excel sheet looks like

i hope don't mind re-wrote code scratch. looks might have recorded macro this, place start when not sure how approach it, produces inefficient , confusing code sometimes.

anyway, should work you:

sub moveopens()  dim lastrow, newlast, movedcount integer  lastrow = activesheet.cells(activesheet.rows.count, "a").end(xlup).row 'find last row newlast = lastrow + 1 'newlast tracks new last row rows copied , pasted @ end movedcount = 0     = 2 lastrow         if left(cells(i, 4), 1) = "o"    'copy row, increment newlast , paste @ bottom.             rows(i).cut             'lastrow = lastrow - 1             cells(newlast, 1).select             activesheet.paste             rows(i).delete             = - 1  'since deleted row, must decrement             movedcount = movedcount + 1  'keeps track of number of rows moved not overshoot original last line          end if         if + movedcount = lastrow exit 'exit loop if reached original last line of file     next end sub

Comments

Post a Comment

Popular posts from this blog

neo4j - finding mutual friends in a cypher statement starting with three or more persons -

Image
i trying build cypher statement neo4j know 2-n starting nodes name , need find node (if any) can reached of starting nodes. at first tought similar "mutual friend" situation handled (start1)-[*..2]->(main)<-[*..2]-(start2) in case have more 2 starting points around 6 know name. so puzzled how can include third, fourth , on node cypher able find commmon root amongst them. in above example neo4j website need path starting 'dilshad', 'becky' , 'cesar' check if have common friend (anders) excluding 'filipa' , 'emil' not friends of three. so far create statement programmatically looks like match (start1 {name:'person1'}), (start2 {name:'person2'}), (start3 {name: 'person3'}), (main) (start1)-[*..2]->(main) , (start2)-[*..2]->(main) , (start3)-[*..2]->(main) return distinct main but wondering if there more elegant / efficient way in cypher possibly use list of names parameter ...
Read more

php - How to remove letter in front of the word laravel -

Image
based on picture above result of var_dump() , dd() of same variable ,when var_dump() , apostrophe (') symbol in black diamond of question mark , when dd() same variable , apostrophe can seen letter 'b' appear in front of words what want can me result : loreal's sdn bhd and @ same time want remove special character ( excluding these 4 symbols (-) ,(_) ,('),(,) ) simply escape special character resolve issue. mysqli_real_escape_string resolve issue. $name = mysqli_real_escape_string($request()->user); or use addslashes function() $name = addslashes($request()->user);
Read more

minify - Minimizing css files -

i want know how css files can minimized. currently, using external sites css minifier compress css files. however, after removing whitespaces, comments, etc, file sizes reduced 10-15%. how frameworks bootstrap manage make minimized versions kilobytes. as example, css is: body { background-color: #ff0; } the reduction goes 28 bytes 22 bytes other css files have lot more characters still smaller this. actually minifying code means it's remove thing code white space characters new line characters comments block delimiters it reduces amount of code has transferred on web , speed site load fastly.but unreadable format.
Read more