mükerrerlerin adetlerini toplama

[namras]

farklı zamanlarda aynı cinsten alınan malzemeleri adetlerini toplayıp tek satırda birleştirmem gerekiyor. bi türlü beceremedim. elle yapmaya kalkınca saatlerimi alıyor.

benden değişik tarihlerde malzeme alan birkaç firma var. aynı tür malzemeler değişik zamanlarda değişik miktarlarda alınıyor.

örneğin
malzemeler-------------ölçü birimi--------miktar--------tutar---------toplam
_____________________________________________________________________
aç-kapa tepe-------------- adet-----------2-----------2,50 TL------ 5,00 TL
beyaz musluk--------------adet------------1-----------5,00 TL-------5,00 tl
silikonlu boya--------------Galon-----------2-----------18,00 TL------36,00 TL
eldiven----------------------adet----------3-----------1,00 TL-------3,00 TL
aç-kapa tepe---------------adet-----------4-----------2,50 TL-------10,00 TL
beyaz musluk---------------adet-----------2----------5,00 TL--------10,00 TL
pprc dirsek-----------------adet-----------10---------0,25 TL--------2,50 TL
eldiven----------------------adet----------4-----------1,00 TL-------4,00 TL
______________________________________________________________________
Yukarıdaki gibi bir listem var ben bunun aşağıdaki gibi olmasını diliyorum ama bir türlü beceremedim.

malzemeler-------------ölçü birimi--------miktar--------tutar---------toplam
_____________________________________________________________________
aç-kapa tepe-------------- adet-----------6-----------2,50 TL------ 15,00 TL
beyaz musluk--------------adet------------3-----------5,00 TL-------15,00 tl
silikonlu boya--------------Galon-----------2-----------18,00 TL------36,00 TL
eldiven----------------------adet----------7-----------1,00 TL-------7,00 TL
pprc dirsek-----------------adet-----------10---------0,25 TL--------2,50 TL

____________________________________________________________________

liste boyutu kısa normalde 700 ila 1000 satır arsında değişiyor.
İlginize şimdiden teşekkür ederim. bu benim için çok önemli bir konu.
örnek liste ektedir.



Düzelt: Özet Tablo ile olmuyor.

 

[mancubus]

merhaba.

dosyanız ektedir.

veri, filtre, gelişmiş
başka bir yere kopyala
liste aralığı:= $A$1:$A$9
hedef: $A$17
yalnızca benzersiz kayıtlar: işaretlenecek

 

[namras]

İlginize teşekkürler. Fakat vermiş olduğunuz çözümde sadece malzeme isimlerini benzersiz bir şekilde sıralıyor. Mükerrer olanları toplayıp koymuyor listeye. Sadece isimler çıkıyor.

 

[mancubus]

eklediğim dosyaya baktınız mı?

 

[namras]

evet baktım yazdığınızın aynısını yaptım fakat olmuyor bir türlü

 

[mancubus]

gelişmiş filtre ile A sütunundaki tekrarlı verilerin tekrarsızlarını boş bir alana aktarıyoruz.
ben örnek olarak A17:A22 aralığına aldım.
düşeyara ile ölçü birimini ve birim fiyatını getiriyoruz.
etopla ile miktar ve toplam tutarları ürün bazında topluyoruz. bu aralıktaki formüllerin hücre referanslarını kendi gerçek dosyanıza uyarlamanız lazım.

 

[Necdet]

Merhaba,

Aşağıdaki kodları dener misiniz?

Sub Duzenle()
    Dim i   As Long
 
    Application.ScreenUpdating = False
    i = Cells(Rows.Count, "A").End(3).Row 'SonSatır
    Range("A7:E" & i).Sort Key1:=[A1]       'Malzeme Adına Göre Sıralandı
    
    For i = i To 7 Step -1
        If Trim(Cells(i, "A")) = Trim(Cells(i - 1, "A")) Then
            Cells(i - 1, "C") = Cells(i - 1, "C") + Cells(i, "C")
            Rows(i).Delete
        End If
    Next i
    Application.ScreenUpdating = True
End Sub

 

[namras]

Çözüldü çok teşekkürler 1 numarasınız