Adding Suffix to a cell based on value of a another Cell

[aaronr]

i'm dealing with columns A and F. I need to add letter A to end all values in Columns A if Column F has Level or Roof in columns F.

Data before modified
Column A Column F
[TABLE="width: 219"]
<colgroup><col><col></colgroup><tbody>[TR]
[TD]P1.00[/TD]
[TD]LEVEL [/TD]
[/TR]
[TR]
[TD]P1.09[/TD]
[TD]LEVEL [/TD]
[/TR]
[TR]
[TD]P1.10[/TD]
[TD]LEVEL[/TD]
[/TR]
[TR]
[TD]M1.11[/TD]
[TD]ROOF PLAN[/TD]
[/TR]
[TR]
[TD]M1.12[/TD]
[TD]ROOF PLAN LOW[/TD]
[/TR]
[TR]
[TD]P2.00[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]P4.00[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]P5.00[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]P6.00[/TD]
[TD][/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]Data after modified[/TD]
[TD][/TD]
[/TR]
</tbody>[/TABLE]
Column A Column F
[TABLE="width: 219"]
<colgroup><col><col></colgroup><tbody>[TR]
[TD]P1.00A[/TD]
[TD]LEVEL [/TD]
[/TR]
[TR]
[TD]P1.09A[/TD]
[TD]LEVEL [/TD]
[/TR]
[TR]
[TD]P1.10A[/TD]
[TD]LEVEL[/TD]
[/TR]
[TR]
[TD]M1.11A[/TD]
[TD]ROOF PLAN[/TD]
[/TR]
[TR]
[TD]M1.12A[/TD]
[TD]ROOF PLAN LOW[/TD]
[/TR]
[TR]
[TD]P2.00[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]P4.00[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]P5.00[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]P6.00[/TD]
[/TR]
</tbody>[/TABLE]

 

[Michael M]

If you want them modified at the same locations, you will need a macro.
You ok with that ?

 

[aaronr]

Yes a Marco is fine.

 

[Michael M]

Try

Option Compare Text
Sub MM1()
Dim lr As Long, r As Long
lr = Cells(Rows.Count, "A").End(xlUp).Row
For r = lr To 1 Step -1
    If InStr(Range("F" & r), "Level") Or InStr(Range("F" & r), "roof") Then
        Range("A" & r).Value = Range("A" & r).Value & "A"
    End If
Next r
End Sub

 

[aaronr]

Thank you Michael

 

[Rick Rothstein]

Here is another macro that should also work...

[table="width: 500"]
[tr]
	[td]Sub AddSuffixA()
  Dim LastRow As Long
  LastRow = Cells(Rows.Count, "A").End(xlUp).Row
  Range("A1:A" & LastRow) = Evaluate(Replace("IF(ISNUMBER(SEARCH(""LEVEL"",F1:F#))+ISNUMBER(SEARCH(""ROOF"",F1:F#)),A1:A#&""A"",A1:A#)", "#", LastRow))
End Sub[/td]
[/tr]
[/table]