Rakamları topla hücreyi birleştir hk.

[balanar]

merhaba,


1 isimden bazen 2 satır, bazen 3 satır, bazen4 vs bir sıralama oluyor. Aynı isme ait C sutunundaki rakamlar toplanıp, D sutununda kaçtane satır kaplıyorsa birleştir ve ortalama yapıp toplamının oraya yazmasını istiyorum örnek son görünümün böyle olması gerekiyor. Formülle tabi, birde mantıgını izah etme imkanınız varsa çok sevinirim amacım sadece mevzuyu çözmek değil aynı zamanda anlamakta

 

[Ömer]

Merhaba,

Hücre birleştirmeyi formülle yapamazsınız. Makro ile yapmak gerekir.

 

[balanar]

2007de calisiyormu ömer hocam

 

[Ömer]

Çalışır. Yalnız verilerinizi pivot tablo(özet tablo) ile de farklı bir yerde istediğinize yakın raporlayabilirsiniz. Bence pivot tablo(özet tablo) araştırınız. Olmazsa makro ile istediğiniz gibi yaparız.

 

[veyselemre]

Sub test()
    [D:D].Clear
    For i = Cells(Rows.Count, 1).End(3).Row To 2 Step -1
        al1 = Cells(i, 1).Value & "|" & Cells(i, 2).Value
        son = 0
        toplam = Cells(i, 3).Value
        For ii = i - 1 To 1 Step -1
            al2 = Cells(ii, 1).Value & "|" & Cells(ii, 2).Value
            If al1 <> al2 Then
                i = ii + 1
                Cells(i, 4).Value = toplam
                i = ii + 1
                With Range("D" & son & ":D" & i)
                    .MergeCells = True
                    .HorizontalAlignment = xlCenter
                    .VerticalAlignment = xlCenter
                End With
                Exit For
            Else
                If son = 0 Then son = i
                toplam = toplam + Cells(ii, 3).Value

            End If
        Next ii
    Next i
    [a2].CurrentRegion.Borders.LineStyle = xlContinuous
End Sub

 

[balanar]

veyselemre

hocam çalıştı elinize sağlık..

 

[veyselemre]

Veriler 6. sutundan, alınıp sonuçlar 9. sütuna yazdırılıyor.
Tek satırlı işlemlerle ilgili düzenleme yapıldı.

Sub test()
    [I:I].Clear
    sSat = Cells(Rows.Count, 1).End(3).Row
    For i = sSat To 2 Step -1
        al1 = Cells(i, 1).Value & "|" & Cells(i, 2).Value
        son = 0
        toplam = Cells(i, 6).Value
        For ii = i - 1 To 1 Step -1
            al2 = Cells(ii, 1).Value & "|" & Cells(ii, 2).Value
            If al1 <> al2 Then
                i = ii + 1
                Cells(i, 9).Value = toplam
                Cells(i, 9).HorizontalAlignment = xlCenter
                If son <> 0 Then
                    With Range("I" & son & ":I" & i)
                        .MergeCells = True
                        .VerticalAlignment = xlCenter
                    End With
                End If
                Exit For
            Else
                If son = 0 Then son = i
                toplam = toplam + Cells(ii, 6).Value
            End If
        Next ii
    Next i
    Range("a2:I" & sSat).Borders.LineStyle = xlContinuous
End Sub

 

[balanar]

Teşekkür ediyorum şimdi daha iyi oturdu kafamda hocam sağolun