Aynıları Bir Kez Yazma

[ozdogan]

Merhaba Arkadaşlar,
Konu Hakkında Yardımınızı Rica Ederim. Benzer Bir Konu VArsa Link Vermenizi rica Ederim.

Bir Excel Ürün Listem Var, Burada Bazı Ürünler Tekrar Tekrar yazılmış Örnek Vermek Gerekirse, Ekteki Dosyada 20-21-22 Satrılara Bakınız. Bunlar Aynı ürün Ama 3 kez yazılmış.

Soru Şu: Acaba Bunları Tekrarsız Yeni Bir SAyfaya Tamamnını Nasıl Aktarırız. Tekrar Edenler 1 Kez aktarılcak?

Saygılarımla

 

[catalinastrap]

Dosyanız ektedir,
sonuç sayfasına bakınız.özet tablo fonksiyonu kullanılarak yapılmıştır.

 

[hamitcan]

Aşağıdaki kodu deneyiniz.

Sub TekOlanlariAktar()
    Sheets("Sayfa1").Select
    For i = [a65536].End(3).Row To 2 Step -1
        S = WorksheetFunction.CountIfs(Range("A2:A10000"), Cells(i, 1), _
                                       Range("B2:B10000"), Cells(i, 2), _
                                       Range("C2:C10000"), Cells(i, 3), _
                                       Range("D2:D10000"), Cells(i, 4))
                                      
        If S = 1 Then
            c = c + 1
            Sheets("Sayfa2").Range("a" & c & ":" & "d" & c) = Sheets("Sayfa1").Range("a" & i & ":" & "d" & i).Value
        End If
    Next
    MsgBox "İşlem Tamamlandı."
End Sub

 

[muygun]

Merhaba;
Syn. hamitcan gereken kodları vermiş ama hazırladığım örnek alternatif olsun.
İyi çalışmalar.

NOT: Benzersiz liste için Stok Kodu alanı baz alındı.

 

[ozdogan]

Çok Hızlısınız...
Hepinize Ayrı Ayrı Teşekkür Ederim.
Saygılarımla