Compile Error Block If End If

[bloodmilksky]

Hi Guys,

This is my first real attempt at writing some code. I think I have got everything right but keeps on coming up with a Compile Error Block If End IF.

Can anyone help ?

Dim daysremaining As Integer, daystaken As Integer, result As String, myValue As Variantdaystaken = Range("B13").Value
daysremaining = Range("D14").Value


If daysremaining <= 1 Then
    Msg = " You Do Not Have Enough Holiday! Would You Like To Continue ? " & Application.UserName
    Ans = MsgBox(Msg, vbYesNo)
    If Ans = vbNo Then
                Application.DisplayAlerts = False
                ThisWorkbook.Save
                Application.DisplayAlerts = True
                Application.Quit
                End If
    If Ans = vbYes Then
                    Sheets("Request Form").Select
                    Range("Employee3").ClearContents
                    Range("DateRequest").ClearContents
                    Range("Employee3") = Application.UserName
                    End If
If daystaken >= 25 Then
    Msg = " You Do Not Have Enough Holiday! Would You Like To Continue ? " & Application.UserName
    Ans = MsgBox(Msg, vbYesNo)
    If Ans = vbNo Then
                Application.DisplayAlerts = False
                ThisWorkbook.Save
                Application.DisplayAlerts = True
                Application.Quit
                End If
    If Ans = vbYes Then
                    Sheets("Request Form").Select
                    Range("Employee3").ClearContents
                    Range("DateRequest").ClearContents
                    Range("Employee3") = Application.UserName
Else


NewBookingCheck.NewBookingCheck
End If


End If
End Sub

MAny thanks

Jamie

 

[njimack]

Dim daysremaining As Integer, daystaken As Integer, result As String, myValue As Variantdaystaken = Range("B13").Value
daysremaining = Range("D14").Value


If daysremaining <= 1 Then
    Msg = " You Do Not Have Enough Holiday! Would You Like To Continue ? " & Application.UserName
    Ans = MsgBox(Msg, vbYesNo)
    If Ans = vbNo Then
                Application.DisplayAlerts = False
                ThisWorkbook.Save
                Application.DisplayAlerts = True
                Application.Quit
                End If
    If Ans = vbYes Then
                    Sheets("Request Form").Select
                    Range("Employee3").ClearContents
                    Range("DateRequest").ClearContents
                    Range("Employee3") = Application.UserName
                    End If
[COLOR=#FF0000][B]End If
[/B][/COLOR][COLOR=#FF0000][/COLOR]If daystaken >= 25 Then
    Msg = " You Do Not Have Enough Holiday! Would You Like To Continue ? " & Application.UserName
    Ans = MsgBox(Msg, vbYesNo)
    If Ans = vbNo Then
                Application.DisplayAlerts = False
                ThisWorkbook.Save
                Application.DisplayAlerts = True
                Application.Quit
                End If
    If Ans = vbYes Then
                    Sheets("Request Form").Select
                    Range("Employee3").ClearContents
                    Range("DateRequest").ClearContents
                    Range("Employee3") = Application.UserName
Else


NewBookingCheck.NewBookingCheck
End If


End If
End Sub

 

[bloodmilksky]

Thank you I have made the adjustment but its not running the last bit of code?

[COLOR=#333333]Else[/COLOR]

NewBookingCheck.NewBookingCheck
End If


End If [COLOR=#333333]End Sub[/COLOR]

 

[njimack]

It compiles without a problem for me. Note that "End Sub" shouldn't follow "End If", it should be on a separate line.

 

[MARK858]

@bloodmilksky, assuming that Neil's post solved your issue then just a suggestion but if you install the code indenter in the link below it will indent the code in such a way that things like Ifs and End If's end up lining up making it much easier to spot errors like the missing End If.


Office Automation Ltd. - Smart Indenter