Sheets("Лист4").Select
Columns("A:A").Select
Selection.Find(What:="4000" & place, After:=ActiveCell, LookIn:=xlValues, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
Selection.FormulaR1C3 = "Нет машины"
End If
Next: [place+1]
'
End Sub
Вылазит ошибка object doesnt support this property or method.
Ругается на строку 26 (Selection.FormulaR1C3 = "Нет машины"). Он должен в диапазоне А:А искать 4000 и place( в моём случае это 10) и от найденой ячейки через 2 столбца (в моём случае это ячейка С6) вставить "НЕТ МАШИНЫ"
Свойства FormulaR1C3 действительно нет, есть FormulaR1C1. А "Нет машины" - вполне нормальная формула.
Код
Dim c As Range
Set c = Sheets("Лист4").Columns("A:A").Find(What:="4000" & place, LookIn:=xlValues, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False)
If Not c Is Nothing Then c.Offset(, 2).FormulaR1C1 = "Нет машины"