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

P1.00	LEVEL
P1.09	LEVEL
P1.10	LEVEL
M1.11	ROOF PLAN
M1.12	ROOF PLAN LOW
P2.00
P4.00
P5.00
P6.00
Data after modified

<colgroup><col><col></colgroup><tbody>
</tbody>

Column A Column F

P1.00A	LEVEL
P1.09A	LEVEL
P1.10A	LEVEL
M1.11A	ROOF PLAN
M1.12A	ROOF PLAN LOW
P2.00
P4.00
P5.00
P6.00

<colgroup><col><col></colgroup><tbody>
</tbody>

 

[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]