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

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

Ömer BARAN

Uzman
Katılım
8 Mart 2011
Mesajlar
12,997
Excel Vers. ve Dili
Office 2013 ( 32 bit ) TÜRKÇE
Altın Üyelik Bitiş Tarihi
(18.03.2020) - Uzman olduğu için tarih geçersiz oldu.
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)
 

Ömer BARAN

Uzman
Katılım
8 Mart 2011
Mesajlar
12,997
Excel Vers. ve Dili
Office 2013 ( 32 bit ) TÜRKÇE
Altın Üyelik Bitiş Tarihi
(18.03.2020) - Uzman olduğu için tarih geçersiz oldu.
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.
 

tahsinanarat

Altın Üye
Katılım
14 Mart 2005
Mesajlar
2,167
Excel Vers. ve Dili
Ofis 2019 Türkçe
Altın Üyelik Bitiş Tarihi
27-05-2028
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

Katılım
25 Ocak 2013
Mesajlar
188
Excel Vers. ve Dili
2013 Professional Plus Türkçe
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.
 
Katılım
8 Ocak 2010
Mesajlar
1
Excel Vers. ve Dili
office 2007 türkçe
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
 
Üst