Else without If

[ChrisM92]

Hi,

When running my code, i keep getting a compile error - Else without if, and it highlights the Else in the middle of the attached. Any ideas why it doesn't want to work? There is definitely an if at the start..
It's part of a larger code that when you click submit on a user form, it puts the data from the "PHE_DateText" box, into a variable cell range based on which BadgeID had been selected.

If PHE_DateText.Value = "" Then Worksheets("Badge Log").Range("K" & BadgeLocation) = ""
Else
Worksheets("Badge Log").Range("K" & BadgeLocation) = DateValue(PHE_DateText.Value)
End If

 

[GWteB]

try

If PHE_DateText.Value = "" Then
    Worksheets("Badge Log").Range("K" & BadgeLocation) = ""
Else
    Worksheets("Badge Log").Range("K" & BadgeLocation) = DateValue(PHE_DateText.Value)
End If

 

[Snakehips]

@ChrisM92

Try.

If PHE_DateText.Value = "" Then 
Worksheets("Badge Log").Range("K" & BadgeLocation) = ""
Else
Worksheets("Badge Log").Range("K" & BadgeLocation) = DateValue(PHE_DateText.Value)
End If

If PHE_DateText.Value = "" Then Worksheets("Badge Log").Range("K" & BadgeLocation) = ""

is effectively a single option if and is complete without an End If
Hope that helps.

 

[GWteB]

... and for completeness:

If PHE_DateText.Value = "" Then Worksheets("Badge Log").Range("K" & BadgeLocation) = "" Else Worksheets("Badge Log").Range("K" & BadgeLocation) = DateValue(PHE_DateText.Value)

... is also an option, less readable though.