VBA for If & Else

[bademployee]

Hi all,

Currently using:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Range("b12") = "UAN" Then Range("z12") = "Variable"
End Sub

But I need to modify so if B12 contained any other word other than "UAN", I need Z12 to display "Fixed".

I'm unable to get the syntax/code correct.

Thanks for any help in advance.

Mark

 

[Legacy 143009]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Range("b12") = "UAN" Then
        Range("z12") = "Variable"
    Else
        Range("z12") = "Fixed"
    End Sub

 

[bademployee]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Range("b12") = "UAN" Then
        Range("z12") = "Variable"
    Else
        Range("z12") = "Fixed"
    End Sub

Doesn't seem to work.

I forgot to add b12 is actually b12:c12 (merged cells), would this cause an issue?

Also, if b12:c12 = "" then I need z12 to be "" also. Not sure how to add this.

Thanks

 

[Legacy 143009]

No it wont be an issue. Sorry for the false syntax. Right syntax is:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Range("b12") = "UAN" Then
        Range("z12") = "Variable"
    ElseIf Range("b12") = "" Then
        Range("z12") = ""
    Else
        Range("z12") = "Fixed"
    End If
End Sub

 

[bademployee]

No it wont be an issue. Sorry for the false syntax. Right syntax is:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Range("b12") = "UAN" Then
        Range("z12") = "Variable"
    ElseIf Range("b12") = "" Then
        Range("z12") = ""
    Else
        Range("z12") = "Fixed"
    End If
End Sub

Awesome, works perfectly.

Thank you!