Üstüste toplama

[Yesilyurtlu]

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("V7")) Is Nothing Then Exit Sub
[w7] = [w7] + [V7]
End Sub
Yukarıdaki makro ile sadece v7'ye yazılan rakamı W8'e toplatabiliyorum üstüste.
Bu üstüste toplamayı
V8 W8
V9 W9
" "
" " gibi toplam 37 satır için ne yapabilirim.

 

[Korhan Ayhan]

Selamlar,

Kullandığınız kodu aşağıdaki şekilde değiştirip denermisiniz. Burada kullanılan "Target" kelimesi en son işlem yapılan hücreyi ifade etmektedir.

Option Explicit
 
Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("V7:V43")) Is Nothing Then Exit Sub
    Target.Offset(0, 1) = Target.Offset(0, 1) + Target
End Sub

 

[Yesilyurtlu]

Korhan Ayhan UZMANIM;

Teşekkür Ederim. Eline Sağlık
Allah Razı olsun