Поиск даты с помощью VBA
Формулировка задачи:
Всем доброго времени суток.
На листе имеется лента с датами, полученными с помощью формул. В коде необходимо узнать номер стобца искомой даты. Тестовый код:
возвращает ошибку 91 'Object Variable or With block variable not set'.
Искомая тестовая дата имеется на листе. По форумам посмотрел, имеется нюанс с форматом дат, поэтому использовал DateValue(). Но код, тем не менее, не работает.
Подскажите, подалуйста, как можно поступить в данном случае?
На листе имеется лента с датами, полученными с помощью формул. В коде необходимо узнать номер стобца искомой даты. Тестовый код:
возвращает ошибку 91 'Object Variable or With block variable not set'.
Искомая тестовая дата имеется на листе. По форумам посмотрел, имеется нюанс с форматом дат, поэтому использовал DateValue(). Но код, тем не менее, не работает.
Подскажите, подалуйста, как можно поступить в данном случае?
Решение задачи: «Поиск даты с помощью VBA»
textual
Листинг программы
Sub Макрос1()
Dim MyDate As Date, rFndRng As Object, i&, x
MyDate = "01.04.2012"
With ActiveSheet.UsedRange.Columns(1)
For Each x In .Value
i = i + 1
If x = MyDate Then
Set rFndRng = .Cells(i)
rFndRng.Activate
Exit Sub
End If
Next
End With
MsgBox "Дата " & MyDate & " не найдена ", vbInformation
End Sub