excel - Skip rows with blank cell in particular column -
please advise me how change code select rows if have value in bc column (ignore complete row if cell in bc column blank):
private sub commandbutton3_click() range("a:a,b:b,c:c,e:e,bc:bc").select selection.copy workbooks.add selection.pastespecial paste:=xlpastevalues, operation:=xlnone, skipblanks:=true, transpose:=false selection.pastespecial paste:=xlpasteformats, operation:=xlnone, skipblanks:=true, transpose:=false end sub
first run code is. perform row deletions in added workbook:
sub dural() dim n long, long, r range n = cells(rows.count, "bc").end(xlup).row = n 1 step -1 set r = cells(i, "bc") if isempty(r) r.entirerow.delete end if next end sub
Comments
Post a Comment