Help

[oscarooko]

Please someone tell em why this code will NOT work. Its part of a lon
code tha I have written. I'm aprticularly interested in the part i
Orange.

Sub Oscar()
Dim LoanAmount As String
Dim grade As String
Dim FICO As String
Dim lien As String
Dim LTV As String
Dim DTI As String
Dim PropType As String
Dim USBDOCTYPE As String
Dim IncomeDocType As String
Dim OrigTerm As String
Dim ArmotTerm As String
Dim LoanTerm As String
Dim OwnerOccupancy As String
Dim Purpose As String
Dim PPPTerm As String
Dim FTHB As String
Dim PPP As String
Dim Ch7Bankruptcy As String
Dim Ch13Bankruptcy As String
Dim Thirty As String
Dim Sixty As String
Dim Ninety As String
Dim OneTwenty As String
Dim State As String
Dim City As String
For i = 2 To 10000


FICO = Sheet3.Range("U2" & i).Value
lien = Sheet3.Range("AA" & i).Value
LTV = Sheet3.Range("S" & i).Value
DTI = Sheet3.Range("V" & i).Value
PropType = Sheet3.Range("Q" & i).Value
USBDOCTYPE = Sheet3.Range("X" & i).Value
IncomeDocType = Sheet3.Range("Y" & i).Value
lien = Sheet3.Range("AA" & i).Value
OrigTerm = Sheet3.Range("AB" & i).Value
ArmotTerm = Sheet3.Range("AC" & i).Value
LoanTerm = Sheet3.Range("AD2").Value
OwnerOccupancy = Sheet3.Range("AF" & i).Value
Purpose = Sheet3.Range("AG" & i).Value
PPPTerm = Sheet3.Range("AJ" & i).Value
FTHB = Sheet3.Range("AN" & i).Value
PPP = Sheet3.Range("AK" & i).Value
Ch7Bankruptcy = Sheet3.Range("AO" & i).Value
Ch13Bankruptcy = Sheet3.Range("AP" & i).Value
Thirty = Sheet3.Range("M" & i).Value
Sixty = Sheet3.Range("N" & i).Value
Ninety = Sheet3.Range("O" & i).Value
OneTwenty = Sheet3.Range("P" & i).Value
City = Sheet3.Range("B" & i).Value
State = Sheet3.Range("C" & i).Value
LoanAmount = Sheet3.Range("AI" & i).Value
If Len(FICO) < 1 And Len(lien) < 1 Then Exit For

'Disqualifying loans based on the City, State or low FICO score

If State = "HI" Or State = "NM" Or State = "OK" _
Or State = "MS" Or State = "AL" _
Or State = "AK" Or _
((City = "Miami" And State = "FL") Or _
(City = "Queens" And State = "NY") Or _
(City = "Bronx" And State = "NY") Or _
(City = "Staton Island" And State = "NY") Or _
(City = "Manhattan" And State = "NY") Or _
(City = "NY" And State = "NY") Or _
(City = "New York" And State = "NY") Or _
(City = "Brooklyn" And State = "NY") Or _
(City = "Washington" And State = "DC")) Or FICO < 525 Or _
LoanAmount <= 10000 Then
grade = "FAIL"
' Qualifying Loans for Grade D cartegory

Else
If FICO >= 525 And Thirty <= 4 And Sixty <= 4 And Ninety <= 4 _
And OneTwenty <= 4 And LoanAmount >= 10000 And _
(LoanAmount <= 350000 And LTV <= 70 And Occupancy = "OO") Or _
(LoanAmount <= 350000 And LTV <= 80 And PropType = "SFRA") Then _
grade = "D"

 

[Guest]

what isn't working and what does the debugger say?

use OPTION Explicit

quick read you are missing:
Dim i as long

Next i

 

[Dave Peterson]

Lots of people connect directly to the MSNewsServers. They won't see your
colors.

You may want to respost with some indication of what line(s) are causing the
trouble.

 

[theDude]

Here's one way to code your loan conditions (your ORANGE code):

Code
-------------------
Select Case State
Case "HI", "NM", "OK", "MS", "AL", "AK"
grade = "FAIL"
Case "FL"
If City = "Miami" Then
grade = "FAIL"
Else
grade = "PASS"
End If
Case "DC"
If City = "Washington" Then
grade = "FAIL"
Else
grade = "PASS"
End If
Case "NY"
Select Case City
Case "Queens", "Bronx", "Staton Island", "Manhattan", "NY", "New York", "Brooklyn"
grade = "FAIL"
Case Else
grade = "PASS"
End Select
Case Else
grade = "PASS"
End Select
Select Case grade
Case "PASS"
If (FICO < 525) Or (LoanAmount <= 10000) Then
grade = "FAIL"
End If
Case Else
grade = "FAIL"
End Selec