Miktar Toplama Gruplu

[ByXmen]

Excel' de Pivot Table Yaparak Ürünlerin Miktar Toplamını Almak İstiyorum.
Yada Farklı Bir Yolu Varsa Toplamları Almak İstiyorum.
Malin Cinsi Alanında Aşağıda Bulunan Bilgiler Vardır.
Orkide 2000 ile Başlayanları Ayrı Toplamak, Orkide 2150 ile Başlayanları Ayrı Toplamak İstiyorum. Ancak Pivot Table Üzerinde Her Ürünü Kendi Adı Altında Topluyor. Bir Türlü Gruplandıramadım.

Yardım Edebilecek Bir Arkadaş Varmı???

Ayrıca Örnek Excel Dosyası İçin Download Linki Verdim.
Şimdiden Teşekkürler...

Download Linki :
http://s3.dosya.tc/server31/0CU5Zz/Orkide.xls.html

ORKIDE 2000 SUTYEN TEN 85
ORKIDE 2000 SUTYEN TEN 90
ORKIDE 2150 SUTYEN SYH 75
ORKIDE 2150 SUTYEN TEN 75

 

[hamitcan]

Miktar alanını D sütununa taşıyın ve aşağıdaki formülü kullanın.

=ETOPLA(C2:C1000;"ORKIDE 2000*";D2:D1000)

 

[ByXmen]

Hamitcan Bey Yardım İçin Teşekkürler Ancak Bu Tam Olarak İstediğim Değil, Neden Derseniz Çok Fazla Satır ve Çok Fazla Ürün Var. Hepsinin İsmini Yazmak Çok Zor. Ancak İlk 11 Karaktere Göre Gruplandırma İmkanımız Olabilecek Bir Formül Arayışım Var... Örnek Dosyada Sanırım 3 Ürün Bilgisi Verdim. Ancak Ürün Sayısı Gerçekten Fazla....

 

[ZorBey_]

Alternatif.
http://s3.dosya.tc/server31/ENTU1e/Topla_Say.rar.html

 

[ByXmen]

Alternatif.
http://s3.dosya.tc/server31/ENTU1e/Topla_Say.rar.html

Zorbey Merhaba Öncelikle İlgi İçin Teşekkürler,

Ekte Orjinal Dosya Var ve Böyle 15 Tane Farklı Dosya Ve Bu Dosyaların Hepsinde Malin Cinsi Alanı Değişiyor....

Bu Şekilde EToplam ile Bir şeyler Söyledi Arkadaş Ama O Bile Dosya Sayısı Çok Olduğundan Zor Duruyor.

O Yuzden Gruplandırma Yapıp Ozel Rapor Almak İstiyorum.

Orijinal Dosya Linki :
http://s3.dosya.tc/server31/Ccgvmv/Orkide_Izmit.xls.html

 

[hamitcan]

Sayfa2 isimli bir sayfa oluşturun ve bu kodu çalıştırın.

Sub Topla()
    With Sheets("Sayfa1")
        For i = 2 To .[a65536].End(3).Row
            .Cells(i, "f") = Left(.Cells(i, "d"), 11)
        Next
        For i = .[f65536].End(3).Row To 2 Step -1
            If WorksheetFunction.CountIf(.Range("f2:f" & i), .Cells(i, "f")) = 1 Then
                c = c + 1
                Sheets("Sayfa2").Cells(c, 1) = .Cells(i, 6)
                Sheets("Sayfa2").Cells(c, 2) = WorksheetFunction.SumIf(.Columns("a:d"), Sheets("Sayfa2").Cells(c, 4) & "*", .Columns(2))
            End If
        Next
        .Columns(6).Clear
    End With
    MsgBox "Bitti"
End Sub

 

[ByXmen]

Hamitcan Merhaba Ama Bu Kodu Nerede Nasıl Çalıştıracagım, Daha Önce Hiç Yapmadım Maalesef.
Yardımcı Olursanız Sevinirim...

 

[ByXmen]

Hamitcan Bey Biraz Araştırttıktan Sonra Kodu Çalıştırdım, Ancak Ürün İsimleri Doğru Geliyor Fakat Toplamlar Hep Genel Alt Toplamı Alıyor.
Nerede Bir Değişiklik Yapmamız Lazım Acaba?? Yada Benmi Yanlış Yaptım??

ORKIDE RUBY 652
ORKIDE RIHA 652
ORKIDE RIAN 652
ORKIDE REIN 652
ORKIDE MERR 652
ORKIDE MART 652
ORKIDE MARI 652
ORKIDE LUSY 652

 

[Korhan Ayhan]

Yardımcı sütun kullanarak verilerinizi rahatlıkla gruplandırabilirsiniz.

Ekteki dosyayı inceleyiniz.

Örnek Dosya

 

[Merhum İdris SERDAR]

.

http://www.excelgurusu.com/wp-content/uploads/Özet-Tablo-İle-Süzme-metin1.xls

Buradaki örneği inceleyin.

.

 

[hamitcan]

Hamitcan Bey Biraz Araştırttıktan Sonra Kodu Çalıştırdım, Ancak Ürün İsimleri Doğru Geliyor Fakat Toplamlar Hep Genel Alt Toplamı Alıyor.
Nerede Bir Değişiklik Yapmamız Lazım Acaba?? Yada Benmi Yanlış Yaptım??

ORKIDE RUBY 652
ORKIDE RIHA 652
ORKIDE RIAN 652
ORKIDE REIN 652
ORKIDE MERR 652
ORKIDE MART 652
ORKIDE MARI 652
ORKIDE LUSY 652

Bu şekilde deneyin.

Sub Topla()
Sheets("Sayfa2").Columns("a:b").Clear
    With Sheets("Sayfa1")
        For i = 2 To .[a65536].End(3).Row
            .Cells(i, "f") = Left(.Cells(i, "D"), 11)
        Next
            .Columns("B").Copy .Columns("G")
        For i = .[f65536].End(3).Row To 2 Step -1
            If WorksheetFunction.CountIf(.Range("f2:f" & i), .Cells(i, "f")) = 1 Then
                c = c + 1
                Sheets("Sayfa2").Cells(c, 1) = .Cells(i, 6)
                Sheets("Sayfa2").Cells(c, 2) = WorksheetFunction.SumIf(.Columns("F:F"), Sheets("Sayfa2").Cells(c, 1), .Columns("G"))
            End If
        Next
        .Columns("F:G").Delete
    End With
    MsgBox "Bitti"
End Sub