6 sutuna kadar verileri karşılaştırıp saymak

[arol11]

Tekrar İyi akşamlar,
Bugünlerde bayağı yoğunum ve birçok soru için sizlerin değerli yardımlarınızı hiç unutmuyacağım,ve çok teşekkür ediyorum.
Ekli dosyada 3 liste ile sınırladığım fakat 6 liste için sutunları karşılaştırıp sayan bir makro çözüme ihtiyacım var.Rica etsem yardımcı olmanız mümkünmü?

 

[geren36]

ekteki dosyaya bakınız...

Neticeyi ( I ) ve ( J ) kolonlarına, kırmızı bold fontlu [ADET] ve [LİSTE] nin altına sıralıyor...

Sub statistic()

son = [l65536].End(3).Row
For i = 2 To son
Range("K" & i).Value = Range("L" & i).Value & Range("m" & i).Value & Range("n" & i)
Next i
Range("K2:K" & [k65536].End(3).Row).Sort Key1:=Range("K2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
a = 2
For i = 2 To son
If Range("K" & i).Value <> Range("K" & i + 1).Value Then
Range("J" & a) = Range("K" & i).Value
a = a + 1
End If
Next i

son1 = [j65536].End(3).Row
For i = 2 To son1
Range("I" & i).FormulaR1C1 = "=COUNTIF(RC[2]:R[19]C[2],RC[1])"
Range("I" & i).Value = Range("I" & i).Value
Next i
Range("K2:K65536").ClearContents
End Sub

 

[schworse]

Yardım

arkadaşım bilmem dogrumu anladım yardımcı olmaya çalıştım ama

kolay gelsin..

 

[arol11]

Sizlere y&#252;rek dolusu selamlar ve sayg&#305;lar sunuyorum.Te&#351;ekk&#252;r ederim.