Filter worksheet based on last word of combobox selection

Hi!

I am currently creating a userform to submit requests with into a existent worksheet as a more efficient solution than the current process. One of the requirements is that people fill in their name in a combobox in the format First letter. Last Name (e.g. J. van der Pol). I currently want to add a commandbutton to the userforms which filters the worksheets for their name. However, because people in the past used different ways to enter their name, it only filters for the exact match.

E.G. filtering for J. van der Pol, it does not find J v.d. Pol, J Pol or Jordy vd Pol.

I want to set the filter in such a way, where it only filters for the last word of the combobox input, which in my examples would be 'Pol'.

Thanks upfront for your help!

P.S. This is my current code, in which 'Txtaanvrager' is the respective combobox

Private Sub MijnATBs_Click()
If Me.Txtaanvrager.Value = "" Then
        MsgBox "Voer een naam in.", vbExclamation, "Vereist veld"
        Me.Labelaanvrager.BackColor = RGB(255, 255, 0)
        Me.Txtaanvrager.SetFocus
        Exit Sub
    End If
Me.Labelaanvrager.BackColor = RGB(255, 192, 128)
Inschieten.Hide
ATBBekijken.Show vbModeless
Sheets("Requests").Select
    Rows("1:1").Select
    Selection.AutoFilter
    Selection.AutoFilter
    Range("BI2").Select
    ActiveSheet.Range("$A$2:$BJ$2225").AutoFilter Field:=9, Criteria1:=Me.Txtaanvrager.Value
    LastBlankRow = Cells(Rows.Count, 1).End(xlUp).Row + 1
    Cells(LastBlankRow, 1).Select
End Sub

Hi,
May be:

Private Sub MijnATBs_Click()
Dim ReturnLastWord As String
stGotIt = StrReverse(Me.Txtaanvrager.Value)
stGotIt = Left(stGotIt, InStr(1, stGotIt, " ", vbTextCompare))
ReturnLastWord = StrReverse(Trim(stGotIt))
If Me.Txtaanvrager.Value = "" Then
        MsgBox "Voer een naam in.", vbExclamation, "Vereist veld"
        Me.Labelaanvrager.BackColor = RGB(255, 255, 0)
        Me.Txtaanvrager.SetFocus
        Exit Sub
    End If
Me.Labelaanvrager.BackColor = RGB(255, 192, 128)
Inschieten.Hide
ATBBekijken.Show vbModeless
Sheets("Requests").Select
    Rows("1:1").Select
    Selection.AutoFilter
    Selection.AutoFilter
    Range("BI2").Select
    ActiveSheet.Range("$A$2:$BJ$2225").AutoFilter Field:=9, Criteria1:=ReturnLastWord
    LastBlankRow = Cells(Rows.Count, 1).End(xlUp).Row + 1
    Cells(LastBlankRow, 1).Select
End Sub

Unfortunately the filter returns no values in the worksheets now... Thank you for the suggestion though!

Please attach a sample workbook, so that I can see what I could do.
Click on GO ADVANCED and then scroll down to Manage Attachments to open the upload window.

Update this line

ActiveSheet.Range("$A$2:$BJ$2225").AutoFilter Field:=9, Criteria1:="=*" & ReturnLastWord

Still does not work... I really appreciate the help though!!!

It works perfectly for me here. Use only the available names (which are in 'Requests' tab) in the 'Naam aanvrager*' drop down box. I tested using the name 'S. Zuurbier'.

Works now for me as well! I was still working in the sample doc so a lot of names were missing, hence it wasnt working. THanks!

I'm glad that I was able to help you.