Добавление формулы при вставке данных

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

Добавление формулы при вставке данных (Макросы/Sub)

Elvira66

Дата: Суббота, 20.05.2017, 08:20 | Сообщение № 1

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 117

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

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

Excel 2010

Доброе утро!
Нужна помощь, описание в файле
Как прописать макрос, чтобы при вставки новых данных в столбец А, в столбце В протягивалась формула, а если данные убрать из столба В, то и формулы в толбце В тоже не будет, т.е. ячейка будет пустой, без формулы?

К сообщению приложен файл: 9189828.xlsx (12.4 Kb)

Ответить

buchlotnik

Дата: Суббота, 20.05.2017, 09:22 | Сообщение № 2

Группа: Заблокированные

Ранг: Участник клуба

Сообщений: 3442

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

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

2010, 2013, 2016 RUS / ENG

как-то так [vba]

Код

Private Sub Worksheet_Change(ByVal Target As Range)
    If Left(Target.Address, 2) = "$A" Then
        If Target.Value = "" Then
            Target.Offset(0, 1) = ""
        Else
            Target.Offset(0, 1).FormulaR1C1 = "=WEEKNUM(RC[-1])"
        End If
    End If
End Sub

[/vba]

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

Ответить

KuklP

Дата: Суббота, 20.05.2017, 09:40 | Сообщение № 3

Группа: Проверенные

Ранг: Старожил

Сообщений: 2369

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

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

2003-2010

Вариант:
[vba]

Код

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 1 Then Exit Sub
Target.Offset(, 1).Formula = IIf(Target.Value = "", "", "=WEEKNUM(RC[-1])")
End Sub

[/vba]

Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728

Ответить

Elvira66

Дата: Суббота, 20.05.2017, 13:17 | Сообщение № 4

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 117

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

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

Excel 2010

Спасибо!

Ответить

Добавление формулы при вставке данных (Макросы/Sub)

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