Alt Toplam Formülü

[denizaslan]

Merhaba arkadaşlar,

Yapmak istediğim, listede "temadi" sütununda yer alan yeşil boyalı metinlerin en sondaki Teminat Primi sütunundaki toplamlarını almak istiyorum. buradaki sorun yaşadığım nokta policeno sütununa göre liste istenmesi benden. ben ilgili sütun başlıklarını sarı ile boyadım.

örn
Policeno teminat primi
123456 1.222
654321 865
1212154 3.250

bunu aslında "temadi" sütununu istediklerimi (yeşil renkli) süzüyorum, sonra liste geliyor, policeno sütununa göre Alt Toplam uyguluyorum istediğimi alıyorum fakat bunu tek liste yapmam lazım detayları silerek .

yardımcı olabilir misiniz rica etsem

 

[Murat OSMA]

Sadece yeşil renkli satırlarda mı işlem yapacaksınız ? Yoksa tüm sayfada teminat primi 0 olanlar hariç listelemek mi istiyorsunuz ve sadece policeno ve teminat primini mi listeyeceksiniz, temadi ile ilgili birşey yapmayacak mısınız ?

Bu verdiğiniz örnekten birşey anlamadım ? Gerçekçi örnekler verin...

Policeno teminat primi
123456 1.222
654321 865
1212154 3.250

 

[Murat OSMA]

Sizden bir cevap gelecek diye bekledim gelmedi, şimdi çıkmam gerek.
Şu iki kodu bir deneyin;

Sub Emre()
    Dim con As Object, rs As Object
    Set con = CreateObject("Adodb.connection")
    Set rs = CreateObject("Adodb.recordset")
    Range("P2:R1000").ClearContents
    con.Open "provider=microsoft.jet.oledb.4.0;data source=" & _
    ThisWorkbook.FullName & ";extended properties=""Excel 8.0;hdr=yes"""
    sorgu = "Select policeno, sum([teminat primi]) from [Sayfa1$] group by policeno "
    rs.Open sorgu, con, 1, 1
    Range("P65536").End(3)(2, 1).CopyFromRecordset rs
    Range("Q11").Select
    ActiveCell.FormulaR1C1 = "=SUBTOTAL(9,R[-9]C:R[-2]C)"
    Range("P11:Q11").Select
    Selection.Font.Bold = True
    ActiveCell.Offset(0, 0).Value = "Toplam:"
    rs.Close: con.Close
    Set con = Nothing: Set rs = Nothing
 End Sub

   Sub Murat()
    Range("D1").Select
    Selection.AutoFilter
    ActiveSheet.Range("$A$1:$N$98").AutoFilter Field:=11, Criteria1:=RGB(0, 128 _
    , 0), Operator:=xlFilterFontColor
    Range("P4").Select
    Sheets("Sayfa1").Range("A1:N200").SpecialCells(xlCellTypeVisible).Copy Destination:=Range("P1")
    Columns("P:R").Delete
    Columns("Q:V").Delete
    Columns("R:S").Delete
    Range("R14").Select
    ActiveCell.FormulaR1C1 = "=SUBTOTAL(9,R[-12]C:R[-3]C)"
    Range("R99").Select
    Columns("P:R").AutoFit
 End Sub

 

[denizaslan]

Hocam her police no için aşağıdaki temadi verilerinin teminat primleri toplanacak.

policeno temadi teminat primi
20688084 TEFRIKSIZ (BEDENI VE MADDI) 69
20688084 TEDAVI MASRAFLARI 38,25
20688084 TEDAVI MASRAFLARI 7,65
20688084 ÖLÜM SÜREKLI SAKATLIK 76,5
20688084 ÖLÜM SÜREKLI SAKATLIK 15,3
20688084 KASKO(YANMA,ÇALINMA,ÇARPISMA) 778,94
20688084 HUKUKSAL KORUMA 10
20688084 G17 15
20688084 ANAHTAR KAYBI 25

Sonuç olarak yukarıdaki verileri aşağıdaki gibi tek satırda görmemiz gerekiyor.
20688084 1035,65 TL

 

[Murat OSMA]

Özet tablo ile aşağıdaki gibi yaptım, kontrol ediniz...

 

[denizaslan]

Özet tablo mantığı ile çözümledim hocam, elimdeki veri 30.000 satırdan fazla olduğundan satır bazında kurguladım tabloyu çok teşekkür ediyorum emeğinize sağlık.

 

[Murat OSMA]

Rica ederim Deniz Bey,
İyi günler...