MEVCUT LİSTEDEN SEÇMELİ TOPLAMLAR ALMAK

[osmantelci]

MEVCUT LÝSTEDEN SEÇMELÝ TOPLAMLAR ALMAK

Sayın Daimi1'in sorusuna cevap
Not: Forum kurallarına uyalım, uymayanları uyaralım.

MEVCUT LİSTEDEN SEÇMELİ TOPLAMLAR ALMAK sorunuz ile ilgii tablonuz üzerinden yaptığım çalışma neticesinde şunları yazdım:

Sub SıralaAltToplamAl()
Cells.RemoveSubtotal
For Each i In Range("A15:A" & [a65536].End(xlUp).Row)
i.Offset(0, 26) = Mid(i, 1, 6)
If i = "ALT TOPLAM" Then i.EntireRow.Delete
Next
Range("A15:AA" & [a65536].End(xlUp).Row).Sort [aa15]
Application.DisplayAlerts = 0
Range("A14:AA" & [a65536].End(xlUp).Row).Subtotal 27, xlSum, Array(2, 3, 4)
Application.DisplayAlerts = 1
End Sub