Microsoft Office Forums - View Single Post - [Solved] If else statement-Need help with coding

macropod · 10-30-2015, 01:10 AM

I'd have thought it pretty obvious you could use:

Code:

Sub MetIndividualGoals()
Dim i As Long
With ActiveSheet
  For i = 5 To 7
    If .Range("E" & i).Value >= .Range("F" & i).Value Then
      .Range("H" & i).Value = "Yes"
    Else
      .Range("H" & i).Value = "No"
    End If
  Next
  For i = 14 To 16
    If .Range("E" & i).Value >= .Range("F" & i).Value Then
      .Range("H" & i).Value = "Yes"
    Else
      .Range("H" & i).Value = "No"
    End If
  Next
End With
End Sub

Slightly less obvious is:

Code:

Sub MetIndividualGoals()
Dim i As Long
With ActiveSheet
  For i = 5 To 16
    If (i < 8) Or (i > 13) Then
      If .Range("E" & i).Value >= .Range("F" & i).Value Then
        .Range("H" & i).Value = "Yes"
      Else
        .Range("H" & i).Value = "No"
      End If
    End If
  Next
End With
End Sub