Case without case select and else without if error

[alxn]

Hey,

I am getting some errors running this piece of code, I keep getting a case without case select and another if error. I've gone trough and changed a few things but the error is still ongoing. Any help would be good thank you.

Case "Group 2"
                If Day(DOH + 60) = 1 Then
                    If class = "Class 1" Then
                        GracePeriod = DOH + 60
                    Else
                    GracePeriod = Application.EoMonth(DOH + 60, 0) - 0
                    If class = "Class 2" Then
                        GracePeriod = DOH + 30
                End If
         
         Case "Group1", "1"
            If Day(DOH + 60) = 1 Then
                If class = "F Class" Then
                    GracePeriod = DOH + 60
                Else
                    GracePeriod = Application.EoMonth(DOH + 60, 0) - 44
                ElseIf class = "S Class" Then
                    If Day(DOH + 30) = 1 Then
                        GracePeriod = DOH + 30
                    Else
                        GracePeriod = Application.EoMonth(DOH + 30, 0) - 0
                    End If

 

[Joe4]

The error message is a bit of a red herring. The issue is actually with your If statements.
The number of "End If" statements does not match your "If" statements.

In the first block alone:

                If Day(DOH + 60) = 1 Then
                    If class = "Class 1" Then
                        GracePeriod = DOH + 60
                    Else
                    GracePeriod = Application.EoMonth(DOH + 60, 0) - 0
                    If class = "Class 2" Then
                        GracePeriod = DOH + 30
                End If

Unless you do the THEN block on the same line as the IF block, i.e.
If something Then something else
every "If" needs a corresponding "End If".

 

[alxn]

The error message is a bit of a red herring. The issue is actually with your If statements.
The number of "End If" statements does not match your "If" statements.

In the first block alone:

                If Day(DOH + 60) = 1 Then
                    If class = "Class 1" Then
                        GracePeriod = DOH + 60
                    Else
                    GracePeriod = Application.EoMonth(DOH + 60, 0) - 0
                    If class = "Class 2" Then
                        GracePeriod = DOH + 30
                End If

Unless you do the THEN block on the same line as the IF block, i.e.
If something Then something else
every "If" needs a corresponding "End If".

Hey, I apologize for the late response, but I am still getting the same error with this input.

 

[Joe4]

Hey, I apologize for the late response, but I am still getting the same error with this input.

Note what I gave you is just one example. You have to correct each/all of your Case blocks.
The total number if "IF" statements should match the total number of "END IF" statements.

After you have made ALL the updates, if you are still having issues, please post your updated code.
I cannot tell what might still be wrong if I don't see your updated code.