в цикле поиска указать столбец

[DMITRIY_78]

Да все получилось Спасибо, вот может кому пригодится)), но у меня вопрос по поиску даты, а если одинаковых дат несколько, возможно при нажатии повторно кнопкой поиск перебирать строки с датами?

Private Sub CommandButton14_Click()
Dim q, n
q = Trim$(TextBox34.Text)
    If Len(q) <= 0 Then MsgBox "Заполните поле для поиска": Exit Sub
    Select Case True        ' Номера'Столбцы для поиска
       Case OptionButton1.Value: n = 1 'Дата
       Case OptionButton2.Value: n = 2 'Фамилия
       Case OptionButton3.Value: n = 3 'Телефон
       Case OptionButton4.Value: n = 4 'Серийный номер
       Case Else: MsgBox "Нет отметок для поиска": Exit Sub
    End Select
f = True
For Each f In Worksheets("заявка_ЗИП").Columns("A:F").Offset(0, n - 1).Find(What:=q)
       If Not f Is Nothing Then
            TextBox20.Text = f  'модель
            Rows(f.Row).Select
            Exit Sub
       End If
    Next
    MsgBox "Ничего не найдено"
End Sub

[Aleksandr H.]

https://www.google.com/search?q=vba+...client=gws-wiz

[Aleksandr H.]

Сообщение от DMITRIY_78

f = True
For Each f In Worksheets("заявка_ЗИП").Columns("A :F").Offset(0, n - 1).Find(What:=q)

Вот так делать очень не рекомендуется. Если f переменная Boolean, то должна оставаться такой до конца "жизни"

[DMITRIY_78]

Aleksandr H., тогда так?

f = True
'Stop
       Set f = Worksheets("заявка_ЗИП").Columns("A:F").Offset(0, n - 1).Find(What:=q) 'модель
            If Not f Is Nothing Then
            TextBox20.Text = f  'модель
            Rows(f.Row).Select
            Exit Sub
       End If
    
    MsgBox "Ничего не найдено"

[DMITRIY_78]

Aleksandr H., #12 с перебором разобрался

Worksheets("заявка_ЗИП").Columns("A:F").Offset(0, n - 1).Find(What:=q, After:=ActiveCell, SearchDirection:=xlNext) 'модель