Employee name replacement (macro)

[javijuan]

Hello, I need a macro (in a module) that can replace the employee name with the corresponding employee ID from a different sheet called "roster".
I tried to attach a file as an example but could not figure out how to do it.
I would greatly appreciate any help.

PS: I am not good at writing codes, but I can understand them and edit them once I see a working code.

Roster sheet - b3 (id) - c20 (names)

Emp ID	Name
269386	Cam, I
263063	Cas, K
219903	Hen, A
244341	Joh, A
248837	Mir, J
293500	Nav, A
271742	Rod, M
276673	San, E
289349	San, Jah
280683	Vel, R

<tbody>
</tbody>

On the other sheets I have a table with their production, adherence to schedule, productivity and so on.. every day I have to send a Daily stats.. but for privacy issues, we change their names with the employee ID so, people do not know what their peers are doing right or wrong.. We use 3 or 4 different tables, so their name are not always on the same cells. I need a macro that looks for a match of their names compared to the roster sheet (that sheet does not change) and replace the names with the ID.

 

[S_Wish]

Dim ws, ds As Object
Set ws = activesheet
Set ds = Worksheets("Roster")
'I put names in column A, ID in column B, so offset is 1 cell to right
For Each cll In ws.Range("a1:a" & Cells(Rows.Count, 1).End(xlUp).Row)
    For Each cll2 In ds.Range("a1:a" & Cells(Rows.Count, 1).End(xlUp).Row)
        If cll.Value = cll2.Value Then
            cll.Value = cll2.Offset(0, 1).Value
        End If
        Next cll2
Next cll

 

[javijuan]

Thanks.. It worked perfectly