Поиск значения по дате

[ac1-caesar]

Подскажите пожалуйста как сделать поиск значения по дате.
Т.е. первая колонка - даты, во второй колонке нужно найти значение по выбранной дате.
Для таблицы с внесенными датами в первой колонке этот вариант работает.

Sub test()
 
Dim dt As Date
Dim SelectedDate As Range
Dim значение As Variant
 
With ThisWorkbook.Sheets("Лист2")
    dt = CDate("09.01.2013")
    Set SelectedDate = .Range("Таблица2[DATE]").Find(dt)
    If Not SelectedDate Is Nothing Then
        значение = SelectedDate.Offset(, 1)
        MsgBox значение
    End If
End With
End Sub

Однако для таблицы с датами по ссылке из другой таблицы такой вариант не работает.
Что изменить или добавить в коде?

Есть развитие темы здесь

[staniiislav]

можно через массив...
D1 ЛКМ два раза, откроется календарь
Пример на листе2

[staniiislav]

можно так:

Sub FindDate_2()

Dim rn As Range, lsRow_2 As Long, dDate As String, i As Long, nn As Object, x As String
lsRow_2 = Cells(Rows.Count, 1).End(xlUp).Row
Set rn = ThisWorkbook.Sheets("Лист2").Range("A2:A" & lsRow_2)
dDate = Range("D1").Value
With rn
    For Each nn In .Cells
        If nn = dDate Then
            x = Cells(nn.Row, 2).Value
            MsgBox x
        End If
    Next
End With
End Sub

а вообще еще много вариантов...