farklı sütünlardaki rakamları toplama

[uguristanbul]

butona bastıgımda
Private Sub CommandButton1_Click()
Columns("A:A").AdvancedFilter Action:=xlFilterCopy, _
CopyToRange:=Range("E1"), Unique:=True
Range("E2:E" & Rows.Count).Sort Range("E2")
End Sub
calısıyorancak bundan sonrada
e sütünundaki oranları a sütünü ile karsılastırıp benzer orandaki oranların tutarlarını (b sutunu) toplayıp f sütünnuna yazacak
örnek:
a sütünunda 1 oranı 2 tane var (a1 A13) ve bunarın tutarları
10+130= (b1 ile b13)140
e1 de 1 yazdığı için toplam 140 ı f1 e yazacak.
ve her farklı oran ve tutarın toplamını f1 den baslayarak asagıya doğru hesaplayacak

(her işlem için a ve b sutunu değişecek olduğunu ltf unutmayın)
saygılar

 

[Mahir64]

Merhaba,
F sütununda 2 adet 1(bir ) bununlakta bunu anlayamadım
F2 yazarak deneyin
Aşaığı doğru çekin

=ETOPLA(A:A;E2;B:B)