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
Post a Comment