Копирование строки формул при добавлении записи в ячейку

[R Dmitry]

Сообщение от Uralmaster

код както странно работает стираю все значения начиная со строки 12 не стирает 12-ю при принудительном очищении 12-й строки добавляет запись в 13 строку и тд ( образцы формул находятся в 11 строке)

Лучше опишите как, и где вы вводите данные

[Uralmaster]

Ячейка С11 (только текстовые данные)заполнена напротив в ячейках G11 H11 I11 находятся образцы формул
Ввожу текст в ячейку С12 - формулы появляются в ячейках G12 H12 I12;
Ввожу текст в ячейку С13 - формулы появляются в ячейках G13 H13 I13;
и тд

Если стер текст ( из ячейки допустим С13) - идеально было бы чтоб формулы в ячейках G13 H13 I13 убирались (но это не беда- можно скрыть ошибку условным форматированием)

Если стер формулы из ячеек G13 H13 I13 (такой ход возможен-но планирую сделать защиту листа) то при вводе нового текста в ячейку С13 формулы вновь работают

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

Вот так должно быть

[Uralmaster]

файлик вот

[R Dmitry]

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target.Row = 11 Then Exit Sub
If Target.Column = 3 Then
Debug.Print Target.Value
Range(Cells(Target.Row, 7), Cells(Target.Row, 9)) _
= [g11:i11].Formula
If Target.Value = "" Then Range(Cells(Target.Row, 7), Cells(Target.Row, 9)).ClearContents
If IsNumeric(Target.Value) Then Range(Cells(Target.Row, 7), Cells(Target.Row, 9)).ClearContents
End If
End Sub

[Uralmaster]

Если текст в ячейках С11 С12 С13 и тд появляются не ручным вводом текста а по формуле ссылки - я путем "перетаскиванием" формулы по столбцу ввожу ссылки в нижние ячейки столбца С
(ТО ЕСТЬ ЗАНОШУ ЗНАЧЕНИЯ СРАЗУ ОДНОВРЕМЕННО В НЕСКОЛЬКО ЯЧЕЕК СТОЛЦА) то то пересчет формул не ведется

Пересчет ведется когда по одной записи в колонку С добавляешь


Как это можно поправить ?

Файл прилагаю

[SAS888]

...пересчет формул не ведется

Попробуйте в код макроса, последней строкой добавить принудительный пересчет формул:

Application.Volatile

[Uralmaster]

чего то не помогает ...

[Uralmaster]

вставлял в разные места макроса и в начало и в конец не получилось