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

[Uralmaster]

Столкнулся с такой проблемой - если завести формулы в таблицу из 5000 строк тормоза при пересчете ячеек

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

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

[VictorM]

Наверное можно сделать по такому принципу

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
    If Target.Column = 3 Then
          [g11].Copy Destination:=ActiveCell.Offset(0, 4)
          [h11].Copy Destination:=ActiveCell.Offset(0, 5)
     End If
End Sub

[R Dmitry]

я бы сделал так

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
 If Target.Value = "" Then Exit Sub
    If Target.Column = 3 Then
          Range(Cells(Target.Row, 7), Cells(Target.Row, 8)) _
          = [g11:h11].Formula
     End If
End Sub

[IgorGO]

я бы сделал так

я бы ваще ничего не делал, правильно организованные данные сами заполняются формулами. допишите в строку 7 значения катетов, гипотенуза посчиталась? заполняйте следующую строку...

[Uralmaster]

Код R Dmitry

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target.Value = "" Then Exit Sub
If Target.Column = 3 Then
Range(Cells(Target.Row, 7), Cells(Target.Row, 8)) _
= [g11:h11].Formula
End If
End Sub

как переделать чтоб не срабатывал на числовые значения типа 0 а срабатывал только на текст при заполнении исх данных

[R Dmitry]

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

Код R Dmitry

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target.Value = "" Then Exit Sub
If Target.Column = 3 Then
Range(Cells(Target.Row, 7), Cells(Target.Row, 8)) _
= [g11:h11].Formula
End If
End Sub

как переделать чтоб не срабатывал на числовые значения типа 0 а срабатывал только на текст при заполнении исх данных

числовые значения типа 0 ? это как?
т.е вы хотите что бы только на текст?, тогда добавьте 3 строкой
If IsNumeric(Target.Value) Then Exit Sub

[Uralmaster]

дело в том что исх ячейки с данными заполняются по формуле = с др листа и если там ничего нет в исх ячейках значение 0

[Uralmaster]

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

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


не получилось ....

файл что поправить положил

[R Dmitry]

Private Sub Worksheet_Calculate()
Application.EnableEvents = False
lr = Cells(Rows.Count, 7).End(xlUp).Row
Range(Cells(lr + 1, 7), Cells(lr + 1, 9)) _
          = [g11:i11].Formula
Application.EnableEvents = True
End Sub

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

[Uralmaster]

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