Need VBA Code for the below scenario

[Dinesaaa]

Hey Guys,

Below is the scenario to write VBA code:-

> If Score is > 900
> If Income is > 600000
> If Occupation = "Salaried" and Income > 500000
> If Marital Status = "Single"
> If Own house = "yes"

1, If any one of the above criteria met result should be "Loan Eligible"
2, If any one of the above criteria not met "Not Eligible"


Below is my code where "Not Eligible" is not working:-

Function Loan(Cibilscore As Double, Ownhouse As String, Occupation As String, Marritalstatus As String, Income As Double)
If Cibilscore > 900 Then
If LCase(Ownhouse) = "yes" Then
If LCase(Occupation) = "salaried" And Income > 60000 Then
If LCase(Marritalstatus) = "single" Then
Loan = "Eligible"
End If
End If
End If
Else
Loan = "Not Eligible"
End If
End Function

 

[mrhstn]

You can set loan to not eligible as default then change it if the criteria are met.

Function Loan(Cibilscore As Double, Ownhouse As String, Occupation As String, Marritalstatus As String, Income As Double)
Loan = "Not Eligible"
If Cibilscore > 900 Then
    If LCase(Ownhouse) = "yes" Then
        If LCase(Occupation) = "salaried" And Income > 60000 Then
            If LCase(Marritalstatus) = "single" Then
                Loan = "Eligible"
            End If
        End If
    End If
End If
End Function

 

[Dinesaaa]

I tried the below code but not working???


Function Loaneligibiltycheck(Cibilscore As Double, Ownhouse As String, Occupation As String, Martialstatus As String, Income As Double)
Loaneligibiltycheck = "Not Eligible"
If Cibilscore >= 900 Then
If LCase(Ownhouse) = "yes" Then
If LCase(Occupation) = "salaried" And Income >= 600000 Then
If LCase(Martialstatus) = "single" Then
Loaneligibiltycheck = "Eligible"
End If
End If
End If
End If


End Function


Any corrections please?

 

[JumpingCrab]

Your selection criterion is somewhat ambiguous. Assuming you mean the following:
1. Any one or more of the criteria met: "Eligible"
2. None of the criteria met: "Not Eligible"

Then the following code will work:

Function Loan(Cibilscore As Double, Ownhouse As String, Occupation As String, Marritalstatus As String, Income As Double)
If Cibilscore > 900 Then
    Loan = "Eligible"
ElseIf Income > 600000 Then
    Loan = "Eligible"
ElseIf LCase(Ownhouse) = "yes" Then
    Loan = "Eligible"
ElseIf LCase(Occupation) = "salaried" And Income > 500000 Then
    Loan = "Eligible"
ElseIf LCase(Marritalstatus) = "single" Then
    Loan = "Eligible"
Else
    Loan = "Not Eligible"
End If
End Function

 

[Dinesaaa]

Thank you so much It works.

 

[mrhstn]

As an alternative

Function LoanE(Cibilscore As Double, Ownhouse As String, Occupation As String, Marritalstatus As String, Income As Double)
Dim test As Integer
test = (Cibilscore > 900) * (Income > 600000) * (LCase(Ownhouse) = "yes") * ((LCase(Occupation) = "salaried") + (Income > 500000)) * (LCase(Marritalstatus) = "single")
LoanE = IIf(test = True, "Eligible", "Not Eligible")
End Function