VBA If Cell Equals Certain Value Then Delete Values of Corresponding Named Range

[jaylotheman]

I need help creating a VBA IF statement.

For example this could be used for a budget, a forecast etc.

If the value in cell K17 = "F00" of Sheet1 then clear the values (not formats) of the cells in the Named Range "OneElevenSalary" of Sheet2.
If the value in cell K17 = "F01" of Sheet1 then clear the values (not formats) of the cells in the Named Range "Two10Salary" of Sheet2.
If the value in cell K17 = "F02" of Sheet1 then clear the values (not formats) of the cells in the Named Range "Three9Salary" of Sheet2.
Etc.

Does that make sense? Anybody able to shed light on how to do this? Thanks in advance!

 

[fibonacci1101]

Sub Macro1()

    If Worksheets("Sheet1").Range("K17") = "F00" Then
        Worksheets("Sheet2").Range("OneElevenSalary") = ""
    ElseIf Worksheets("Sheet1").Range("K17") = "F01" Then
        Worksheets("Sheet2").Range("Two10Salary") = ""
    ElseIf Worksheets("Sheet1").Range("K17") = "F02" Then
        Worksheets("Sheet2").Range("Three9Salary") = ""
    End If

End Sub

 

[jaylotheman]

Thank-you so much fibonacci1101, this worked perfect!

 

[Rick Rothstein]

Thank-you so much fibonacci1101, this worked perfect!

Mainly for information purposes, here is another way to write that macro...

Sub Macro2()
  If [Sheet1!K17] Like "F0[0-2]" Then
    [Sheet2].Range(Choose(Right([Sheet1!K17], 1) + 1, "OneElevenSalary", "Two10Salary", "Three9Salary")).ClearContents
  End If
End Sub