Üç Farkli Sutunda Eşleşme Toplama

[FCOBANOGLU]

SELAMLAR

EXELDE ALMIŞ OLDUĞUM BİR VERİDE TARİH, İSİM VE TUTARLAR YER ALMAKTA BU ÜÇ FARKLI SÜTUNU İKİNCİ BİR SAYFADA AYNI TARİHLERİ AYNI İSİMLERİ VE KARŞISINDAKİ TUTARI TEK SATIRDA TOPLAYACAK. BUNU NASIL YAPABİLİRİM ACABA.

ŞİMDİDEN TEŞEKKÜRLER :yardim:

 

[Merhum İdris SERDAR]

http://www.excel.web.tr/showthread.php?t=16859

Burada yer alan dosyayı inceleyin.

..

 

[N.Ziya Hiçdurmaz]

Yanıt

=+TOPLA.ÇARPIM(--(Sayfa1!A1:A4=Sayfa1!A1);--(Sayfa1!B1:B4=Sayfa1!B1);--(Sayfa1!C1:C4))

 

[FCOBANOGLU]

Hocam Öncelİkle Yardiminiz İÇİn TeŞekkÜrler

FormÜlÜ AŞaĞidakİ Gİbİ Yazdim Ama DeĞer Verİyor????

=topla.Çarpim(--(odeon_report!a11:a500=odeon_report!a11);--(odeon_report!f11:f500=odeon_report!f11);--(odeon_report!j11:j500))

 

[FCOBANOGLU]

ÜÇ Farkli SÜtÜnu Saydirma Ve Toplatma

Tekrar Selamlar

Hocam VermİŞ OlduĞunuz FormÜlÜ Ekledİm Ama DeĞer Verİyor. İlgİlİ Dosya Ekte. Bİrİncİ Sayfada BaŞliklari Sari İle Tarali Alanlar İkİncİ Sayfada Toplam Olarak GÖrÜntÜlemek İstİyorum.

Şİmdİden TeŞekkÜrler
EmeĞenİze SaĞlik

 

[Orion1]

Merhaba.
Ekli dosyada bir şeyler yaptım ama, inşallah doğrudur.

 

[Korhan Ayhan]

Selamlar,

Anladığım kadarıyla kullandığınız sistemden excele bir rapor atmışsınız ve bu raporu düzenlemek istiyorsunuz.

Bunun için en ideal yöntem kullanmak istemediğiniz satır ve sütunları temizleyerek veri tablonuzu düzenlemektir. Bu işlemi yaptıktan sonra eğer işinize yarıyorsa en pratik çözüm ÖZET TABLO ile verilerinizi düzenlemektir.

Eklemiş olduğunuz örnek dosyadaki gereksiz satır ve sütunları silerek ÖZET TABLO ile verilerinizi düzenledim. Umarım faydası olur.

 

[Recep İpek]

Anladığım kadarıyla aşağıdaki kodları işinize yarayabilir.

Sub AktarTopla()
Dim a, i As Long, b(), n As Long
Set s1 = Sheets("ODEON_REPORT")
Set s2 = Sheets("ODEON REPORT (2)")
a = s1.Range("a9:k5000").Value
ReDim b(1 To UBound(a, 1), 1 To 5)
With CreateObject("Scripting.Dictionary")
     .CompareMode = vbTextCompare
     For i = 1 To UBound(a, 1)
     z = a(i, 1) & " " & a(i, 5)
          If Not .exists(z) Then
               n = n + 1
               .Add (z), n
               b(n, 1) = a(i, 1)
               b(n, 2) = a(i, 5)
               b(n, 3) = a(i, 6)
               End If
          b(.Item(z), 4) = b(.Item(z), 4) + a(i, 10)
          b(.Item(z), 5) = b(.Item(z), 5) + a(i, 11)
          Next
End With
s2.Range("a9:e5000").ClearContents
s2.Range("a9").Resize(n, 5).Value = b
MsgBox "Bitti"
[a1].Select
Set s1 = Nothing
Set s2 = Nothing
End Sub