Çözüldü Deger bazli hucre birlestirme

[lon_tokyo]

Merhabalar herkese,

Excel vba ile hazirlamis oldugum raporda, C ve E kolonlarda ki degerlerin ayni olmasi durumunda, o degerler ile ayni satirda yer alan F, G ve H kolonlarinda ki verilerin, her kolon icin ayri olacak sekilde toplatip ayni hucrede birlestirip toplam sonucu birlesen hucrelere yazdirmak istiyorum ancak cok kez denememe ragmen bir turlu mantigini olusturup olumlu bir sonuc alamadim, siz degerli ustalarimin bilgilerinden yararlanip bu sorunu cozmek istiyorum, yardimci olabilirseniz sevinirim.

Simdiden herkese tesekkur ederim. Iyi gunler

 

[Muzaffer Ali]

Merhaba.

Aşağıdaki kodlar ile yapabilirsiniz.

Sub Topla()
    Dim Bak As Long
    Dim Say As Long
    With ThisWorkbook.Worksheets("Final Result")
        Say = .Cells(Rows.Count, "C").End(3).Row
        For Bak = Say To 2 Step -1
            If .Cells(Bak, "C").Value = .Cells(Bak - 1, "C").Value And _
                .Cells(Bak, "E").Value = .Cells(Bak - 1, "E").Value Then
                .Cells(Bak, "F").Value = .Cells(Bak - 1, "F") + .Cells(Bak, "F").Value
                .Cells(Bak, "G").Value = .Cells(Bak - 1, "G") + .Cells(Bak, "G").Value
                .Cells(Bak, "H").Value = .Cells(Bak - 1, "H") + .Cells(Bak, "H").Value
                .Rows(Bak - 1).Delete
            End If
        Next
    End With
End Sub

 

[lon_tokyo]

Merhabalar,

gostermis oldugunuz yontem icin cok tesekkur ediyorum,
Iyi Calismalar