Filter when name not found goes on a loop

[Patriot2879]

Hi good morning, I have the code that works great apart when the name cant filter on the name I M2, it goes on a loop about times, until it finally stops and highlights empty fields, is there anyway t stop the loop and return nothing straight away instead?

Private Sub dofilter()
    Sheets("Filter").Select
    Range("B2").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Clear
    
    Sheets("Work Issue").Select
    Range("C:C").AutoFilter Field:=3, Criteria1:=Range("M2").Value
    Range("A1").Select
    
    ActiveCell.Offset(1).Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy

    Sheets("Filter").Select
    ActiveSheet.Paste Destination:=Range("C10")
     
    Columns.AutoFit
    Range("B2").Select
End Sub

 

[Patriot2879]

Hi when I press esc when it goes in the loop the code below is highlighted in yellow. does this mean anything?

.ReadingOrder = xlContext

This belongs to the code below on the button

Private Sub FilterData_Click()
    Sheets("Filter").Select
    Range("b2").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Clear
    
    Sheets("Work Issue").Select
    Range("C:C").AutoFilter Field:=3, Criteria1:=Range("M2").Value
    Range("A1").Select
    
    ActiveCell.Offset(1).Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Sheets("Filter").Select
    
    Range("b2").Select
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
            Range("b2").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select
        With Selection
        .VerticalAlignment = xlBottom
        .WrapText = True
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
 
    Range("B2").Select
 End With
 
End Sub

 

[dmt32]

Hi Dave, now removed, thankyou for that.

Sorry I didn't understand exactly where to put you code? if you can advise what to do please, I am still learning. thanks for the help

Hi,
Place my suggested code in a standard module (ensure other code(s) with same name are removed)

Then update your userform command button code as follows

Private Sub FilterData_Click()
    Dofilter
End Sub

Dave