matching of data to not match the same data again

[studentlearner]

So currently I got multiple guys name john in my excel, how do I ensure that my vba doesn't go through the same cell over and over again?

this the code I'm working with

Sub match_Data()

Dim rSH As Worksheet
Dim sSh As Worksheet
Set rSH = ThisWorkbook.Sheets("Master")
Set sSh = ThisWorkbook.Sheets("Schedule")

Dim fName As String, lName As String

For a = 2 To sSh.Range("A" & Rows.Count).End(xlUp).Row
    fName = sSh.Range("B" & a).Value

   
    For b = 2 To rSH.Range("A" & Rows.Count).End(xlUp).Row
        If rSH.Range("B" & b).Value = fName Then
               
            sSh.Range("A" & a).Value = rSH.Range("A" & b).Value
            sSh.Range("B" & a).Value = rSH.Range("B" & b).Value
            sSh.Range("C" & a).Value = rSH.Range("C" & b).Value

           
       
           
            Exit For
        End If
    Next b
Next a

Debug.Print "Completed"

End Sub

So currently it only calls upon and loop only on the first one only. How do I make it go through all john instead of it just locating one john?

Code ID	Name	Schedule
1010​	John	AM
1011​	John	PM
1033​	Mick	AM

 

[offthelip]

Try this . Note I have loaded all the data into variant arrays which will make the loops much much faster, and it also allows me to delete the name after the first match, because it doesn't delete iton the worksheet.

Sub match_Data()

Dim rSH As Worksheet
Dim sSh As Worksheet
Set rSH = ThisWorkbook.Sheets("Master")
Set sSh = ThisWorkbook.Sheets("Schedule")

Dim fName As String, lName As String
lastssh = sSh.Range("A" & Rows.Count).End(xlUp).Row
lastrsh = rSH.Range("A" & Rows.Count).End(xlUp).Row
sSharr = sSSH.Range(Cells(1, 1), Cells(lastssh, 3)) ' load all the data in variant arraays
rSHarr = RSSH.Range(Cells(1, 1), Cells(lastrsh, 3))

For a = 2 To lastssh
    fName = sSharr(a, 2)

   
    For b = 2 To lastrsh
        If rSHarr(b, 2) = fName Then
               
            sSharr(a, 1) = rSHarr(b, 1)
            sSharr(a, 2) = rSHarr(b, 2)
            sSharr(a, 3) = rSHarr(b, 3)
            rSHarr(b, 2) = ""  ''''''''''' this is the key line that delete the name you have just matched. Note it doesn't delete on the workhseet
            Exit For
        End If
    Next b
Next a
sSSH.Range(Cells(1, 1), Cells(lastssh, 3)) = aSharr  ' wrtie the results back

Debug.Print "Completed"

End Sub