yinelenenler miktarı topla ve tek koda düşürme

[sevensuleyman]

merhaba ;

50.000 satırlı excell dosyam var . örnekte paylaştıgım gibi mükerrer olan olan kodlar mevcut kiminde miktar sıfır kiminle miktarlar var. burada yapmak istediğimiz stok kodları aynı ise miktarı topla ve kodlasrı teke düşür. ayrı saya olmasına gerek yok. aynı sayfada yapmak istiyorum . makro yazabilirseniz. çok sevinirim. üstadlardan destek bekliyorum

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

Not: Denemeden önce dosyanızın bir yedeğini alın.

Sub yinelenenlerikaldir()

sonsat = Cells(Rows.Count, "B").End(3).Row

For a = 2 To sonsat

say = WorksheetFunction.CountIf(Range("B:B"), Cells(a, "B"))
If say > 0 Then Cells(a, "C") = WorksheetFunction.SumIf(Range("B:B"), Cells(a, "B"), Range("C:C"))

Next

ActiveSheet.Range("A2:C" & sonsat).RemoveDuplicates Columns:=2, Header:=xlNo

End Sub

 

[sevensuleyman]

Aşağıdaki kodu deneyin.

Not: Denemeden önce dosyanızın bir yedeğini alın.

Sub yinelenenlerikaldir()

sonsat = Cells(Rows.Count, "B").End(3).Row

For a = 2 To sonsat

say = WorksheetFunction.CountIf(Range("B:B"), Cells(a, "B"))
If say > 0 Then Cells(a, "C") = WorksheetFunction.SumIf(Range("B:B"), Cells(a, "B"), Range("C:C"))

Next

ActiveSheet.Range("A2:C" & sonsat).RemoveDuplicates Columns:=2, Header:=xlNo

End Sub

çok teşekkür ederim tam istediğim gibi