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

[DMITRIY_78]

Ребята Здравствуйте, подскажите как в цикле поиска указать проверяемую переменную "n"
т.е в каком столбце производить поиск, заранее благодарен

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

[Aleksandr H.]

вопрос не понял, но вопросы имеются

это что за чудокод. Поиск в ячейке А1 ?

Worksheets("заявка_ЗИП").Cells(1, 1).Find(What:=q)

это компилируется?

Cells(1, 1).Row = v

[DMITRIY_78]

Сообщение от Aleksandr H.

Worksheets("заявка_ЗИП").Cells(1, 1).Find(What:=q)

Сообщение от Aleksandr H.

Поиск в ячейке А1 ?

да, все верно

[DMITRIY_78]

Сообщение от Aleksandr H.

Cells(1, 1).Row = v

это лишнее

[DMITRIY_78]

Aleksandr H., хотя я так правильно понимаю, что поиск должен производится в переменной "n". только я не совсем понимаю как ее использовать

[DMITRIY_78]

Aleksandr H., допекал только до этого ,

For Each s In Worksheets("заявка_ЗИП").Range("A1:F200").Cells
        If s.Value = q Then
            TextBox20.Text = Replace(s, "$", "") 'модель
            Rows(s.Row).Select
            Exit Sub
       End If
    Next
    MsgBox "Ничего не найдено"

но хотелось бы что бы на основании переменной "N"

[Aleksandr H.]

Не понимаю вопроса. На примере можете показать какую задачу решаете?

[DMITRIY_78]

Aleksandr H., все просто вопрос из #1 поста, на основании выбранного

 Case OptionButton1.Value: n = Cells(1, 1) 'это Дата

поиск производится в столбце(1) дата, если отметка стоит на

Case OptionButton2.Value: n = Cells(1, 2) 'Фамилия

то поиск производится соответственно в столбце(2) фио

[DMITRIY_78]

Aleksandr H., я подумал возможно требуется указать явно столбцы

       Case OptionButton1.Value: n = 1 'Дата
       Case OptionButton2.Value: n = 2 'Фамилия
       Case OptionButton3.Value: n = 3 'Телефон
       Case OptionButton4.Value: n = 4 'Серийный номер

[Aleksandr H.]

так N ето нифига не номер столбца, а значение 1 ячейки столбца выбраного через OptionButton


хочется использовать N как номер столбца, тогда

f = True
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 "Нет отметок для поиска": F= false: Exit Sub
    End Select
....
if F then
......Worksheets("заявка_ЗИП").Columns("A:A").Offset(0, n - 1).Find(What:=q)
end if