Tablo üzerindeki verileri tekrarsız listeleme

[EKREM1661]

Değerli arkadaşlar..! Ekli örnek dosyada bi tablo üzerinde, C-E-G-I-K-M sütunlarında 4-34 satır aralıklarındaki verileri tekrarsız olarak Q4 sütunu itibariyle listeleme konusunda müdahil olmanızı arz etmekteyim.. (Forumda konu ile ilgili örnekler mevcut , ancak birden fazla sütun olunca..)

 

[Ömer BARAN]

Merhaba.

Aşağıdaki kod'u sayfanın kod bölümüne uygulayın ve çalıştırın.
.

[FONT="Arial Narrow"][B][COLOR="Blue"]Sub LİSTELE_BRN()[/COLOR][/B]
    If [Q65536].End(3).Row > 1 Then Range("Q[COLOR="Red"]4[/COLOR]:Q65536").ClearContents
        For sütun = 3 To 13 Step 2
            For satır = 4 To 34
                If WorksheetFunction.CountIf(Range("Q:Q"), Cells(satır, sütun)) > 0 Then GoTo 10
                    Cells([COLOR="Red"]WorksheetFunction.Max(4, [Q65536].End(3).Row + 1)[/COLOR], "Q") = Cells(satır, sütun)
10:         Next
        Next
[B][COLOR="blue"]End Sub[/COLOR][/B][/FONT]

 

[EKREM1661]

Ömer hocam, harika olmuş, çok teşekkür ediyorum.. Fakat listelemeyi Q4.ncü satırdan itibaren listeleyebilmek için nasıl değişiklik yaparız..

 

[Ömer BARAN]

Tekrar merhaba.

Önceki cevabımda değişiklik yaptım (kırmızı renklendirdiğim kısımlar) .
Sayfayı yenileyerek kontrol ediniz.

 

[EKREM1661]

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

 

[Ömer BARAN]

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

Eyvallah, iyi günler dilerim.