Soru Benzersiz Kopyalama (İki Sutundan)

[leonadies]

Merhaba Arkadaşlar

SAYFA1 A7:A500 ve SAYFA1 K7:K500

aralığındaki değerleri benzesiz olarak

SAYFA2 A2 ye kopyalamak istiyorum. VBA kullanarak çözüm sağlayabilir miyiz?

 

[veyselemre]

Sub test()
    Sheets("Sheet1").Range("A7:A500").Copy Sheets("Sheet2").Range("A2")
    Sheets("Sheet1").Range("K7:K500").Copy Sheets("Sheet2").Range("B2")
    Sheets("Sheet2").Range("A2:B500").RemoveDuplicates Columns:=Array(1, 2), Header:=xlNo
End Sub

 

[leonadies]

@veyselemre üstadım teşekkürler ancak hepsni SAYFA2 A:A sütununa toplamam gerekiyor. Bu makro A:B olarak yapıyor.
Verileri alt alta getirmeli yani. Ayrıca benzersiz yapmadı

 

[veyselemre]

Sub test()
    With Sheets("Sheet1")
        .Range(.Cells(7, 1), .Cells(Rows.Count, 1).End(3)).Copy Sheets("Sheet2").Range("A2")
        .Range(.Cells(7, 11), .Cells(Rows.Count, 11).End(3)).Copy Sheets("Sheet2").Cells(Rows.Count, 1).End(3).Offset(1)
    End With
    With Sheets("Sheet2")
        With .Range(.Cells(2, 1), .Cells(Rows.Count, 1).End(3))
            .RemoveDuplicates Columns:=1, Header:=xlNo
            .Sort .Range("A2")
        End With
    End With
End Sub

 

[leonadies]

Oldu Teşekkürler Üstadım