VBA to replace all values except one string

[Revathi kannan]

Hi all,

I just want to replace all values in Column B as "Completed" which does not contains "No".

Please assist me.

[Phuocam]

Try this code:

Sub sample3() 
Worksheets("Sheet1").Activate 
Dim i As Long 
Dim lr As Long 
 
lr = Range("A" & Rows.Count).End(xlUp).Row 
For i = lr To 2 Step -1 
    If Range("B" & i).Value <> "No" Then Range("B" & i).Value = "Completed" 
Next i 
End Sub  

[Revathi kannan]

Sorry for inconvenience. Posted in a wrong forum. Please ignore it.

[Phuocam]

The admin will move it, don't worry

[Revathi kannan]

Hi Phuocam,

Thank you so much for your help.

[Phuocam]

You're welcome! Thanks for the rep points.

[Fluff13]

Another option, if your interested.

Please Login or Register  to view this content.