A kolonunda aynı olanları bulup C kolonundaki adetlerini toplamak

[gatinc]

merhaba,

A kolonunda aynı değerde olan satırların C kolonundaki değerlerini toplayarak D kolonuna yazacak formülü nasıl yapabilirim?

 

[Ömer]

Merhaba,

Linki inceleyin.

Mükerrer (Çift) Kayıt Engelleme,Sayma Örnekleri

.

 

[gatinc]

ilginiz için çok teşekkür ederim, ancak istediğimi yapabileceğim formulu bulamadım.

 

[Ömer]

Örnek dosya ekleyerek açıklayınız. Dosyanızı 2003 formatında ekleyiniz..

 

[gatinc]

ornekte anlatmaya çalıştım, ilginiz için çok teşekkür ederim.

 

[Ömer]

Aynı olan verinin en sonundakinemi toplam yazacak yoksa tümüne mi?

Örnek,

a 5
a 6
b 2
c 4
d 3
a 5 ........16

bu şekildemi olacak yoksa her satıra toplaya toplayamı gidecek. Eğer toplayarak gidecekse aynı veri yoksa onların toplamı yazılmayacak mı?

 

[sbayyigit]

merhaba,

A kolonunda aynı değerde olan satırların C kolonundaki değerlerini toplayarak D kolonuna yazacak formülü nasıl yapabilirim?

d2 hücresine
=ETOPLA(A:A;A2;C:C)
yaz
istediğin yere kadar uzat

 

[gatinc]

Aynı olan verinin en sonundakinemi toplam yazacak yoksa tümüne mi?

Örnek,

a 5
a 6
b 2
c 4
d 3
a 5 ........16

bu şekildemi olacak yoksa her satıra toplaya toplayamı gidecek. Eğer toplayarak gidecekse aynı veri yoksa onların toplamı yazılmayacak mı?

aynı olan verinin en sonundakine toplam yazıcak ve diğerleri silinecek çok teşekkür ederim.

 

[Ömer]

D2 hücresine yazarak alt satırlara kopyalayın.

=EĞER(VE(EĞERSAY(A:A;A2)>1;EĞERSAY(A3:$A$65536;A2)=0);ETOPLA(A:A;A2;C:C);"")

.

 

[gatinc]

çok güzel olmuş çok teşekkür ederim, ancak toplandıktan sonra aynı olan satırları nasıl silebiliriz?

 

[sbayyigit]

çok güzel olmuş çok teşekkür ederim, ancak toplandıktan sonra aynı olan satırları nasıl silebiliriz?

kod sayfası sizin sayfanız. tek tuş ile istediğiniz verileri sayfa1 e aldım
umarım işinizi görür
kolay gelsin

 

[gatinc]

50. satırdan sonra çalışmıyor?

 

[Ömer]

Merhaba,

İlk mesajlarda benzersizlerimi sıralamak istiyorsunuz dediğimde olumsuz yanıt vermiştiniz. Hatta bu konuyla ilgili geniş anlatımlı linkte vermiştim.Sorularınızı daha açık ve net sorarsanız cevaplarda okadar kısa sürede gelir.

Module kopyalayarak çalıştırın.

Sub Deneme()
Application.ScreenUpdating = False
Set S1 = Sheets("Sheet2")
Set S2 = Sheets("Sheet3")
S1.Select
S2.Range("A2:C65536").ClearContents
Range("A1:C1").Copy S2.Range("A1")
sat = 1
    For i = 2 To [A65536].End(3).Row
        If WorksheetFunction.CountIf(Range("A2:A" & i), Cells(i, "a")) = 1 Then
            sat = sat + 1
            S2.Cells(sat, "a") = Cells(i, "a")
            S2.Cells(sat, "b") = Cells(i, "b")
        End If
    Next i
    For j = 2 To S2.[A65536].End(3).Row
        S2.Cells(j, "c") = WorksheetFunction.SumIf(Range("A:A"), S2.Cells(j, "a"), Range("C:C"))
    Next j
Application.ScreenUpdating = True
End Sub

.