İki Sütunda Üstüste toplama

[Yesilyurtlu]

Değerli Uzmanlarım;
Ekli dosyada GİRİŞ ve ÇIKIŞ diye iki tane sayfam var.
Her iki sayfada da "MİKT" ve "TUTAR" yazan sutuna yazdığım her rakam üstüste toplasın istiyorum.
Yardımcı olabilir misiniz?

 

[Korhan Ayhan]

Selamlar,

Sayfalarınızın kod bölümünde benim size daha önce önerdiğim kodlar bulunuyor. Bu kodları aşağıdaki şekilde değiştirip kullanabilirsiniz.

Option Explicit
Dim İLK_VERİ As Variant
 
Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [S17:S62,V17:V62]) Is Nothing Then Exit Sub
    If Target = "" Then
        İLK_VERİ = Empty
        Exit Sub
    End If
    If IsNumeric(Target) Then
        Application.EnableEvents = False
        Target = İLK_VERİ + Target
        Application.EnableEvents = True
    End If
End Sub
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    İLK_VERİ = Target
End Sub

 

[Yesilyurtlu]

Korhan Abi;
Yardımcı olduğun için Teşekkür Ederim.Soruum çözüldü abi