Soru grup toplamları

incsoft

Altın Üye
Katılım
18 Ağustos 2009
Mesajlar
728
Excel Vers. ve Dili
Office Ev ve İş 2021 - Türkçe
Arkadaşlar amacım ekte dosyamda toplam formülü verdiğim hücreleri otomatik olarak tespit ettirerek toplam aldırmaktadır. Bu birer örnek olduğundan sayıları kısıtlı hücre verdim. Benim asıl dosyamda mesela Ocak2016 ayı 500 satırda olabilmektedir mesela. Birde birkaç ay olmuş ve de 1 defaya mahsus olsa ellede yapacağım ancak veriler çok uzayabildiği ve de grup sayısı çok arttığından dolayı bunu otomatik olarak yaptırmak istiyorum. Bunun için formülmü yoksa macromu önerirsiniz? Ekteki dosyama önerileri ve çözümlerinizi ekleyebilirseniz sevinirim.

Teşekkürler.
 

Ekli dosyalar

ÖmerBey

Destek Ekibi
Destek Ekibi
Katılım
22 Ekim 2012
Mesajlar
4,091
Excel Vers. ve Dili
2007 Türkçe
Merhaba,
Aşağıdaki kodu deneyiniz.
PHP:
Sub kod()
Dim alan1 As Range, alan2 As Range
For a = Cells(Rows.Count, "A").End(3).Row To 1 Step -1
    If Not IsNumeric(Cells(a, "A")) Then
        Cells(a, "D").Formula = "=SUM(" & alan1.Address & ")"
        Cells(a, "E").Formula = "=SUM(" & alan2.Address & ")"
        Range("A" & a & ":E" & a).Interior.ColorIndex = 6
        Set alan1 = Nothing
        Set alan2 = Nothing
    Else
        If alan1 Is Nothing Then
            Set alan1 = Cells(a, "D")
            Set alan2 = Cells(a, "E")
        Else
            Set alan1 = Union(alan1, Cells(a, "D"))
            Set alan2 = Union(alan2, Cells(a, "E"))
        End If
    End If
Next
End Sub
 
Üst