Bir Sutun İçerisindeki Birden Fazla Değerin Yanındaki Değerlerin Toplamı

[zafer.kargin]

Arkadaşlar Merhaba,

Ben Bir Sütunda Birbirine Benzeyen Verilerin Yanında Bulunan Değerlerin Tek Bir Satırda Toplanmasını İstiyorum.

Örn; A1 Satırında 98698 Değeri B1 Satırında 40,00 TL
A32 Satırında 98698 Değeri A32 Satırında 60,00 TL
A65 Satırında 98698 Değeri A65 Satırında 70,00 TL
A75 Satırında 98698 Değeri A98 Satırında 100,00 TL

Değerleri Yer Almakta. Benim İstediğim Şey Öyle Bir Formül Olsun ki

Bana 98698 Değerinin Tüm Yan Değerlerinin Toplamını versin.
98698 270,00 TL Şeklinde.

Yardımcı Olursanız Çok Sevinirim.

Şimdiden Teşekkürler.

 

[bzace]

Merhaba,

=ETOPLA(A1:A100;[COLOR="red"][B]98698[/B][/COLOR];B1:B100)

formüldeki kırmızı yer değişkendir.

 

[zafer.kargin]

Çok Teşekkürler Üstad Deneyeceğim.

 

[zafer.kargin]

Üstad Aslında Tam İstediğim Bu Değil

A Sutununda Birden Fazla Birbirine Benzeyen Değer Var.

Eğer ;

A Sutunundaki Birbirine Benzeyen Değerler Varsa Yanındaki Değerleri Toplayıp Tek bir Sonuç versin Mantığına Yatan Bir Formül Var ise Paylaşırsan Sevinirim.

 

[NBATMAN]

Merhaba,

Konunun makro ile çözümünü ekte gönderiyorum. Büyük bir ihtimal formül ile de çözen arkadaşlar olur.

Option Explicit


Private Sub CommandButton1_Click()
 Dim i As Long
    Dim sonsatir As Long
    sonsatir = Cells(Rows.Count, "A").End(xlUp).Row
    
    For i = 2 To (sonsatir - 2)
        
        If InStr(Cells(i, "A"), Sheets("Sayfa1").Range("E1").Value) > 0 Then
            Cells(i, "C") = "Benzer"
        Else
            Cells(i, "C") = ""
        End If
    Next i
Range("c29").Value = WorksheetFunction.SumIf(Sheets("Sayfa1").Range("c2:C27"), "Benzer", Sheets("Sayfa1").Range("b2:b27"))
End Sub