Aktarsın ve toplasın

[beykatip]

Herkese iyi geceler hayırlı ramazanlar sevgili arkadaşlar ekteki dosyamda her ay aktarılan matrahı üst üste toplasın istiyorum dosyam ektedir.

 

[Orion1]

Dosyanız ektedir.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("E6:E" & Cells(Rows.Count, "C").End(xlUp).Row)) _
        Is Nothing Then Exit Sub
    Target.Offset(0, 1).Value = 0
    Target.Offset(0, 1).Value = Target.Value + Range("A1").Value
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("E6:E" & Cells(Rows.Count, "C").End(xlUp).Row)) _
        Is Nothing Then Exit Sub
    Range("A1").Value = Target.Value

End Sub

 

[beykatip]

Sevgili orion1 bey çok teşekkür ederim ama galiba sorum iyi anlaşılmamış bunun için dosyamı yeniden gönderiyorum

 

[Orion1]

Sevgili orion1 bey çok teşekkür ederim ama galiba sorum iyi anlaşılmamış bunun için dosyamı yeniden gönderiyorum

dosyayı güncelledim.
2 nolu mesajdan indirebilirisiniz.

 

[beykatip]

Sevgili orion1 bey beceriksizliğimi bağışlayın dosyayı indirdim ama makroları düğmeye atayamadım dolayısıyla çalıştıramadım makroları nasıl ve nereye atamalıyım veya siz atayabilirmisiniz

 

[Orion1]

Sevgili orion1 bey beceriksizliğimi bağışlayın dosyayı indirdim ama makroları düğmeye atayamadım dolayısıyla çalıştıramadım makroları nasıl ve nereye atamalıyım veya siz atayabilirmisiniz

Küçük bir değişiklik yaptım.
Dosyayı 2 nolu mesajda güncelledim.
Siz kod eklemeyeceksiniz.Sadece verilerinizi girin.O toplayacak.