Makro Hatası Kod yardımı

[xnanx]

Merhaba,
Aşağıdaki kod ile verileri teke düşüyorum, veri sheetinde a1 sayfasına getiriyor, Benim veri sheetinde b1 sayfasına getirmesini istiyorum ama hata alıyorum,
yardımcı olabilir misiniz, (Sheets("veri").Cells(c, 1) = Cells(b, 1) yaptığım hata alıyorum.


Sub Ayikla()
For a = 1 To [a65536].End(3).Row
If WorksheetFunction.CountIf(Range("a1:a" & a), Cells(a, 1)) = 1 Then
c = c + 1
Sheets("veri").Cells(c, 1) = Cells(a, 1)
End If
Next
End Sub

 

[Muzaffer Ali]

Merhaba.
Aşağıdaki gibi yapın.

Sheets("veri").Cells(c, 1) = Cells(a, 2)

Eğer olmazsa lütfen sorunuzu tekrar gözden geçirin. Çünkü sayfa ve hücrelerin hepsini sayfa diye adlandırmışsınız.
Daha açıklayıcı ve doğru şekilde sorarsanız daha hızlı yanıt alırsınız.
Kolay gelsin.

 

[xnanx]

Cevap için teşekkür ederim,
Bu kod teke düşürme için çalışıyor,
Veri sheetinde A1 kolonuna teke düşürüp yazıyor, benim amacım teke düşürüp B1 kolonuna getirmesi,

 

[Muzaffer Ali]

Aşağıdaki kodu kullanın.

Sub Ayikla()
    Dim Bak As Integer
    Dim Sira As Integer
    For Bak = 1 To Cells(Rows.Count, "A").End(3).Row
        If WorksheetFunction.CountIf(Range("A1:A" & Bak), Cells(Bak, "A")) = 1 Then
            Sira = Sira + 1
            Cells(Sira, "B") = Cells(Bak, "A")
        End If
    Next
End Sub

 

[xnanx]

Muzaffer Bey, Çok teşekkür ederim şimdi,
Bu kodun başında Veri Sheetinde B2 den B5000 kadar olan satırları silmek için nasıl bir kod yazabilirim?
Önce Temizlesin daha sonrada, Kod çalışsın gibi düşündüm de,

 

[Muzaffer Ali]

Sub Ayikla()
    Dim Bak As Integer
    Dim Sira As Integer
    Range("B2:B5000").clearcontents
    For Bak = 1 To Cells(Rows.Count, "A").End(3).Row
        If WorksheetFunction.CountIf(Range("A1:A" & Bak), Cells(Bak, "A")) = 1 Then
            Sira = Sira + 1
            Cells(Sira, "B") = Cells(Bak, "A")
        End If
    Next
End Sub