Help

Please someone tell em why this code will NOT work. Its part of a long code tha I have written. I'm aprticularly interested in the part in 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"

.
.
.
.

End If
End If
End If

Sheet3.Range("L" & i).Value = grade
Next i

End Sub

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

Please Login or Register  to view this content.

Hope this helps,
theDude

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

use OPTION Explicit

quick read you are missing:
Dim i as long

Next i

"oscarooko" wrote:

>
> Please someone tell em why this code will NOT work. Its part of a long
> code tha I have written. I'm aprticularly interested in the part in
> 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"
>
>

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.

oscarooko wrote:
>
> Please someone tell em why this code will NOT work. Its part of a long
> code tha I have written. I'm aprticularly interested in the part in
> 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"

--

Dave Peterson