Çok hücreli yinelenen değerlerin toplamını alma

[oa_nur]

Merhabalar,
ekteki dosyada C sütunundaki değerlerin aynı olanların toplanması gerekiyor. Ama aynı zamanda C'de aynı olup, A sütununda farklı kodu olan ürün de olabilir. Yani A sütunu dikkate alınarak C değerleri toplansın istiyorum. Yardımcı olabir misiniz? Not: Formül olursa farklı dosyalara da adapte edebilirim, benim açımdan iyi olur. Teşekkürler.

 

[YUSUF44]

Özet tablo raporunu denediniz mi?

 

[oa_nur]

Özet tablo raporunu denediniz mi?

denedim ama daha önce kullanmadığımdan beceremedim açıkçası

 

[YUSUF44]

Nasıl bir sonuç istediğinizi belirten bir dosya paylaşırsanız yapmaya çalışalım.

 

[oa_nur]

Aynı seri no'lu ürünlerin Stok kodları da aynı ise kaç adet olduğunu öğrenmek istiyorum. Mesela

Nasıl bir sonuç istediğinizi belirten bir dosya paylaşırsanız yapmaya çalışalım.

ek'e kısa bir örnek koydum Yusuf bey. Mesela C sütunlarındaki veriler hep aynı, Ancak A sütunları değişiyor. Ben istiyorum ki 11-002-013 Stok kodlu ürünün, YBS030517 lotu ile 5 adet var diye toplam versin. 11-002-015 stok kodlu ürünün YBS030517 seri no'lusundan 2 adet var sonucunu versin. Sonra da ilk mesajımdaki verilere monte edebileyim rahatça. Derdimi anlatabilmişimdir umarım. Yardımlarınız için şimdiden teşekkürler.

 

[YUSUF44]

Tekrar belirtmek zorundayım, dosyanızda nasıl bir sonuç istediğinizi gösterin lütfen.

 

[oa_nur]

Tekrar belirtmek zorundayım, dosyanızda nasıl bir sonuç istediğinizi gösterin lütfen.

 

[oa_nur]

Dosyayı açarsanız sağ tarafa örnek yaptım. Umarım bu sefer açıklayıcı olabilmişimdir.

 

[YUSUF44]

Aşağıdaki makroyu deneyin:

Sub ozet()
eski = WorksheetFunction.Max(2, Cells(Rows.Count, "G").End(3).Row)
son = WorksheetFunction.Max(2, Cells(Rows.Count, "A").End(3).Row)
Range("$G$2:$I$" & eski).ClearContents
Range("A2:A" & son).Copy [G2]
Range("C2:C" & son).Copy [H2]
Application.CutCopyMode = False
Range("$G$1:$I$" & son).RemoveDuplicates Columns:=Array(1, 2), _
        Header:=xlYes
enson = Cells(Rows.Count, "G").End(3).Row
For i = 2 To enson
    Cells(i, "I") = WorksheetFunction.SumIfs(Range("D2:D" & son), Range("A2:A" & son), Cells(i, "G"), Range("C2:C" & son), Cells(i, "H"))
Next
End Sub

 

[oa_nur]

Aşağıdaki makroyu deneyin:

Sub ozet()
eski = WorksheetFunction.Max(2, Cells(Rows.Count, "G").End(3).Row)
son = WorksheetFunction.Max(2, Cells(Rows.Count, "A").End(3).Row)
Range("$G$2:$I$" & eski).ClearContents
Range("A2:A" & son).Copy [G2]
Range("C2:C" & son).Copy [H2]
Application.CutCopyMode = False
Range("$G$1:$I$" & son).RemoveDuplicates Columns:=Array(1, 2), _
        Header:=xlYes
enson = Cells(Rows.Count, "G").End(3).Row
For i = 2 To enson
    Cells(i, "I") = WorksheetFunction.SumIfs(Range("D2:D" & son), Range("A2:A" & son), Cells(i, "G"), Range("C2:C" & son), Cells(i, "H"))
Next
End Sub

Yusuf bey,
maalesef o kadar iyi bir kullanıcı değilim makrolar bildiğim bir konu değil

 

[YUSUF44]

Makro kullanma yöntemi:

Kodları kopyalayın
Excel dosyasına geçin
Alt+F11 ile kod bölümünü açın
Insert menüsünden Module'yi seçin
Kodları açılan sayfaya yapıştırın
Tekrar excel dosyanıza geçin.
Sayfaya bir düğme/nesne vs ekleyin
Eklediğinize sağ tıklayın ve MAkro ata deyin
Açılan listede ozet adlı makroyu seçin ve işlemi tamamlayın
Artık o düğmeye/nesneye tıkladığınızda rapor oluşacaktır.

 

[oa_nur]

Yusuf bey teşekkürler, makro sorunsuz çalıştı.