excel - How to apply macro to all rows? -


i have following code, , works first value in column, need code modified applies if statement values in column. right putting result 40 + values in column k, need code run first evaluates k2, k3, k4 etc. please help!

sub uptrange()    dim upt range, cell range, result range set upt = range("k2:k2642") set result = range("l2:l2642")  each cell in upt  if cell.value >= 40 result = "40 +" elseif cell.value = (30 <= 39) result = "30 - 39" elseif cell.value = (20 <= 29) result = "20 - 29" elseif cell.value = (10 <= 19) result = "10 - 19" elseif cell.value = (2 <= 9) result = "2 - 9" elseif cell.value = (0 <= 1) result = "0 - 1" else: cell.value = "error" end if  next  each cell in result  range("l2").value = result next   end sub 

if cell.value = (30 <= 39) 

is same as

if cell.value = true 

because you're evaluating expression 30 <= 39, gives true...

if want check range should use like

if cell.value > 30 , cell.value <= 39 

once have value in result this:

cell.offset(0, 1).value = result 

to place result 1 cell right of cell

edit

sub uptrange()      dim upt range, cell range, result, v      set upt = activesheet.range("k2:k2642")      each cell in upt      v=cell.value      if v >= 40         result = "40 +"     elseif v > 30 , v <= 39)         result = "30 - 39"     elseif         'etc etc     else         result = "error"     end if      cell.offset(0, 1).value = result      next  end sub 

Comments

Popular posts from this blog

Email notification in google apps script -

c++ - Difference between pre and post decrement in recursive function argument -

javascript - IE11 incompatibility with jQuery's 'readonly'? -