Need a UDF to Identify and remove parts of Cell Data from a Range

[Please_H]

Hi Good Morning from Sri Lanka,

I have sets of words in cell A1,A2,A3 in Sheet 1

I have a Range which I look to remove from above Cells (plus I will continue to update that Colomn), They are in Sheet 2, Colomn 4 (ex for words are - Trusted User, Call Now, Sale)

Now I need the following to happen:

A1 = ABC Company Trusted User

Result in B1 = ABC Company

A2 = ABC Company Sale

Result in B2 = ABC Company

A3 = JnH Users and Distributors Call Now

Result in B3 = JnH Users and Distributors

Is this possible?

 

[Michael M]

Maybe a macro to modify the strings while still in column "A"

Sub MM1()
With ActiveSheet.Range("A:A")
.Replace "Trusted", "", xlPart
.Replace "User", "", xlPart
.Replace "Sale", "", xlPart
.Replace "Call", "", xlPart
.Replace "now", "", xlPart
End With
End Sub

 

[Please_H]

Maybe a macro to modify the strings while still in column "A"

Sub MM1()
With ActiveSheet.Range("A:A")
.Replace "Trusted", "", xlPart
.Replace "User", "", xlPart
.Replace "Sale", "", xlPart
.Replace "Call", "", xlPart
.Replace "now", "", xlPart
End With
End Sub

Bro, Thanks for your effort, but this will have an issue as the Colomn A has many more issues, therefore I requested a UDF to control the Outcome. A macro at this staage could slow down my excel....What about a functions bro, possible?

 

[Michael M]

Maybe this then....originally posted by PGC01

Function RW(ByVal s As String)
Dim vArray As Variant, vWord As Variant
vArray = Array("Trusted", "User", "Call", "Now", "Sale")
For Each vWord In vArray
    s = Replace(s, vWord, "")
Next vWord
RW = s
End Function

Then use in B1

=RW(A1)

 

[Please_H]

Maybe this then....originally posted by PGC01

Function RW(ByVal s As String)
Dim vArray As Variant, vWord As Variant
vArray = Array("Trusted", "User", "Call", "Now", "Sale")
For Each vWord In vArray
    s = Replace(s, vWord, "")
Next vWord
RW = s
End Function

Then use in B1

=RW(A1)

Dannnnnnnnnnnnnggggg !!!!!!!!!!!!!!! That Worked ! Thanks Mate... You've done a Great favor for me...

 

[Michael M]

glad to help...