If statement
 

Any help with the following code would be appreciated. Do I have too many if
statements? Or should I use elseif?

List Column 2 Type Score 30 60 90 120 C/O
Smith FO 600 150 1 2 7 X
C
Jones FR 200 260 0 0 0 0

Williams FR 600 140 5 3 1 0
P

If my code worked the way I wanted it to it should calculate 2 for column
150DEL30, 2 for 150Del60, 2 for 150Del90, 1 for 150Del120, 2 for 150CO.
What am I doing wrong?

Dim 150DEL30 As Long
Dim 150Del60 As Long
Dim 150Del90 As Long
Dim 150Del120 As Long
Dim 150CO As Long

For Each cell In Range("List")

If cell.Offset(0, 1) = "FO" Or cell.Offset(0, 1) = "FR" Then
If cell.Offset(0, 3) 0 And cell.Offset(0, 3) <= 150 Then
Select Case cell.Offset(0, 2)
Case 600 To 606
If cell.Offset(0, 4) = 1 Then
150DEL30 = 150DEL30 + 1 ""+1 to Count?
End If
If cell.Offset(0, 5) = 1 Then
150DEL60 = 150DEL60 + 1
End If
If cell.Offset(0, 6) = 1 Then
150DEL90 = 150DEL90 + 1
End If
If cell.Offset(0, 7) = "X" Then
150NA = 150NA + 1
End If
If cell.Offset(0, 8) < " "
150CO = 150CO + 1
End If
End Select
Next Cell

If statement
 

The letters C & P should be under the C/O column. Not sure what happened?

"Marie" wrote:

Any help with the following code would be appreciated. Do I have too many if
statements? Or should I use elseif?

List Column 2 Type Score 30 60 90 120 C/O
Smith FO 600 150 1 2 7 X
C
Jones FR 200 260 0 0 0 0

Williams FR 600 140 5 3 1 0
P

If my code worked the way I wanted it to it should calculate 2 for column
150DEL30, 2 for 150Del60, 2 for 150Del90, 1 for 150Del120, 2 for 150CO.
What am I doing wrong?

Dim 150DEL30 As Long
Dim 150Del60 As Long
Dim 150Del90 As Long
Dim 150Del120 As Long
Dim 150CO As Long

For Each cell In Range("List")

If cell.Offset(0, 1) = "FO" Or cell.Offset(0, 1) = "FR" Then
If cell.Offset(0, 3) 0 And cell.Offset(0, 3) <= 150 Then
Select Case cell.Offset(0, 2)
Case 600 To 606
If cell.Offset(0, 4) = 1 Then
150DEL30 = 150DEL30 + 1 ""+1 to Count?
End If
If cell.Offset(0, 5) = 1 Then
150DEL60 = 150DEL60 + 1
End If
If cell.Offset(0, 6) = 1 Then
150DEL90 = 150DEL90 + 1
End If
If cell.Offset(0, 7) = "X" Then
150NA = 150NA + 1
End If
If cell.Offset(0, 8) < " "
150CO = 150CO + 1
End If
End Select
Next Cell