VBA to Add Data to Existing Data in a Cell

[ssmith3156]

I need a VBA code that will add the letter "S" to the existing data in column G (Invoice) IF the value in column B (Phase) is "8" or "9". I appreciate any help offered.

 

[Joe4]

Try this:

Sub InsertCode()

    Dim lr As Long
    Dim r As Long
    
    Application.ScreenUpdating = False
    
'   Find last row in column B with data
    lr = Cells(Rows.Count, "B").End(xlUp).Row
    
'   Loop through all rows starting in row 2
    For r = 2 To lr
'       Check to see if column B is 8 or 9
        If Cells(r, "B") = 8 Or Cells(r, "B") = 9 Then
'           Add "S" to end of value in column G
            Cells(r, "G") = Cells(r, "G") & "S"
        End If
    Next r
    
    Application.ScreenUpdating = True
    
End Sub

 

[ssmith3156]

Dim lr As Long Dim r As Long Application.ScreenUpdating = False ' Find last row in column B with data lr = Cells(Rows.Count, "B").End(xlUp).Row ' Loop through all rows starting in row 2 For r = 2 To lr ' Check to see if column B is 8 or 9 If Cells(r, "B") = 8 Or Cells(r, "B") = 9 Then ' Add "S" to end of value in column G Cells(r, "G") = Cells(r, "G") & "S" End If Next r Application.ScreenUpdating = True End Sub

That worked perfectly! Thank you so much!

 

[Joe4]

You are welcome.
Glad I was able to help!

 

[Herakles]

Try this on a copy of your data.

Public Sub subAddAnS()
Dim rng As Range

    ActiveWorkbook.Save
    
    For Each rng In ActiveSheet.Range("A1").CurrentRegion.Columns(7).Cells
        If rng.Offset(0, -5).Value = 8 Or rng.Offset(0, -5).Value = 9 Then
            rng.Value = rng.Value & "S"
        End If
    Next rng

End Sub

 

[ssmith3156]

Try this on a copy of your data.

Public Sub subAddAnS()
Dim rng As Range

    ActiveWorkbook.Save
   
    For Each rng In ActiveSheet.Range("A1").CurrentRegion.Columns(7).Cells
        If rng.Offset(0, -5).Value = 8 Or rng.Offset(0, -5).Value = 9 Then
            rng.Value = rng.Value & "S"
        End If
    Next rng

End Sub

Somebody else already gave me a working code. But, thank you!