About adding a formula when adding a row

[muhittinemmi]

Hello

When new line is added in below codein line 5; The formula =IF(E5<>"";C5*E5;"") in Cell F5 and =IF(E5<>"";M5;"") in cell G5

What kind of change should be made in order to be able to add automatically according to the added line information.

Sub Ekle()
Dim i As Integer
s = Sheets("Teklif").[H65536].End(3).Row
Sheets("Teklif").Range("B" & s & ":H" & s).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
For i = 5 To s
Top = Top + (Sheets("Teklif").Range("H" & i) * Sheets("Teklif").Range("H" & i))
Next i
If Top = 0 Then Exit Sub
Sheets("Teklif").Range("H" & s + 1) = Round(Top, 2)
End Sub

 

[RudRud]

Book2
	B	C	D	E	F	G	H
5				23	0	0	2
6	2	2		4	8	0	1
teklif

Cell Formulas
Range	Formula
F5:F6	F5	=IF(E5<>"",C5*E5,"")
G5:G6	G5	=IF(E5<>"",M5,"")

Sub Ekle()
Dim i As Integer
s = Sheets("Teklif").[H65536].End(3).Row
Sheets("Teklif").Range("B" & s & ":H" & s).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
For i = 5 To s
Top = Top + (Sheets("Teklif").Range("H" & i) * Sheets("Teklif").Range("H" & i))
Sheets("Teklif").Cells(i, "F").Formula = "=IF(E" & i & "<>"""",C" & i & "*E" & i & " ,"""")"
Sheets("Teklif").Cells(i, "G").Formula = "=IF(E" & i & "<>"""",M" & i & ","""")"
Next i
If Top = 0 Then Exit Sub
Sheets("Teklif").Range("H" & s + 1) = Round(Top, 2)
End Sub

Sheets("Teklif").Cells(i, "F").Formula = "=IF(E" & i & "<>"""",C" & i & "*E" & i & " ,"""")"
Sheets("Teklif").Cells(i, "G").Formula = "=IF(E" & i & "<>"""",M" & i & ","""")"

If you're using ; instead of , you may replace , into ;

Sheets("Teklif").Cells(i, "F").Formula = "=IF(E" & i & "<>"""";C" & i & "*E" & i & " ;"""")"
Sheets("Teklif").Cells(i, "G").Formula = "=IF(E" & i & "<>"""";M" & i & ";"""")"

Kindly give a shot, is it what you're looking for?

 

[muhittinemmi]

Thanks for your interest, it works very well.

 

[RudRud]

Thanks for your interest, it works very well.

Glad to assist, If you have any further questions, please don't hesitate to ask/share with us