Aynı değerleri teke indir ve satırı kopyala

[drejan62]

Merhabalar,
A sütununda Tarih, B sütununda müşteri numaraları var,
aynı gün aynı müşterinin işlemleri olabiliceği gibi farklı günlerdede de aynı müşterinin işlemleri olabiliyor.
Aynı müşterinin aynı gün işlemleri var ise sadece 1 tane satarı kopyalayarak Sayfa2 ye aktarmasını yapabilirmiyiz.
Şimdiden Teşekkürler

 

[N.Ziya Hiçdurmaz]

yanıt

Sub aktar()
Dim sat, s As Long
Sayfa2.[a2:b500] = Empty
s = 2
    For sat = 2 To Sayfa1.Cells(65536, "a").End(xlUp).Row
        If Not WorksheetFunction.CountIf(Sayfa1.Range("a2:A" & sat), Sayfa1.Cells(sat, "a")) > 1 Or _
        Not WorksheetFunction.CountIf(Sayfa1.Range("b2:b" & sat), Sayfa1.Cells(sat, "b")) > 1 Then
            Range(Sayfa1.Cells(sat, "a"), Sayfa1.Cells(sat, "b")).Copy Sayfa2.Cells(s, "a")
            s = s + 1
        End If
    Next
End Sub

 

[drejan62]

Hocam çok teşekkürler.
Harikasınız.