Find common name over three columns

[Jeff P]

Hello, I'm In need of a script...


I have situation whereby i need to create a marker to identify specific names within a range.
the range spans C17:E292 ("Names_Range")



As an example, every row that the name "Bob" appears,(within the range) to place an "X" in the corresponding row under column "H"

C......D.....E....F....G....H

Bob...Mary..................X
...... Joe

Ted...Bob...................X
Fred..........Bob...........X



Thanks for any help!

Jeff

 

[Jeff P]

Could I impose with one small addition?

If I wanted to add another name to the script, how would i incorporate this?

ie I wanted to search for both Bob, and Marry

something like: (of course mine doesn't work..)


If e.Value = "Bob", "Marry" Then Cells(e.Row, "h") = "x"</pre>


thanks!

Jeff

 

[mirabeau]

Could I impose with one small addition?

If I wanted to add another name to the script, how would i incorporate this?

ie I wanted to search for both Bob, and Marry ...

Jeff

Hi Jeff,

Maybe this modification

Sub Sort_Names_Bob()
Dim lr&, e
With Range("C:E")
lr = .Find("*", searchorder:=xlByRows, _
        searchdirection:=xlPrevious).Row
    For Each e In .Resize(lr)
    If (e.Value = "Bob") + (e.Value = "Marry") Then Cells(e.Row, "h") = "x"
    Next
End With
End Sub

 

[Jeff P]

Great!

Thank you very much, mirabeau !

Jeff