Multiple If Statements

[mdsteury]

Hello...new user...limited knowledge of VBA. Here's my question...I have a macro started like this:

Range("S5").Select
ActiveCell.Value = ActiveCell.Value + 1
Range("U5").Select
ActiveCell.Value = ActiveCell.Value + 1
Range("M2").Select
If H1 = 1 Then ActiveCell.Value = ActiveCell.Value + 2

However I would like to do the same for N2 if H1 = 2, and for O2 if H1 > 2. Can someone help please?

 

[JackDanIce]

Welcome to the board. As you gain experience, you'll see very little use of .Select or .Activate.

Based on the above code and your comments, try:

Range("S5").Value = Range("S5").Value + 1
Range("U5").Value = Range("U5").Value + 1

If Range("H1").Value = 1 Then
  Range("M2").Value = Range("M2").Value + 1
  Range("N2").Value = Range("N2").Value + 1
Else
  If Range("H1").Value > 1 Then
     Range("O2").Value = Range("O2").Value + 1
  End If
End If

Lots of ways to make above more efficient, but for now it should suffice; hope it works.

 

[mdsteury]

Thank you! This worked beautifully. I use Excel to do stat keeping for a community basketball league, and I have started to make some improvements in the offseason.

 

[JackDanIce]

Glad it works and best of luck with it!