Süz ve sırala

[magnesia]

Arkadaşlar selam.
Ekteki dosyada, isteklerimi formülle görüyorum ama ben bunu kodlarla yapmak istiyorum.
İsteğim şu :
Sayfa3, A sütunundaki hata nedenlerini süzerek teke düşürsün ve B sütunundaki hata sayıları ile C sütunundaki iade miktarının toplamını hata dökümleri sayfasına listelesin.
Listelerken, B sütunundaki hata adedine BÜYÜKTEN KÜÇÜĞE doğru sıralasın.
Bir isteğim daha olacak.
Hata dökümleri sayfasındaki TOPLAM satırı her zaman, hata nedenlerinin hemen altında olsun. Yeni hata nedeni eklenirse TOPLAM satırı bir alta kaysın.
Umarım anlatabilmişimdir.
Şimdiden teşekkürler.

 

[magnesia]

Sorumu güncellemek istiyorum.

 

[magnesia]

Lütfen yardım.

 

[YUSUF44]

Özet tablo raporunu denediniz mi?

 

[magnesia]

Bana çok karışık geliyor özet tablo. Kodlar en faydalı çözüm benim için.

 

[YUSUF44]

Önceki soruma dosya ekledim. İnceleyiniz. Özet tablo özet/rapor çıkarmak için en hızlı, en pratik yöntemdir.

 

[magnesia]

Sayın Yusuf 44.
Öncelikle ilginize ve emeğinize teşekkür ederim.
Az önce dediğim gibi benim için en faydalı çözüm kodlarla yapılacak çözüm ama şaşılacak bir durum var ki kimse ilgilenmedi.

 

[Ömer BARAN]

Sayın @YUSUF44 'ün müsedeleriyle, bir alternatif de benden olsun.
Belge ekte.

 

[magnesia]

Sayın Ömer Baran.
İşlem tamam.
İlginize emeğinize teşekkür ederim.

 

[Ömer BARAN]

Kolay gelsin.

 

[Ömer BARAN]

Tekrar merhaba.

Yazdığınız özel mesaj doğrultusunda, kullanılan kodları güncelleyerek önceki cevabıma eklediğim belgeyi yeniledim.
8 numaralı cevap ekindeki yeni belgeyi kullanabilirsiniz.
Konuyla ilgili ilave soru/yeni sorun olduğunda, konu sayfasına mesaj yazmanız, forum takipleri bakımından daha yararlı olur diye düşünüyorum.

UYARI NOTU : Özel mesaj ile ulaştırdığınız belgede Sayfa3'teki 106'ncı satırdaki ÖLÇÜSEL HATA'nın sonunda BOŞLUK karakteri var.
Gerçek belgenizde başka verilerde de benzer durum olabileceğini düşünerek, kod'da ilave yaptım ancak
bu boşluk karakteri meselesini, kulandığınız formülleri gözden geçirerek düzeltebiliyorsanız;
belgede verdiğim kod'da yer alan aşağıdaki kırmızı kısımları silerek kullanın.

        .Cells(sat, 3) = WorksheetFunction.SumIf(S3.[A:A], .Cells(sat, 2), S3.[B:B]) + _
                        WorksheetFunction.SumIf(S3.[A:A], .Cells(sat, 2) & " ", S3.[B:B])
        .Cells(sat, 4) = WorksheetFunction.SumIf(S3.[A:A], .Cells(sat, 2), S3.[C:C]) + _
                        WorksheetFunction.SumIf(S3.[A:A], .Cells(sat, 2) & " ", S3.[C:C])

 

[magnesia]

Sayın Ömer BARAN.
Tam istediğim gibi..
Harika, muhteşem..
İlginize,bilginize,emeğinize sağlık..
Çok çok teşekkür ederim..
Uyarılarınız için ayrıca teşekkürler.