Yan yana kodları alt alta yazdırma

[telefoncuk]

Merhaba,

Konu ile ilgili başlık araştırdım ama bulduklarım tam istediğimi karşılayamadı o yüzden yeni başlık açıyorum.

Ekteki dosyada Ocak-Temmuz arası bazen aynı bazen farklı olan kodlar var.
"Remove duplicates" başlığı altına Ocak-Aralık arası olan tüm unique kodların yazılmasına ihtiyacım var.
Öğrenme amaçlı da hepsini alt alta "toplam" başlığı altına nasıl yazdırabiliriz?

Çok teşekkürler,

 

[Murat OSMA]

Merhaba,

Bu kodları kullanabilirsiniz..

[FONT="Trebuchet MS"][SIZE="2"]Sub Emre()
    Dim i&, a&, son&, so&
    Range("Q2:Q" & Cells(Rows.Count, "Q").End(3).Row).ClearContents
    For i = 2 To 13
        If Cells(2, i).Value <> "" Then
            son = Cells(Rows.Count, i).End(3).Row
            so = Cells(Rows.Count, "Q").End(3).Row + 1
            Range(Cells(2, i), Cells(son, i)).Copy Cells(so, "Q")
        End If
    Next i
    ActiveSheet.Range("Q:Q").RemoveDuplicates Columns:=1, Header:=xlYes
    MsgBox "İşlem Tamam", vbInformation, "Www.ExcelArsivi.Com"
    so = Empty: son = Empty: a = Empty: i = Empty
End Sub[/SIZE][/FONT]

 

[telefoncuk]

Çok teşekkürler, elinize sağlık.

 

[Murat OSMA]

Rica ederim, iyi günler.​