• DİKKAT

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

Sütundaki aynı verilerin diğer sütundaki karşılığını toplama

  • Konbuyu başlatan Konbuyu başlatan nokmen
  • Başlangıç tarihi Başlangıç tarihi
Katılım
25 Ocak 2013
Mesajlar
188
Excel Vers. ve Dili
2013 Professional Plus Türkçe
Arkadaşlar merhaba,

Başlıkta çok güzel özetlediğimi düşünüyorum :). Örneğin hafta boyu arama yapan kişilerin kaydı var, biz kimin kaç dakika arama yaptığını yeni bir tabloda yazdırmak istiyoruz.


Örnek dosya :
 

Ekli dosyalar

Sayfa2'de B2 hücresine aşağıdaki formülü yazın. Sonra formülü aşağı doğru çoğaltırsınız.

=ETOPLA(Sayfa1!$A$2:$A$11;A2;Sayfa1!$B$2:$B$11)
 
ya da

Sayfa1'e otomatik süz ekleyip;

B1 hücresine "=ALTTOPLAM(9;B2:B11)" formülünü yazarsanız,

A sütunundaki süz'den kişi seçtiğinizde B1 hücresinde toplamı görebilirsiniz.
 
dosyanız ekte

Makro ile düzenlenen dosyanız ekte.
Not: makrolar evvelce bu siteden temin edilen makrolardır
Kod:
Sub aktar()
Dim a, i As Long, z As Object
Set s1 = Sheets("Sayfa1")
Set s2 = Sheets("Sayfa2")
'*******************************************************
a = s1.Range("a2:b" & s1.Cells(65536, "A").End(xlUp).Row)
Set z = CreateObject("Scripting.Dictionary")
For i = 1 To UBound(a, 1)
    If Not z.exists(a(i, 1)) Then
        z.Add a(i, 1), CDbl(a(i, 2))
    Else
        z.Item(a(i, 1)) = z.Item(a(i, 1)) + CDbl(a(i, 2))
    End If
Next i
Application.ScreenUpdating = False
s2.Range("A2:B65536").ClearContents
s2.[A2].Resize((z.Count), 2) = Application.Transpose(Array(z.keys, z.items))
Application.ScreenUpdating = True
MsgBox "İşlem tamamlandı"
End Sub
 

Ekli dosyalar

Arkadaşlar ilginiz için çok teşekkürler. Soruyu sorduktan sonra beynim açıldı, (heralde fazla ekrana bakmaktan aklıma gelmemişti :) ), çünkü konuyu özet tabloyla çok basit şekilde çözümledim (satır etiketlerine "kişi", Değerlere "arama" koydum, hepsi bu) ancak yazdığınız formüller başka yerlerde de işimi görecek formüller. Özellikle makroyu zamanım olduğunda inceleyeceğim.

Tekrardan teşekkürler.
 
arkadaşlar, benimde aynı konu üzerinde bir sorum olacak. aynı formülü iki değeri karşılaştırıp toplama şansımız var mı?

örnek:

a sütunu ve b sütununda ki değerler diğer tabloda birbirine eşitse karşılığına denk gelen satırların toplamını alacak.

şimdiden teşekkürler
 
Geri
Üst