tekrarlayan hücreleri toplatma

[Z3U519]

Arkadaşlar ekteki örnek dosyada olduğu gibi elimde bazı veriler mevcut. İstediğim şey adanaların hepsini toplayıp herhangi bir hücreye adana genel toplamını yazması aynı şekilde Erzurum için ve rize içinde tekrarlayan illerin toplam rakamını vermesi. Nasıl yapabilirim acaba?

 

[Korhan Ayhan]

Merhaba,

Artık özet tablo kullanma zamanınız gelmiş. Verilerinize başlık satırı ekledikten sonra özet tablo oluşturmayı deneyin. Biraz kurcalarsanız nasıl yapıldığını kolayca çözebilirsiniz.

Aşağıdaki linkte de resimli anlatım var. İnceleyiniz.

Özet Tablo Hazırlamak (Resimli Anlatım)

 

[Z3U519]

Çok teşekkür ederim Korhan Bey. Biraz kurcalayınca istediklerimi yapabileceğimi gördüm. Tekrar teşekkürler.

 

[Orion1]

Dosyanız ektedir.

Option Base 1
Sub aktartopla59()
Dim z As Object, sat As Long, i As Long, liste()
Sheets("Sayfa1").Select
sat = Sheets("Sayfa1").Cells(Rows.Count, "A").End(xlUp).Row
Sheets("Sayfa2").Range("A:B").ClearContents
Set z = CreateObject("scripting.dictionary")
liste = Range("A1:C" & sat).Value
For i = 1 To UBound(liste)
    If Not z.exists(liste(i, 1)) Then
        z.Add liste(i, 1), liste(i, 3)
    Else
        z.Item(liste(i, 1)) = z.Item(liste(i, 1)) + liste(i, 3)
    End If
Next
Application.ScreenUpdating = False
Sheets("Sayfa2").Select
Range("A1").Resize(z.Count, 2) = Application.Transpose(Array(z.keys, z.items))
Application.ScreenUpdating = True
MsgBox "İşlem tamamlandı." & vbLf & "evrengizlen@hotmail.com"
End Sub

 

[Z3U519]

Teşekkürler Orion1