Приветствую!
Поломался простой макрос, не могу понять как исправить. Выдаёт ошибку object variable or with block variable not set
Суть макроса - нахождение ячейки и перенос всей строки на другой лист.
[vba]Код
Sub MoveMat()
Dim i As Integer
Dim ItemName
i = 1
ItemName = Sheets("123").Cells(i, 1)
Do While ItemName <> " " And ItemName <> Empty
i = i + 1
Range("A:A").Find("Материал").Select
Rows(ActiveCell.Row).Cut Sheets("Материалы-дата").Cells(Sheets("Материалы-дата").Rows.count, "A").End(xlUp).Offset(1)
Loop
End Sub
[/vba]
Ошибка в строке
Range("A:A").Find("Материал").Select
При этом перенос строк работает.
[moder]Дайте теме более конкретное название в соответствии с Правилами форума[/moder]