If else statement-Need help with coding

macropod · #5 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

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
UserForm VBA coding	Niclasfa	Word VBA	1	04-08-2015 10:23 PM
What kind of coding?	ep2002	Excel	3	07-22-2014 07:52 AM
text becomes pages of these *** and then coding	EkkoJohnny	Word	1	11-22-2013 12:37 AM
Coding into a macro a carriage return	sinbad	Word VBA	6	02-27-2012 03:51 AM
Extreme Color Coding Outlook	boodmatt	Outlook	0	06-27-2011 02:13 AM