excel - Looped call on rows in VBA -
i'm trying run call on top row, delete row , move cells below , run on new top row again. repeat excercise till there no more rows left. , yes know slow way of doing it, call takes 10 secs each row, it's nice way of keeping track of progression (i.e how many rows left).
this i've got far, not understanding request delete range a2:c2 , move cells below if there value in range a3.
any appreciated!
sub loop_through_rows() dim rngquantitycells range set rngquantitycells = range("a2", range("a2").end(xldown)) = 1 rngquantitycells call runsplit if range("a3").value > 0 range("a2:c2”).delete shift:=xlup end if next end sub
try this:
sub loop_through_rows() dim rngquantitycells range set rngquantitycells = range("a2", range("a2").end(xldown)) = 1 rngquantitycells call runsplit if range("a3").value > 0 range("a2:c2").delete shift:=xlup end if next end sub
note needed then
on same line. also, have 2 "styles"(?) of quotes in original post on range("a2:c2")
.
Comments
Post a Comment