formülü satıra atamak ??

[BASKICI]

Selamlar
Arkadaşlar alttaki kod B3 de veri girdikçe bir önceki veri ile son girdiğim veriyi topluyor.Ben ise bunu satıra atamak istiyorum. Yani 3ncü satırdaki tüm hücreler böyle olmalı.Bunu nasıl yapabilirim ?

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Static dAccumulator As Double
With Target
If .Address(False, False) = "B3" Then
If Not IsEmpty(.Value) And IsNumeric(.Value) Then
dAccumulator = dAccumulator + .Value
Else
dAccumulator = 0
End If
Application.EnableEvents = False
.Value = dAccumulator
Application.EnableEvents = True
End If
End With
End Sub

 

[AS3434]

Sayın BASKICI

Şu kodları kullanabilirsiniz;

Dim İlk As Variant
 
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Rows(3), Target) Is Nothing Then Exit Sub
If Target = Empty Then Exit Sub
Application.EnableEvents = False
If Target.Row = 3 Then
Target = İlk + Target
End If
Application.EnableEvents = True
End Sub
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    İlk = Target
End Sub

.

 

[BASKICI]

Sayın AS3434 ;
İlginiz için çok teşekkür ederim. Fakat sanırım ben beceremedim çalışmadı kodlar. Rica etsem sizden bi dosyaya yapıp ekleme şansınız var mı ? Şimdiden teşekkür ederim.

 

[AS3434]

Sayın BASKICI

Ekli dosyayı inceleyin.


.

 

[BASKICI]

Sayın AS3434 ; yardımınız için teşekkür ederim.

 

[BASKICI]

Dim İlk As Variant
Dim Dokuz As Variant

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Rows(3), Target) Is Nothing Then Exit Sub
If Target = Empty Then Exit Sub
Application.EnableEvents = False
If Target.Row = 3 Then
Target = İlk + Target
End If
Application.EnableEvents = True
If Intersect(Rows(3), Target) Is Nothing Then Exit Sub
If Target = Empty Then Exit Sub
Application.EnableEvents = False
If Target.Row = 3 Then
Target = İlk + Target
End If
Application.EnableEvents = True
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
İlk = Target
Dokuz = Target
End Sub

Arkadaşlar bunu kendimce kırmızı olan yerlerle aynı sayfada başka satırlara da çoğaltmaya çalıştım ancak beceremedim. İstediğim 3,9,15,21,ve 27nci satırlarda olmasını istiyorum sadece bunların ? Mümkün müdür ?