A sütünundaki verilerin B sütünundaki tarihi en kücük olanını Sayfa2 ye kopyalama

[programer]

Arkadaşlar herkese iyi hafta sonları iyi tatiller. A sütünunda order numaraları var aynı order numarasından bir kaçtane olabilir. Bu aynı order ların B sütununda çıkış tarihleri var. Aynı orderlerin çıkış tarihleri birbirinden farklı olabiliyor. Ben aynı olan orderlerin en küçük tarihe sahip olanını sayfa2' kopyalamak istiyorum Bunu nasıl yapabiliriz.

 

[veyselemre]

Sub DENE()
    Application.ScreenUpdating = False
    Sayfa2.Cells.Clear
    Sayfa1.[A:B].Copy Sayfa2.[A1]
    Sayfa2.Select
    Columns("A:B").Sort Key1:=Range("A2"), Order1:=xlAscending, Key2:=Range("B2") _
                                                                      , Order2:=xlAscending, Header:=xlGuess
    For x = [A65536].End(3).Row To 3 Step -1
        If Cells(x, 1) = Cells(x - 1, 1) Then Rows(x).Delete
    Next x
    Application.ScreenUpdating = True
End Sub

 

[programer]

Sayın veysel bey ilgi ve alakanıza çok teşekkür ederim verdiğiniz kodlar gayet güzel çalışıyor.