Applying Macro to multiple rows, respectively

[TuckerStevens]

Hello, I'm new to macros - any help appreciated - I'm sure its quite simple.

My code:

Sub NameClear2()

If Range("M8") = 0 Then
Range("B8") = 0

Else
Range("B8") = Range("B8")

End If

End Sub

I want this same function to apply to M9:M200, keeping B9 with M9 and so on respectively until B200 with M200. I think I just need a loop, but don't know how to write it?

Thanks!

 

[dreid1011]

Sub NameClear2()
Dim i As Integer
i = 8
For i = 8 to 200
If Range("M"&i) = 0 Then
Range("B"&i)= 0
Else
Range("B"&i) = Range("B"&i)
End If
End Sub

 

[TuckerStevens]

Sub NameClear2()
Dim i As Integer
i = 8
For i = 8 to 200
If Range("M"&i) = 0 Then
Range("B"&i)= 0
Else
Range("B"&i) = Range("B"&i)
End If
End Sub

This gives me a compile error: For without next. What do you think? I copy pasted that directly...

 

[dreid1011]

This gives me a compile error: For without next. What do you think? I copy pasted that directly...

Oops, you're right. I missed it.

Sub NameClear2()
Dim i As Integer
i = 8
For i = 8 to 200
If Range("M"&i) = 0 Then
Range("B"&i)= 0
Else
Range("B"&i) = Range("B"&i)
End If
[B][/B][COLOR="#FF0000"]Next[/COLOR]
End Sub

Add the "Next" after the "End If" if you haven't already.

 

[My Aswer Is This]

The title of your sub is: Sub NameClear2()

When you say: If Range("M8") = 0
Do you mean zero or do you mean empty?