VBA Sub is not filling the excel cell with a value

0
votes

I have the following code that is not not returning a value to the referenced cell. Any ideas?

    Sub If_And_ElseIf()
    
    'Retrieves incentive baseline for corp mgr 1
    
        Dim TeamHire As Integer
        Dim InstalltoGoal As Integer
        Dim Baseline As Integer
        
        TeamHire = Range("B3").Value
        InstalltoGoal = Range("B7").Value
        Baseline = Range("C12").Value
        
    'Line 1 of Pay Matrix
        If TeamHire < Range("I5").Value And InstalltoGoal < Range("K2").Value Then
            Baseline = 0
        ElseIf TeamHire < Range("I5").Value And InstalltoGoal >= Range("K2").Value < Range("L2").Value Then
            Baseline = 400
        ElseIf TeamHire < Range("I5").Value And InstalltoGoal >= Range("L2").Value < Range("M2").Value Then
            Baseline = 600
        ElseIf TeamHire < Range("I5").Value And InstalltoGoal >= Range("M2").Value < Range("N2").Value Then
            Baseline = 800
        ElseIf TeamHire < Range("I5").Value And InstalltoGoal >= Range("N2").Value < Range("O2").Value Then
            Baseline = 920
        ElseIf TeamHire < Range("I5").Value And InstalltoGoal >= Range("O2").Value Then
            Baseline = 1040
    'Line 2 of Pay Matrix
        ElseIf TeamHire >= Range("I5").Value < Range("I6") And InstalltoGoal < Range("K2") Then
            Baseline = 400
        ElseIf TeamHire >= Range("I5").Value < Range("I6") And InstalltoGoal >= Range("K2") < Range("L2").Value Then
            Baseline = 800
        ElseIf TeamHire >= Range("I5").Value < Range("I6") And InstalltoGoal >= Range("L2") < Range("M2").Value Then
            Baseline = 1000
        ElseIf TeamHire >= Range("I5").Value < Range("I6") And InstalltoGoal >= Range("M2") < Range("N2").Value Then
            Baseline = 1200
        ElseIf TeamHire >= Range("I5").Value < Range("I6") And InstalltoGoal >= Range("N2") < Range("O2").Value Then
            Baseline = 1320
        ElseIf TeamHire >= Range("I5").Value < Range("I6") And InstalltoGoal >= Range("O2").Value Then
            Baseline = 1440
    'Line 3 of Pay Matrix
        ElseIf TeamHire >= Range("I6").Value < Range("I7") And InstalltoGoal < Range("K2") Then
            Baseline = 600
        ElseIf TeamHire >= Range("I6").Value < Range("I7") And InstalltoGoal >= Range("K2") < Range("L2").Value Then
            Baseline = 1000
        ElseIf TeamHire >= Range("I6").Value < Range("I7") And InstalltoGoal >= Range("L2") < Range("M2").Value Then
            Baseline = 1200
        ElseIf TeamHire >= Range("I6").Value < Range("I7") And InstalltoGoal >= Range("M2") < Range("N2").Value Then
            Baseline = 1400
        ElseIf TeamHire >= Range("I6").Value < Range("I7") And InstalltoGoal >= Range("N2") < Range("O2").Value Then
            Baseline = 1520
        ElseIf TeamHire >= Range("I6").Value < Range("I7") And InstalltoGoal >= Range("O2").Value Then
            Baseline = 1640
    'Line 4 of Pay Matrix
        ElseIf TeamHire >= Range("I7").Value < Range("I8") And InstalltoGoal < Range("K2") Then
            Baseline = 800
        ElseIf TeamHire >= Range("I7").Value < Range("I8") And InstalltoGoal >= Range("K2") < Range("L2").Value Then
            Baseline = 1200
        ElseIf TeamHire >= Range("I7").Value < Range("I8") And InstalltoGoal >= Range("L2") < Range("M2").Value Then
            Baseline = 1400
        ElseIf TeamHire >= Range("I7").Value < Range("I8") And InstalltoGoal >= Range("M2") < Range("N2").Value Then
            Baseline = 1600
        ElseIf TeamHire >= Range("I7").Value < Range("I8") And InstalltoGoal >= Range("N2") < Range("O2").Value Then
            Baseline = 1720
        ElseIf TeamHire >= Range("I7").Value < Range("I8") And InstalltoGoal >= Range("O2").Value Then
            Baseline = 1840
    'Line 5 of Pay Matrix
        ElseIf TeamHire >= Range("I8").Value < Range("I9") And InstalltoGoal < Range("K2") Then
            Baseline = 920
        ElseIf TeamHire >= Range("I8").Value < Range("I9") And InstalltoGoal >= Range("K2") < Range("L2").Value Then
            Baseline = 1320
        ElseIf TeamHire >= Range("I8").Value < Range("I9") And InstalltoGoal >= Range("L2") < Range("M2").Value Then
            Baseline = 1520
        ElseIf TeamHire >= Range("I8").Value < Range("I9") And InstalltoGoal >= Range("M2") < Range("N2").Value Then
            Baseline = 1720
        ElseIf TeamHire >= Range("I8").Value < Range("I9") And InstalltoGoal >= Range("N2") < Range("O2").Value Then
            Baseline = 1840
        ElseIf TeamHire >= Range("I8").Value < Range("I9") And InstalltoGoal >= Range("O2").Value Then
            Baseline = 1960
    'Line 6 of Pay Matrix
        ElseIf TeamHire >= Range("I9").Value < Range("I10") And InstalltoGoal < Range("K2") Then
            Baseline = 1040
        ElseIf TeamHire >= Range("I9").Value < Range("I10") And InstalltoGoal >= Range("K2") < Range("L2").Value Then
            Baseline = 1440
        ElseIf TeamHire >= Range("I9").Value < Range("I10") And InstalltoGoal >= Range("L2") < Range("M2").Value Then
            Baseline = 1640
        ElseIf TeamHire >= Range("I9").Value < Range("I10") And InstalltoGoal >= Range("M2") < Range("N2").Value Then
            Baseline = 1840
        ElseIf TeamHire >= Range("I9").Value < Range("I10") And InstalltoGoal >= Range("N2") < Range("O2").Value Then
            Baseline = 1960
        ElseIf TeamHire >= Range("I9").Value < Range("I10") And InstalltoGoal >= Range("O2").Value Then
            Baseline = 2080
    'End If/Then/Else Statement
        Else: MsgBox "Error"
        End If
        
    End Sub

enter image description here

excelvba
I attached pictures to help understand due to formatting limitations – Jmryan267
You don't ever assign a value to a cell. Or if you're trying to call this from a cell it needs to be a function and you need to return a value. – Warcupine
Range("C12").Value = Baseline (at the end, before End Sub) would actually assign to a cell. – BigBen
InstalltoGoal >= Range("K2").Value < Range("L2").Value should probably be InstalltoGoal >= Range("K2").Value And InstalltoGoal< Range("L2").Value, However the >= Range("K2").Value is not required as the previous condition InstalltoGoal < Range("K2").Value was false. – CDP1802