Soru Yinelenen Veri - Aynı değerli hücreleri birleştirme

Katılım
16 Eylül 2020
Mesajlar
17
Excel Vers. ve Dili
Türkçe
Merhaba,
Örnek dosyayı linke ekledim. Yapmak istediğim şey aynı ebattaki ürünlerin adedini birleştirip tek satır haline getirmek. Örnek dosyada veri az ama çoğunlukla uzun zaman harcayıp elimle yapıyorum. Kolay bir yolu var mıdır?
Teşekkürler.

Örnek Dosya
 
Katılım
21 Eylül 2005
Mesajlar
32
Merhaba,
Örnek dosyayı linke ekledim. Yapmak istediğim şey aynı ebattaki ürünlerin adedini birleştirip tek satır haline getirmek. Örnek dosyada veri az ama çoğunlukla uzun zaman harcayıp elimle yapıyorum. Kolay bir yolu var mıdır?
Teşekkürler.

Örnek Dosya
Forumda Aşağıdaki kodu buldum:
Sub aratoplam()
Dim liste As New Scripting.Dictionary
' Microsoft Scripting Runtime referansı eklenmeli

Dim i As Integer
Dim last As Integer
Dim toplam As Long

last = Range("B" & Sayfa1.Rows.Count).End(3).Row
Range("A3:L" & last).Sort key1:=Range("F3"), _
order1:=xlAscending, Header:=xlNo
For i = 3 To last
Range("M3").Value = last
If Range("F" & i).Value = Range("F" & (i + 1)).Value Then
toplam = toplam + Range("I" & i).Value

Else


toplam = toplam + Range("I" & i).Value

liste.Add i, toplam
toplam = 0

End If
Next i


Dim ii As Long
For ii = liste.Count - 1 To 0 Step -1
Rows(liste.Keys(ii) + 1).Insert
Range("H" & (liste.Keys(ii) + 1)).Value = "TOPLAM"
Range("I" & (liste.Keys(ii) + 1)).Value = liste.Items(ii)
Next ii
End Sub
 
Katılım
21 Eylül 2005
Mesajlar
32
Merhaba,
Örnek dosyayı linke ekledim. Yapmak istediğim şey aynı ebattaki ürünlerin adedini birleştirip tek satır haline getirmek. Örnek dosyada veri az ama çoğunlukla uzun zaman harcayıp elimle yapıyorum. Kolay bir yolu var mıdır?
Teşekkürler.

Örnek Dosya



Bu link mutlaka işine yarar.
Ben de bu gün kendim için uyarladım.
Biraz uğraştırıyor ama oldu sonuçta
 
Katılım
16 Eylül 2020
Mesajlar
17
Excel Vers. ve Dili
Türkçe
Merhaba,

Cevabınız için teşekkür ederim. Ancak nasıl yapacağımı çözemedim.
 

YUSUF44

Destek Ekibi
Destek Ekibi
Katılım
4 Ocak 2006
Mesajlar
12,084
Excel Vers. ve Dili
İş : Ofis 365 - Türkçe
Ev: Ofis 365 - Türkçe
Bu tür dosyalarda en ideal olan tablonun kesintisiz bir tablo olarak düzenlenmesi ve istenen raporun da bu tabloya dayanarak ister özet tablo ister başka yöntemlerle elde edilmesidir.

Örnek dosyanızdaki farklı gruplamalar yerine tüm ürünler tek liste halinde alt alta olsaydı (örneğin 23-24-25. satırlar olmasaydı) özet tablo raporu ile istediğiniz sonucu hızlıca ve en doğru şekilde elde edebilirdiniz.
 
Üst