Поиск текста в range (VBA)

[yurkagagarin]

Имеется список профессий и их код (2 колонки). Надо с помощью кнопки на форме выполнить поиск введённого текста в первой колонке и вывести все значения из второй (название профессии может повторяться в нескольких строчках, но код разный).

Пока я могу находить только одну первую профессию посредством кода:

Private Sub FindMishlahButton_Click()
Dim FindString As Integer
Dim FindString2 As String
Dim Rng As Range

FindString = 1
FindString2 = professia.Value
Worksheets("Profession").Range("f1").Value = FindString2
If Trim(FindString) <> "" Then
    With Sheets("Profession").Range("f3:f667")
        Set Rng = .Find(What:=FindString, _
                        After:=.Cells(.Cells.Count), _
                        LookIn:=xlValues, _
                        LookAt:=xlWhole, _
                        SearchOrder:=xlByRows, _
                        SearchDirection:=xlNext, _
                        MatchCase:=False)
        If Not Rng Is Nothing Then
            Me.MishlahLabel.Caption = Rng.Offset(rowOffset:=0, columnOffset:=1).Value
            Me.ProfessionTable.Caption = Rng.Offset(rowOffset:=0, columnOffset:=-1).Value
        Else
            Me.MishlahLabel.Caption = "Not"
            Me.ProfessionTable.Caption = ""
        End If
    End With
End If
Worksheets("Profession").Range("f1").Value = ""
End Sub

[EducatedFool]

Код переделать несложно, - только непонятно, в каком виде вывести сюда
Me.MishlahLabel.Caption
сразу НЕСКОЛЬКО значений
Через запятую надо? или как?

PS: если прикрепите пример файла (в архиве) - помочь будет намного проще

я бы написал макрос так: (перебор массива выполнится моментально)

Private Sub FindMishlahButton_Click()
    Dim FindString$, arr, i&, res$

    FindString$ = "текст который ищем"

    If Trim(FindString) <> "" Then
        arr = Sheets("Profession").Range("f3:f667").Value
        
        For i = LBound(arr) To UBound(arr)
            If arr(i, 1) =  FindString$ Then res$ = res$ & ", " & arr(i, 2)
        Next i
        
        res = Mid(res$, 3)

        If Len(res) > 0 Then
            Me.MishlahLabel.Caption = res$
        Else
            Me.MishlahLabel.Caption = "Not"
        End If
    End If
End Sub

[yurkagagarin]

Я использовал Findnext, это именно то, что мне надо. Но спасибо за ваш ответ.

[Hugo121]

Find/FindNext хорошо, если из миллиона нужно выбрать пару значений. А если из 10 тысяч нужно выбрать тысячу - то уже перебор массива будет заметно быстрее.