excel - If the value of a given cell is not blank, then cut and paste the whole row into another worksheet -
i beginner in excel macro. have done few using record macro functions, tweaking them bit etc.
this time have start scratch , lost.
i looking simple way complete following: if value of given cell (let's cell u) not blank, cut , paste whole row worksheet , save changes.
can please me building macro. have short turnaround 1 , having headache already. keen on learning missing basics. planning on taking classes soon.
thanks bunch guys! appreciated :) mike
as siva stated, isn't me place. being said, happen have old code can copy/paste benefit. works dynamically through rows data column u on sheet 1:
sub cutcopypaste() dim x integer dim y integer dim integer x = sheets("sheet1").range("u" & rows.count).end(xlup).row y = sheets("sheet2").range("u" & rows.count).end(xlup).row = 1 x if not range("u" & i).value = "" range("u" & i).entirerow.cut sheets("sheet2").range("a" & y) workbooks("your workbook.xlsm").save y = y + 1 end if next end sub
Comments
Post a Comment