simple code needed

[morbiuss]

Hello

I have this code

Sub endturn()​

If Sheets("condition").Range("k2").Value = True Then​

Sheets("condition").Range("m2").Value = Sheets("condition").Range("m2").Value - 1​

End If

If Sheets("condition").Range("k3").Value = True Then
Sheets("condition").Range("m3").Value = Sheets("condition").Range("m3").Value - 1
End If

​

End Sub​

that work fine
but i'd like to have the same thing to every line up to 100 without copying it 100 times
is there a way?

 

[Michael M]

Try

Sub MM1()
dim r as long
For r = 2 To 100
If Sheets("condition").Range("k" & r).Value = True Then
Sheets("condition").Range("m" & r).Value = Sheets("condition").Range("m" & r).Value - 1
End If
Next r
end sub

 

[JoeMo]

With Sheets("condition")
For i = 2 to 101

If .Cells(i,"K").Value = True Then
​

.Cells(i,"M").Value = .Cells(i,"M").Value - 1
​

End If
Next i
End With

 

[hiker95]

morbiuss,

Please TEST this FIRST in a COPY of your workbook (always make a backup copy before trying new code, you never know what you might lose).

Sub endturnV2()
' hiker95, 09/04/2014, ME803444
Dim r As Long
Application.ScreenUpdating = False
With Sheets("condition")
  For r = 2 To 100
    If .Range("k" & r).Value = True Then
      .Range("m" & r).Value = .Range("m" & r).Value - 1
    End If
  Next r
End With
Application.ScreenUpdating = True
End Sub

Before you use the macro with Excel 2007 or newer, save your workbook, Save As, a macro enabled workbook with the file extension .xlsm

Then run the endturnV2 macro.

 

[morbiuss]

Thanks alot. it works perfectly. saved me lots of time

 

[hiker95]

morbiuss,

Thanks for the feedback.

You are very welcome. Glad we could help.

And, come back anytime.