If last character of cell <> ) then add (text)

[Hyflex]

I'm looking for a macro to do the following:


If cell in Column O (from top to bottom) does NOT end in ) then add (text) to the end...

Kin (Let)
Led
Fen
Cho De (Let)
Lem
Kop (Let)

^ The bold lines above do NOT end in a ) so they need (Let) to be added

 

[Rick Rothstein]

This should do what you asked for...

Sub AddParens()
  Dim X As Long
  Application.ScreenUpdating = False
  For X = 1 To Cells(Rows.Count, "A").End(xlUp).Row
    If Right(Cells(X, "A").Value, 1) <> ")" Then Cells(X, "A").Value = Cells(X, "A").Value & " (Let)"
  Next
  Application.ScreenUpdating = True
End Sub

 

[Scott Huish]

Sub test()
Dim c As Range
For Each c In Range("O1:O" & Range("O" & Rows.Count).End(xlUp).Row)
    If Right(c, 1) <> ")" Then c = c & " (LET)"
Next
End Sub

 

[scottylad2]

Deleted - just realised it was a macro you wanted

 

[BROWN_RY]

Try this formula. should work. then just copy the values. let me know it that worked for you.

IF(RIGHT(A2,5)="(let)",a1,A2 & " " & "(let)")

ryan

 

[BROWN_RY]

just recored the macro with a double click on the bottom right of the cell after you insert the formula and it should work everytime as long as you dont have blank cells in the data

 

[Rick Rothstein]

If cell in Column O....

Sorry about my previous posting... I read right over your "Column O" statement and made my code for Column A instead. Here is my code with the correct column reference...

Sub AddParens()
  Dim X As Long
  Application.ScreenUpdating = False
  For X = 1 To Cells(Rows.Count, "O").End(xlUp).Row
    If Right(Cells(X, "O").Value, 1) <> ")" Then Cells(X, "O").Value = Cells(X, "O").Value & " (Let)"
  Next
  Application.ScreenUpdating = True
End Sub