Benzersiz Aktarma

[Bakigemlik]

Merhaba,

Aşağıdaki kodla Kar Ana Dosyamdaki AO2 den itibaren sütunları benzersiz olarak Sayfa4 A13 den başlayarak aktarmak istiyorum ama kırmızı kısım hata veriyor desteğinizi rica ederim,
Teşekkürler,

Sub KOD()
Set S1 = Sheets("Kar Ana Dosya")
Set S2 = Sheets("Sayfa4")
x = 2
For a = 2 To S1.Range("AO65500").End(3).Row
    If WorksheetFunction.CountIf(S1.Range("AO2:AO" & a), S1.Cells(a, "AO")) = 1 Then
       [COLOR="Red"] S2.Cells(x, "A13") = S1.Cells(a, "AO")[/COLOR]
        x = x + 1
    End If
Next
End Sub

 

[bzace]

Merhaba,
Kırmızı alanlarda değişiklik yapılmıştır.

Sub KOD()
Set S1 = Sheets("Kar Ana Dosya")
Set S2 = Sheets("Sayfa4")
x = [COLOR="Red"]13[/COLOR]
For a = 2 To S1.Range("AO65500").End(3).Row
    If WorksheetFunction.CountIf(S1.Range("AO2:AO" & a), S1.Cells(a, "AO")) = 1 Then
        S2.Cells(x, [COLOR="Red"]"A"[/COLOR]) = S1.Cells(a, "AO")
        x = x + 1
    End If
Next
End Sub

A13 diye bir sütun yoktur. x değeri kaçıncı satırdan başladığınızı belirler. A sütunu 13. satırdan başlaması için 13 yazınız.

 

[Bakigemlik]

Teşekkürler emeğinize sağlık,