Sutundakı sayıların toplamını alma

[Alpay Black]

Degerlı ustatlar belkı cok basıt ama cozemedım
b sutununda tekrarlana degerlerve karsılarında adetlerı var
benım ıstegım tekrarlanan kodları tek adete cevırmek ama toplamlarını o kodun karsına yazdırmak ornektede acıkladım

 

[Ömer]

Merhaba,

Bu şekilde deneyin.

Sub Ozet_Al()

    Dim d As Object, i As Long, s, deg

    Set d = CreateObject("Scripting.Dictionary")
    
    Application.ScreenUpdating = False
    Sheets("Sayfa1").Select

    For i = 2 To Cells(Rows.Count, "B").End(xlUp).Row
        deg = Cells(i, "B")
        If Not d.exists(deg) Then
            s = Cells(i, "C")
            d.Add deg, s
        Else
            s = d.Item(deg)
            s = s + Cells(i, "C")
            d.Item(deg) = s
        End If
    Next i

    Range("I2:J" & Rows.Count).ClearContents
            
    Range("I2").Resize(d.Count, 2) = _
        Application.Transpose(Array(d.keys, d.items))
        
    Application.ScreenUpdating = True

End Sub

.

 

[Alpay Black]

ömer hocam teşekkur ederım
1 sey daha sormak ıstıyorum bunu tum tekrar eden yerlerde kullanabılırmıyım

 

[systran]

bu da alternatif olsun. makrosuz, formül ile.

 

[Ömer]

"Tüm tekrar eden yerlerden" kastınız nedir. Soruyu açarmısınız.

Şuan kodların yaptığı, B sütunundaki tüm tekrar eden verileri tekrarsız şekilde I sütununa yazarak karşısındaki C sütununun toplamını J sütununa yazıyor.

.

 

[Alpay Black]

"tüm tekrar eden yerlerden" kastınız nedir. Soruyu açarmısınız.

şuan kodların yaptığı, b sütunundaki tüm tekrar eden verileri tekrarsız şekilde ı sütununa yazarak karşısındaki c sütununun toplamını j sütununa yazıyor.

.

baska sayfalardada kullagım verıler var aynı sekılde onu demek ıstedım

 

[Ömer]

Kodlardaki aralık tanımlarını yeni uygulanacak aralığa göre değiştirerek uygulayabilirsiniz.

 

[Alpay Black]

Kodlardaki aralık tanımlarını yeni uygulanacak aralığa göre değiştirerek uygulayabilirsiniz.

Çok teşekkür ederım hocam saolun... İyi çalışmalar dılerım

 

[Erdem Akdemir]

Merhaba,

Formül ile alternatif olarak kullanabilirsiniz.
Dizi formülüdür. CTRL+SHIFT+ENTER ile kapatmayı unutmayın.

=EĞERHATA(KÜÇÜK(EĞER(EĞERSAY($B$2:$B$364;EĞER(EĞERSAY(KAYDIR($B$2;;;SATIR($B$2:$B$364)-1);$B$2:$B$364)=1;$B$2:$B$364;""))>1;$B$2:$B$364;"");SATIR(A1));"")

1'den fazla listelenen sayıları bulduktan sonra toplamlarını aşağıdaki formülle alabilirsiniz.

=ETOPLA($B$2:$B$364;I3;$C$2:$C$364)

 

[Alpay Black]

merhaba,

formül ile alternatif olarak kullanabilirsiniz.
Dizi formülüdür. Ctrl+shıft+enter ile kapatmayı unutmayın.

=eğerhata(küçük(eğer(eğersay($b$2:$b$364;eğer(eğersay(kaydır($b$2;;;satır($b$2:$b$364)-1);$b$2:$b$364)=1;$b$2:$b$364;""))>1;$b$2:$b$364;"");satır(a1));"")

1'den fazla listelenen sayıları bulduktan sonra toplamlarını aşağıdaki formülle alabilirsiniz.

=etopla($b$2:$b$364;ı3;$c$2:$c$364)

hocam teşekkur ederım