Ошибка "Run-time error '91': Object variable or With block variable not set" - VBA
Формулировка задачи:
приветствую!
имеется документ на нескольких листах, заполняется по дням соответственно на многих листах есть даты текущего периода, в начале каждого месяца документ создается заново, для того чтобы не менять дату на каждом листе есть ячейка ввода месяца и года, а по всему документу дата задана =ДАТА(Лист1(год);Лист1(месяц);константа(от1до31))
на одном из листов есть форма ввода данных данные из которой макросом раскидываютя в нужные ячейки в зависимости от даты (забиваемой в ручную).
проблема в том что i = Range("AK5:AK68").Find(n).Activate выдает указанную ошибку, если =ДАТА(Лист1(год);Лист1(месяц);константа(от1до31)) заменить на введенную в ручную дату все работает, подскажите пожалуйста можно ли это как-то починить
Решение задачи: «Ошибка "Run-time error '91': Object variable or With block variable not set"»
textual
Листинг программы
Sub Main1()
Dim i As Long, x As Range, Fst As String
Application.ScreenUpdating = False
Workbooks("ОРМ.xls").Sheets(1).Activate
With Workbooks("ОРМск.xls").Sheets(1)
Columns("G").Interior.ColorIndex = xlNone
.Columns("G").Interior.ColorIndex = xlNone
For i = 1 To Cells(Rows.Count, "G").End(xlUp).Row
Set x = .Columns("G").Find(what:=Cells(i, "G"), LookAt:=xlWhole)
If Not x Is Nothing Then
Cells(i, "G").Interior.ColorIndex = 6
Fst = x.Address
Do
.Cells(x.Row, "G").Interior.ColorIndex = 6
Set x = .Columns("G").FindNext(x)
Loop While Fst <> x.Address 'выделенная в коде строка
End If
Next
End With
End Sub