If statement to set two variables

[wmtsub]

Is it possible to:

If [condition] then a="1',and aa="25"

Can not seem to figure the context out.

 

[JoeMo]

If you are using VBA try:

If [condition] then 
     a="1"
     aa="25"
End If

If you want those variables to be numbers, remove the quote marks.

 

[wmtsub]

than you

 

[wmtsub]

I keep gettin errors
"End if without block if"



If awsn = "FINANCE" Then
mg = "Onboard Finance"
m = "Finance"
ActiveSheet.Unprotect "FINANCE"
End If

If awsn = "MERCURY" Then
mg = "Onboard Mercury"
m = "Mercury"
ActiveSheet.Unprotect "MERCURY"
End If

If awsn = "EMAIL" Then mg = "Onboard Complete"
m = "Complete"
ActiveSheet.Unprotect "EMAIL"
End If

 

[Joe4]

The issue is with your last block:

[COLOR=#333333]If awsn = "EMAIL" Then mg = "Onboard Complete"[/COLOR]
[COLOR=#333333]m = "Complete"[/COLOR]
[COLOR=#333333]ActiveSheet.Unprotect "EMAIL"[/COLOR]
[COLOR=#333333]End If[/COLOR]

There are two ways to write IF ... THEN statements in VBA.
One, is to have the whole thing on one line.
In that instance, you would have something on the same line after the word THEN.
However, if you use this option, everything has to be on one line, so you don't have an "END IF" line.

The second is to have it on multiple lines, like the first two you did.
In that case, you need to have an END IF line.

So correct your last block like this:

[COLOR=#333333]If awsn = "EMAIL" Then 
mg = "Onboard Complete"[/COLOR]
[COLOR=#333333]m = "Complete"[/COLOR]
[COLOR=#333333]ActiveSheet.Unprotect "EMAIL"[/COLOR]
[COLOR=#333333]End If[/COLOR]