макрос поиска по дате

[ac1-caesar]

Друзья!!!

Подскажите пожалуйста как подкорректировать код для поиска по дате.
Необходимо в форме при вводе в окно textbox (formfield1) определенной даты, макрос нашел по этой дате в таблице строку и вывел значения этой строки 2-го и 3-го столбца в два остальных textbox.

Поиск происходит если в колонке - "date" даты прописывать в формате текст. Однако это не годится, ячейки должны быть в формате даты.
Так же производит поиск если дату вводить в таком формате 3/2/2013

[SAS888]

Посмотрите пример во вложении.

[ac1-caesar]

работает если только нажать кнопку "Add new records". А надо чтобы при введении даты без нажатия кнопок выводились значения.

[ac1-caesar]

то есть, на сколько я понимаю в этой процедуре нужно что то изменить:

Private Sub formField1_Change()
    Dim CurDate As String, RezPoiska As Range
    Me.formField1.Value = Trim(Me.formField1.Value)
    CurDate = Me.formField1.Value
   
        With DataTable
            Set RezPoiska = .Columns(1).Find(What:=CurDate, LookIn:=xlFormulas, _
                LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
                MatchCase:=False, SearchFormat:=False)
            If Not RezPoiska Is Nothing Then
                FindedFlag = True
                FindedRow = RezPoiska.Row
                Me.formField2.Value = .Cells(FindedRow, 2)
                Me.formField3.Value = .Cells(FindedRow, 3)
            Else
                FindedFlag = False
            End If
        End With
    
    
  Me.cmdbtnSave.Enabled = Not FindedFlag

    
End Sub

[SAS888]

теперь понятно. Тогда можно так (см. вложение).

[ac1-caesar]

Спасибо, вот это то что надо.
Попутный вопрос, а можно ли здесь formField2 = x.Offset(, 1): formField3 = x.Offset(, 2), номер столбца указать не номером, а названием - "Task Code" и "Status"
Это на случай, если будут добавляться столбцы.

[SAS888]

Посмотрите вложение. Поиск заголовка столбца производится в 5-й строке. Если нужно, можете изменить диапазон поиска. Также, можно вставить проверку на существование такого заголовка.

[ac1-caesar]

Спасибо, очень информативно.

[Ксения234]

Доброго веяера так же нужна Ваша помошь, мне вместо даты нужно найти данные по артикулу , данных должно быть 5, дата ,цена , компенсация

[IgorGO]

без файла никто вам ничем не поможет