VBA Скопируйте строку на другой лист, если она соответствует запросу

Question

Итак, в настоящее время у меня есть функция, которая будет искать два члена в листе и возвращать True или False, в зависимости от того, нашел он это или нет. Теперь, что я пытаюсь выполнить, если я нахожу эту запись, я хочу скопировать всю строку, где была найдена запись, на другой лист. У меня возникли проблемы, и я не совсем уверен, как действовать дальше.

Вот мой исходный код:

Private Function Search(BinStr As String, L4 As String) As Boolean 
    Dim rng1 As Range 
    Dim rng2 As Range 

    Set rng1 = Worksheets("FirstSheet").Range("A:A").Find(BinStr, , xlValues, xlWhole) 
    Set rng2 = Worksheets("FirstSheet").Range("C:C").Find(L4, , xlValues, xlWhole) 
    If Not rng1 Is Nothing And Not rng2 Is Nothing Then 
     rng1.Offset(0,1).Copy Destination:=Worksheets("Matches").Range("A") 
     Search = True 
    Else 
     Search = False 
    End If 
End Function 

Answer 1

Функция предназначена для возврата значений. Основываясь на предоставленной вами информации, вы действительно должны использовать подпрограмму, которая использует вашу функцию пользовательского поиска.

Sub CopyMatches() 
    If Search("string","other string") Then 
     'code to copy row data to other worksheet 
    End If 
End Sub