For loop for a column

[jebenexcel]

hey guys,

I need a macro to make all data in one column of variable size do this:
if data in a cell of the column M is bigger than 900, subtract 900.
Afterwards, if the numbers 33 and 34 pop up, they should be changed to 13 and 14, respectively.

This is pretty basic stuff, but I don't know the syntax, can you guys help?

 

[Osvaldo Palmeiro]

Hi. See if this code does what you need.

Sub ChangeValues()
 Dim rngM As Range
  For Each rngM In Range("M1:M" & Cells(Rows.Count, "M").End(3).Row)
   If rngM.Value = 933 Then rngM.Value = 13
   If rngM.Value = 934 Then rngM.Value = 14
   If rngM.Value > 900 Then rngM.Value = rngM.Value - 900
  Next rngM
End Sub

 

[Fluff]

How about

Sub ChangeM()
   With Range("M2", Range("M" & Rows.Count).End(xlUp))
      .Value = Evaluate(Replace("if(@=933,13,if(@=934,14,if(@>900,@-900,@)))", "@", .Address))
   End With
End Sub