Makro ile sütunu diğer sütunun üstüne topla

[Yesilyurtlu]

Değerli uzmanlarım;

S6 - S105 sütununda ki değerleri R6 - R105 sütununa aktarıp sürekli üstüne toplayacak. Böyle bir makro konusunda yardımcı olabilir misiniz?

 

[uzmanamele]

merhaba

böyle bir şey işinizi görür mü?

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [s:s]) Is Nothing Then Exit Sub
Target.Offset(0, -1) = Target.Offset(0, -1).Value + Target.Value
End Sub

 

[Korhan Ayhan]

Selamlar,

Alternatif olarak aşağıdaki koduda kullanabilirsiniz.

Option Explicit
 
Sub ÜZERİNE_TOPLA()
    Dim X As Integer
    For X = 6 To 105
        Cells(X, "R") = Cells(X, "R") + Cells(X, "S")
    Next
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[Yesilyurtlu]

Sayın uzmanamele ve Sayın Korhan Ayhan Uzmanlarıma ayrı ayrı teşekkür ederim.

Ellerinize sağlık.