Страницы: 1
RSS
не вставляется значение ячейку VBA, при выполнении скрипта - ошибка object doesn't support this property or method
 
Добрый день.

При выполнении скрипта
Код
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) вставить "НЕТ МАШИНЫ"
Изменено: zhmerin - 03.09.2018 17:11:38
 
Цитата
zhmerin написал:
"Нет машины").
- это не формула
или используете ="="""Нет машины""""
или Selection.value=
или просто Selection=

UPD R1C3 - даже внимания не обратил
Изменено: БМВ - 03.09.2018 18:01:04
По вопросам из тем форума, личку не читаю.
 
Код
dim r%
Sheets("Лист4").Select
    r% =Columns("A:A").Find(What:="4000" & place, After:=ActiveCell, LookIn:=xlValues, :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
    MatchCase:=False, SearchFormat:=False).row
    Range("A" & r% & ":A" & r%)= "Нет машины"
    End If
Next: [place+1]
End Sub
 
Свойства 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 = "Нет машины"
Изменено: Казанский - 03.09.2018 17:53:45
 
Сразу меняйте на ходу    
Код
Columns("A:A").Find(What:="4000" & place, After:=ActiveCell, LookIn:=xlValues, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False) = "Нет машины"
или так
Код
Columns("A:A").Replace What:="4000", Replacement:="Нет машины", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
Изменено: _Boroda_ - 03.09.2018 17:50:48
Скажи мне, кудесник, любимец ба’гов...
Страницы: 1
Наверх