UserForm Next Record Same Last Name

[LikeButtah1]

Hello All,
I am trying to find the next record of the same last name that the user will type into textbox1. I can have another button to navigate through the records but after finding the last record it should say "Last Record Found". Column A holds the last names and first record starts in A3. Here is the code that finds the first instance of the last name in textbox1:

Dim blnNew As Boolean
Dim TRows, i As Long




Private Sub btnLName_Click()


                blnNew = False
                txtLastName.Text = ""
                txtFirstName.Text = ""
                txtC.Text = ""
                txtNewCard.Text = ""
                txtAccDes.Text = ""
                txtAccCreated.Text = ""
                txtAccGranted.Text = ""
                txtAccCancelled.Text = ""
                txtAccCategory.Text = ""
                txtNotes.Text = ""
   
    TRows = Worksheets("PNG Database").Range("A1").CurrentRegion.Rows.Count
    For i = 3 To TRows
        If LCase(Worksheets("PNG Database").Cells(i, 1).Value) = LCase(TextBox1.Text) Then
                
            txtLastName.Text = Worksheets("PNG Database").Cells(i, 1).Value
            txtFirstName.Text = Worksheets("PNG Database").Cells(i, 2).Value
            txtC.Text = Worksheets("PNG Database").Cells(i, 3).Value
            txtNewCard.Text = Worksheets("PNG Database").Cells(i, 4).Value
            txtAccDes.Text = Worksheets("PNG Database").Cells(i, 5).Value
            txtAccCreated.Text = Worksheets("PNG Database").Cells(i, 6).Value
            txtAccGranted.Text = Worksheets("PNG Database").Cells(i, 7).Value
            txtAccCancelled.Text = Worksheets("PNG Database").Cells(i, 8).Value
            txtAccCategory.Text = Worksheets("PNG Database").Cells(i, 9).Value
            txtNotes.Text = Worksheets("PNG Database").Cells(i, 12).Value
         
            Exit For
        End If
    Next i
    
   


End Sub

Any help would be great. Thanks in advance.

 

[Ingolf]

No it needs to be on the userform.
Have a look at this file & see if it works for you

Hi, Fluff, may I download your file?

 

[Fluff]

Hi, Fluff, may I download your file?

Yup, that's why it's there

 

[Fluff]

Fluff & dmt32,

Thanks for everything. I tried dmt32's approach and it works for me. Really appreciate all the help.

Glad it's sorted & thanks for the feedback

 

[Ingolf]

Yup, that's why it's there

It ask me for password...

 

[Fluff]

When did it do that?
When you tried to download it, or when you tried to open it?

 

[Ingolf]

When I tried to download it.

 

[Fluff]

Not sure why it's doing that.
I've just logged in anonymously & it didn't ask for a password.