преобразовать формулу в макрос

[brik]

как преобразовать формулу ActiveCell.FormulaR1C1 = "=RC[-7]-RC[-6]-RC[-2]"
в макрос на диапазоне с 8 до 1000 строки те c N8 до U1000
те результат вычислений в столбце U (ActiveCell.FormulaR1C1) а RC[-7] это столбец N

единственное условие в макросе что формула должна появлятся работать когда есть значение в столбце N
если значения нет в ячейках столбца N - то и формула не работает

записал формулу как условие это к ней прикрутить

[brik]

както так но не работает почему то

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("N8:U1000")) Is Nothing Then

i = 8
If Cells(i, 14).Value <> "" Then
Cells(i, 21).FormulaR1C1 = "=RC[-7]-RC[-6]-RC[-2]"
i = i + 1
End If
End Sub

[Казанский]

А не проще в U8:U1000 вставить формулу

=ЕСЛИ(N8="";"";N8-O8-S8)

[brik]

с макросом кажется получше
тк существует вероятность что случайно потрут формулу в какой либо ячейке диапазона до 1000 надо диапазон защищенный делать на пароль садить книгу
а так макрос вроде всеравно пересчитает если результат попортят

плюс еще когда если протягиваешь ЕСЛИ на длинный диапазон другие макросы например фильтрация и прочие замедляются

так пробую - чето на формулу ругается

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("N8:U1000")) Is Nothing Then
With Target(, 21)
.FormulaR1C1 = "=IF(RC[-7]="";"";RC[-7]-RC[-6]-RC[-2])"
End With
End If
End Sub

так еще пробовал - тоже не получилось

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("N6:U1000")) Is Nothing Then
With Target( , 21)
If Target.Offset(0, -7).Value = "" Then Target.Value = "" Else Target.FormulaR1C1 = "=RC[-7]-RC[-6]-RC[-2]"
End With
End If
End Sub

гдето ошибки делаю

[SAS888]

Зачем Вы упорно хотите вставить формулы в ячейки? Если формулы заменять макросом, то пусть он и вычисляет требуемые значения.
И еще. При вашем подходе к решению задачи будет невозможна работа с диапазонами. Например, если вставили скопированный диапазон (или просто очистили) в влияющие ячейки, то макрос отработает только ячейку активной строки.
Предлагаю поступить так:

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim x As Range: Set x = Selection
    If Intersect(Target, [N8:N1000, O8:O1000, S8:S1000, U8:U1000]) Is Nothing Then Exit Sub
    With Application
        .ScreenUpdating = False: .EnableEvents = False
        [N8:N1000].Copy [U8]
        [O8:O1000].Copy: [U8].PasteSpecial xlValues, xlSubtract
        [S8:S1000].Copy: [U8].PasteSpecial xlValues, xlSubtract
        [U8:U1000].Replace "-*", "", xlPart
        .CutCopyMode = False: .ScreenUpdating = True: .EnableEvents = True
    End With
    x.Select
End Sub

[brik]

Благодарю за ваше отличное решение ! Сам бы конечно не додумался до такого...

[brik]

Уважаемый SAS888 - еще раз вынужден обратится к вам тк
макрос работает замечательно на нефильтрованном диапазоне

- а если отфильтровать строки и вводить значения в таблицу в отфильтрованные строки - вычисления сбиваются к сожалению

пример прилагаю - надеюсь на помощь

что делать то - макрос замечательный делает то что нужно
снимать фильтр перед его выполнением и потом снова ставить тотже - а если их несколько по разным критериям вначале перед выполнением ??

[brik]

те вариант какой может быть в этом случае -применил фильтр и получил его конфигурацию по каким критериям
снял фильтр
выполнил этот макрос
потом снова применил этот фильтр исходя из его конфигурации

но как это сделать - как получить конфигурацию текущего фильтра и тд ума не приложу

[SAS888]

Изначально про автофильтр речи не было. Впредь оговаривайте все условия задачи целиком.
Посмотрите пример во вложении.
В файле "Книга3" реализовано следующее:
Если на рабочем листе применен автофильтр, то перед пересчетом ячеек определяется диапазон автофильтра, а так же все критерии и операторы автофильтра запоминаются в массиве, затем снимается автофильтр, происходит пересчет ячеек и фильтр восстанавливается в прежнее состояние.
В файле "Книга4" другой вариант решения задачи:
Нужные диапазоны помещаются в массивы, происходит пересчет и вывод результатов в соответствующие ячейки рабочего листа по очереди, т. к. помещать результаты в массив и выводить на лист "оптом" при примененном автофильтре некорректно.

[brik]

Вариант 2 (Книга4) предложенный вами рабочий - еще раз огромное спасибо за поддержку однако он менее предпочтителен

По варианту 1 (Книга3)ошибки идут при примененном фильтре +вставка значений - я на всякий случай выкладываю с пояснениями
ошибка на строке a(i, 1) = .Filters(i).Criteria1

конечно вариант 1 предпочтительнее тк там перерасчет полный идет на листе при изм любой ячейки
а в варианте 2 такого не получается - например в столбце N значение сотрешь - строка не пересчитывается