Excel in ayarlarında sorunmu var ?

[Carpintero]

Merhabalar.

Aşağıdaki kodların her ikisinde de aynı durum var.

Bu kodlar sadece A sütununda çalışması gerekli iken
diğer sütunlardaki benzer verileri de tek veriye indiriyor.

Bilgisayarı yeniden başlattım durum yine düzelmedi.
Ne yapmam gerek yardımcı olursanız sevinirim.

Sub MÜKERRER_KAYITLARI_SİL()
    For X = [a65536].End(3).Row To 1 Step -1
    If WorksheetFunction.CountIf(Range("A1:A" & X), Cells(X, "A")) > 1 Then Rows(X).Delete
    Next
    MsgBox "MÜKERRER KAYITLAR SİLİNMİŞTİR.", vbInformation
End Sub

Sub sil()
For a = [a65536].End(3).Row To 1 Step -1
If WorksheetFunction.CountIf(Range("a1:a" & a), Cells(a, "a")) > 1 Then Rows(a).Delete
Next
End Sub

 

[Carpintero]

Sanırım sorunu anladım.

Kod çalışırken değerleri değilde hücreleri siliyor.

 

[turist]

Sub sil()
For a = [a65536].End(3).Row To 1 Step -1
If WorksheetFunction.CountIf(Range("a1:a" & a), Cells(a, "a")) > 1 [B][COLOR="Red"]Then Range("A" & a).Delete shift:=xlShiftUp[/COLOR][/B]
Next
End Sub

Şeklinde kullanın.

 

[Carpintero]

Çok çok teşekkür ederim sayın turist abi.
benzersiz liste oluştur kodu arıyordum bende

iyi günler.