Hücre işçinde toplamak

[polis-53]

arkadaşlar E3 hücresine yazdığım Rakkamı F kolonuna aşağıya doğru yazsın istiyorum.
DOSYA LİNGİ
http://s7.dosya.tc/server5/1xuus9/hucreye_sayi_girildiginde_oncekine_ekleme.xls.html

 

[YUSUF44]

Aşağıdaki kodları ilgili sayfanın kod bölümüne yapıştırarak deneyiniz. Mevcut Change kodlarını silmeyi unutmayın:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [E3]) Is Nothing Then Exit Sub
If Target <> "" Then
    yeni = Cells(Rows.Count, "F").End(3).Row + 1
    Cells(yeni, "F") = Target
    Target.Select 'Eğer işlemden sonra E3 hücresinin seçilmesini istemiyorsanız bu satırı silin.
End If
End Sub

 

[polis-53]

Yusuf bey oldu fakat E3 hücresinide toplayark devam etsin istiyorum

 

[YUSUF44]

Tam anlamadım (zaten daha önce istememiştiniz) ancak eğer istediğiniz E3 hücresine yazılan tutarın F sütununa eklendikten sonra F sütununun toplamının E3 hücresine yazılmasıysa aşağıdaki gibi deneyin:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [E3]) Is Nothing Then Exit Sub
If Target <> "" Then
    yeni = Cells(Rows.Count, "F").End(3).Row + 1
    Cells(yeni, "F") = Target
    Application.EnableEvents = False
        Target = WorksheetFunction.Sum([F:F])
    Application.EnableEvents = True
    Target.Select 'Eğer işlemden sonra E3 hücresinin seçilmesini istemiyorsanız bu satırı silin.
End If
End Sub

 

[polis-53]

Çok teşekkür ederim kal sağlıcakla.