• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Miktar Toplama Gruplu

B

ByXmen

Katılım
9 Mart 2009
Mesajlar
23
Excel Vers. ve Dili
2007 - Türkçe
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
 
Miktar alanını D sütununa taşıyın ve aşağıdaki formülü kullanın.
Kod: 
=ETOPLA(C2:C1000;"ORKIDE 2000*";D2:D1000)
 
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_' Alıntı:
Alternatif.
http://s3.dosya.tc/server31/ENTU1e/Topla_Say.rar.html
Genişletmek için tıkla ...

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
 
Sayfa2 isimli bir sayfa oluşturun ve bu kodu çalıştırın.
Kod: 
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
 
Hamitcan Merhaba Ama Bu Kodu Nerede Nasıl Çalıştıracagım, Daha Önce Hiç Yapmadım Maalesef.
Yardımcı Olursanız Sevinirim...
 
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
 
Yardımcı sütun kullanarak verilerinizi rahatlıkla gruplandırabilirsiniz.

Ekteki dosyayı inceleyiniz.

Örnek Dosya
 

Ekli dosyalar

ByXmen' Alıntı:
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
Genişletmek için tıkla ...
Bu şekilde deneyin.
Kod: 
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
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst