- Katılım
- 16 Aralık 2005
- Mesajlar
- 130
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
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