Replace cell value

[ava]

I need to examine each cell value in column A and if the cell value is less than 5, I need to change the value in that cell to 5. If the cell value is greater than 5, then no change is required for that cell. Can someone please provide a solution or direct me to a post that has solved this problem. Thanks for your help.

 

[Anthony47]

Do you need to correct an existing worksheet, i.e. scanning all the data in col A and do the change, or you wish from now on to control what the user types in the cells?

Bye

 

[RSXchin]

Sub Five_or_more()
     Dim Lastrow as long, i as Long
     Lastrow = cells(rows.count, 1).end(xlup).row
     for i = 2 to LastRow
          If cells(1,i) < 5 then
               cells(1,i) = 5
          End If
     Next i
End Sub

 

[Smitty]

Welcome to the Board!

You can use =IF(A1<5,5,A1) copied down in another column.

Then you can can simply copy the formula range as values on top of the source range.

HTH,