Find and delete

[Lara465]

Hello!
Is it possible to find a part of a word and delete it ? I have a column like :

LaviniaAdm as exp
AndreeaAdm not there
LauraAdm adminansdghjk
.
.
.
And so on. A name followed by Adm written together. I have a long list so I don't want to delete it manually. Is there a way to insert a space before the "Adm" and then I know hot to delete it or to delete everything after the "Adm"?



Thanks a lot!

 

[navic]

If I understood you well, try Find / Replace

 

[Lara465]

Yes, it works to replace the word. But is there a way to delete everything from that word on?

Dim r As Long, HSindex As Long

lstR = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row

For r = 1 To lstR

With ThisWorkbook.ActiveSheet

HSindex = InStr(.Range("A" & r).Value, "Adm")

If HSindex > 1 Then

.Range("A" & r).Value = Left(.Range("A" & r).Value, HSindex - 1)


End If
End With
Next r

I found this, to delete everything from that word on. But I need to add a space before Adm for it to be considered a word. So if I replace it doesn't solve my problem.

 

[Lara465]

I found the answear. I use find and replace it with the same word but with a space before and then use the code I wrote before here. Thanks.

 

[navic]

I apologize for not understanding well.
This below deletes the entire text starting with 'Adm'. Only the name remains.
The result is the same as starting your VBA.
Regardless, I hope you solved your problem.
regards

[EDIT]: OK, I see you've solved it