Kümülatif vergi matrahını bulma

[yyhy]

İyi akşamlar. Ekte örneği bulunan dosyada sayfa1 deki vergi matrahlarını ay ay sayfa 2 ye aktararak toplam vergi matrahını bulmak istiyorum.Bunu bir yolu var mı?

 

[systran]

Sayfa1 I2 hücresinde yazan ay ismine göre Sayfa2 ye ilgili ay altına verileri matrahları kopyalar. Sayfa1 ve sayfa2 deki isim sırasının aynı olması gerekir.

 

[Necdet]

Merhaba,

Sayfa1'e bir buton ekleyerek aşağıdaki kodları bağlayınız.

Not : Sayfa1 de I2 hücresini tarih olarak girin. Örneğin 01.01.2020 gibi, görüntü olarak 2020 Ocak olarak gösterebilirsiniz.

Sayfa1 deki kişi sayfa 2 de olmazsa otomatik olarak ilgili kişi sayfa2 ye aktarılır.

A sütunundaki 1, 2, 3 .... gibi sıra numaralarını ben Sicil No olarak düşündüğüm için aktarırken bu numarayı Sayfa2 de aratıp bulduktan sonra matrahı aktardım.

Sub MatrahAktar()

    Dim s1  As Worksheet, _
        s2  As Worksheet, _
        c   As Range, _
        i   As Long, _
        j   As Long, _
        k   As Integer, _
        Ay  As Integer
        
    Set s1 = Sheets("Sayfa1")
    Set s2 = Sheets("Sayfa2")
    
    Ay = Month(s1.Range("I2")) + 2
    
    For i = 4 To s1.Cells(Rows.Count, "A").End(3).Row
        
        k = k + 1
        Set c = s2.Range("A:A").Find(s1.Cells(i, "A"), LookIn:=xlValues, LookAt:=xlWhole)
        If Not c Is Nothing Then
            j = c.Row
        Else
            j = s2.Cells(Rows.Count, "A").End(3).Row + 1
            s2.Cells(j, "A") = s1.Cells(i, "A")
            s2.Cells(j, "B") = s1.Cells(i, "B")
            s2.Range("O" & j).FormulaR1C1 = "=SUM(RC[-12]:RC[-1])"
        End If
    
        s2.Cells(j, Ay) = s1.Cells(i, "I")
        
    Next i
    
    MsgBox k & " Adet Matrah Aktarılmıştır...."
    
End Sub

 

[yyhy]

Teşekkürler