How to identify a set of text and a string of random text behind it.

[NewVbaJer]

Dear all,

I am trying to write a VBA code that first identifies a string of text that has no text behind it. Then, it would add some text once the two conditions are fulfilled.

For example, I am trying to replace "P - " with "P - None". However, it should not become "P- Nonexxxxxxxx" if there are text behind.

I have only managed to write the first set of condition but I am struggling with the second, that won't interfere if there some text behind.

Dim i As Long
For i = 5 To Cells(Rows.Count, "F").End(xlUp).Row

If InStr(Cells(i, "F").Value, "P -") > 0  Then
Cells(i, "F").Replace What:="P -", Replacement:="P - None"

Any guidance or help is greatly appreciated!

 

[kennypete]

Providing it's "P -" and not "P - " this should prevent "P - xxxx" from being included:
If (InStr(Cells(i, "F").Value, "P -")) > 0 And Len(Cells(i, "F").Value) = 3 Then

 

[Fluff]

If you have multiple lines per cell, maybe

If InStr(Cells(i, "F").Value & vbLf, "P -" & vbLf) > 0 Then

 

[NewVbaJer]

If you have multiple lines per cell, maybe

If InStr(Cells(i, "F").Value & vbLf, "P -" & vbLf) > 0 Then

Thanks very much. Wow that's one way of looking at it.

 

[Fluff]

Glad we could help & thanks for the feedback.