Применение формулы в столбце если в другом столбце есть итог

Вход

Регистрация

Напомнить пароль

= Мир MS Excel/Применение формулы в столбце если в другом столбце есть итог - Мир MS Excel

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Применение формулы в столбце если в другом столбце есть итог (Макросы/Sub)

Применение формулы в столбце если в другом столбце есть итог

Заяц6628

Дата: Понедельник, 27.12.2021, 12:52 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 35

Репутация: 0 ±

Замечаний: 0% ±

Добрый день!
Помогите разобраться, что написано не так в коде, мне нужно чтобы если в первой колонке есть слово итог, ко второй колонке применялась формула 1+1, файл приложила
,

К сообщению приложен файл: 6281217.xlsm (16.6 Kb)

Ответить

китин

Дата: Понедельник, 27.12.2021, 13:00 | Сообщение № 2

Группа: Модераторы

Ранг: Экселист

Сообщений: 7029

Репутация: 1078 ±

Замечаний: 0% ±

Excel 2007;2010;2016

так?
[vba]

Код

Sub Макрос1()
  Dim lLastRow As Long
    lLastRow = Cells(Rows.Count, 1).End(xlUp).Row
lLastRow = Cells(Rows.Count, 1).End(xlUp).Row
For i = 2 To lLastRow
   Set TT_ = Cells(i, 1).Find("*Итог")
      If Not TT_ Is Nothing Then
        Cells(i, 2).FormulaR1C1 = "=1+1"
      End If
Next i
End Sub

[/vba]

К сообщению приложен файл: 5425109.xlsm (12.9 Kb)

Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852

Ответить

Заяц6628

Дата: Понедельник, 27.12.2021, 13:04 | Сообщение № 3

Группа: Пользователи

Ранг: Новичок

Сообщений: 35

Репутация: 0 ±

Замечаний: 0% ±

Спасибо! Теперь все понятно! Все работает! Спаситель!)))

Ответить

Применение формулы в столбце если в другом столбце есть итог (Макросы/Sub)

Страница 1 из 1
1