sayı girdiğimde satır ekleme

[reflection]

merhaba yapmak istediğimi ekte ayrıntılı anlattım. böyle birşey yapılabilirmi acaba makro ile. teşekkür ederim.

 

[Levent Menteşoğlu]

Aşağıdaki kodu sayfanın kod sayfasına kopyalayarak deneyin.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Intersect(Target, [a:a]) Is Nothing Then Exit Sub
If Target = "" Then Exit Sub
sat = Target.Row
Range("b" & sat & ":d" & sat).Insert
Range("d" & sat).FillDown
Range("d" & sat + 1) = "=SUM(D2:D" & sat & ")"
End Sub