br kaç değişkenli listenin toplam liste dönüşümü

[sedatcel]

İstediğim şeyi yanlımı teleffuz ettim bilmiyorum ama, ekte bir örnek yaptım. sürekli olarak bir dosyadan aldığım verilere alt altta yazarak içeriğinde aynı olan bilgilerin toplanmasını ve ayrı bir liste oluşturmak istiyorum fakat bu listede en az 3 sütundaki bilginin aynı olması gerekiyor bunun bir çözümü vardır umarım.

 

[metinozlu]

özet tablo çözüm ekte

 

[veyselemre]

Örneğinizi inceleyin.

 

[sedatcel]

Teşekkürler

Teşekkürederim, biraz karışık duruyor ama inceleyince çözerim.

özet tablo çözüm ekte

 

[sedatcel]

Teşekkürederim

Aktar dediğimde evet oluyor ama bunu nasıl diğerlerinede uygulayabilirim. bu konuda na yapabilirim.

Örneğinizi inceleyin.

 

[parametre]

Aktar dediğimde evet oluyor ama bunu nasıl diğerlerinede uygulayabilirim. bu konuda na yapabilirim.

makrokod olarak bunu kullamıs aktarma kodu

Sub birlestirAktar()
Application.ScreenUpdating = False
Set s1 = Sheets("Modül Parça listesi")
Set s2 = Sheets("Parça listesi")
s1.Select
s2.Cells.Delete

sonB = [b65536].End(3).Row
Range("B1:N" & sonB).Copy s2.[b1]
s2.Select
For x = sonB To 6 Step -1
If Cells(x, 2) = "" Then GoTo atla
BAK1 = Cells(x, "C") & "|" & Cells(x, "F") & "|" & Cells(x, "G") & "|" & Cells(x, "N")
For Y = x - 1 To 5 Step -1
BAK2 = Cells(Y, "C") & "|" & Cells(Y, "F") & "|" & Cells(Y, "G") & "|" & Cells(Y, "N")
If BAK1 = BAK2 Then
Cells(Y, "D") = Cells(Y, "D") + Cells(x, "D")
Rows(x).Delete SHIFT:=xlUp
Exit For
End If
Next Y
atla:
Next x
sonB = [b65536].End(3).Row
For x = sonB To 7 Step -1
If Cells(x, 2) = "" And Cells(x - 1, 2) = "" Then Rows(x).Delete SHIFT:=xlUp
Next x
Set s1 = Nothing
Set s2 = Nothing

End Sub

 

[sedatcel]

teşekkürederim

verdiğiniz bilgi için teşekkürederim.

makrokod olarak bunu kullamıs aktarma kodu