Else without if error

[shukhar]

Hi

I'm trying to use the code below:

If Abs(Sheets("Template").Range("C39")) = 0 Then Sheets("Deals").Range("TraderStart").Offset(i, 0).Value = "" _

Else: If Application.IsText(Sheets("Template").Range("d14")) Then MsgBox "Error in price calculation", vbOKOnly, "error"
Else: Sheets("Deals").Range("TraderStart").Offset(i, 0).Value = Sheets("Template").Range("D14").Value

End If
Next i

However, VBA does not seem to like it. I get the error message 'Else without if' on the second if satement. Not sure what is wrong as there is an if statement which proceeds the Else...

Thanks

 

[Joe4]

Try entering your IF statement like this:

If Abs(Sheets("Template").Range("C39")) = 0 Then 
    Sheets("Deals").Range("TraderStart").Offset(i, 0).Value = ""
Else 
    If Application.IsText(Sheets("Template").Range("d14")) Then 
        MsgBox "Error in price calculation", vbOKOnly, "error"
    Else 
        Sheets("Deals").Range("TraderStart").Offset(i, 0).Value = Sheets("Template").Range("D14").Value
    End If
End If

 

[Jonmo1]

If your going to use both the Then and Else parts of the if, they cannot be on the same line as the condtion...

If Condition Then
    Do this if it's true
Else
    Do that if it's false
End if

Hope that helps..

 

[Norie]

This will compile.

If Abs(Sheets("Template").Range("C39")) = 0 Then
    Sheets("Deals").Range("TraderStart").Offset(i, 0).Value = "" 
ElseIf Application.IsText(Sheets("Template").Range("d14")) Then
    MsgBox "Error in price calculation", vbOKOnly, "error"
Else
    Sheets("Deals").Range("TraderStart").Offset(i, 0).Value = Sheets("Template").Range("D14").Value
End If

But I don't know if it will actually do what you want because I'm not really following the logic of what you posted.

 

[shukhar]

Just tried that but I'm still egtting the same error messge..

 

[Richard Schollar]

Hi

Norie left in a line continuation character. Once removed it should work:

If Abs(Sheets("Template").Range("C39")) = 0 Then
    Sheets("Deals").Range("TraderStart").Offset(i, 0).Value = "" 
ElseIf Application.IsText(Sheets("Template").Range("d14")) Then
    MsgBox "Error in price calculation", vbOKOnly, "error"
Else
    Sheets("Deals").Range("TraderStart").Offset(i, 0).Value = Sheets("Template").Range("D14").Value
End If

 

[shukhar]

This will compile.

If Abs(Sheets("Template").Range("C39")) = 0 Then
    Sheets("Deals").Range("TraderStart").Offset(i, 0).Value = "" 
ElseIf Application.IsText(Sheets("Template").Range("d14")) Then
    MsgBox "Error in price calculation", vbOKOnly, "error"
Else
    Sheets("Deals").Range("TraderStart").Offset(i, 0).Value = Sheets("Template").Range("D14").Value
End If

But I don't know if it will actually do what you want because I'm not really following the logic of what you posted.

Tried that aswell but still getting the same error messge...

 

[Joe4]

Just tried that but I'm still egtting the same error messge..

Tried which one? You have three replies...

 

[Norie]

shukhar

You've only posted a small section of your code.

There appears to be some sort of loop going on but you've not posted that part.

Richard

I swear that I didn't have that line continuation character in the code I copied from the VBE.