поиск ячейки с датой

[27102014]

Всем привет!

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

 Set rData = Range("A2:AB2").Find(What:=DateValue("23.07.2015"), LookIn:=xlFormulas, LookAt:=xlPart)

Проблема в следующем - не известна точная дата, известны только месяц и год, попробовал поправить дату (" *.07.2015"), но не получилось

Надеюсь на помощь форумчан

[IgorGO]

Function FindDate(y As Long, m As Long, rg As Range) As Range
  Dim c As Range, d1 As Date, d2 As Date
  d1 = DateSerial(y, m, 1): d2 = DateSerial(y, m + 1, 0)
  For Each c In rg.Cells
    If c >= d1 And c <= d2 Then Set FindDate = c:  Exit Function
  Next
End Function

[27102014]

Игорь, спасибо!!!

[pashulka]

27102014, Если в ячейках действительно даты, то должОн работать такой вариант :

Set rData = Range("A2:AB2").Find("7/*/2015", , xlValues)

[27102014]

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

27102014, Если в ячейках действительно даты, то должОн работать такой вариант :

Set rData = Range("A2:AB2").Find("7/*/2015", , xlValues)

В ячейках действительно даты, но Ваш вариант не работает
придумал еще такой вариант

y = 2015 'год
q = 7 'месяц

On Error Resume Next
For i = 1 To 31 'день
Set rData = Range("A2:AB2").Find(What:=DateValue(i & "/" & q & "/" & y), LookIn:=xlFormulas, LookAt:=xlPart)
rData.Select
Next

[pashulka]

Можете выложить небольшой фрагмент таблицы с датами ?