Mükerrer kaydın olduğu hücreyi temizlemek.

[AS3434]

Selamlar

Aşağıda Sn. COST_CONTROL'un yazmış olduğu bir makro var.
Bu nmakro mükerrer kaydın olduğu satırı siliyor.
Benim yapmak istediğim Mükerrer kaydın olduğu hücreyi temizlemek.

Sub sil()
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
End Sub

Delete yerine ClearContents yazınca tüm satırı temizliyor. Sadece A sütunundaki mükerrer kaydı nasıl temizletebilirim? (Satırı çıkartmadan ve komple bütün satırı temizlemeden)

 

[Korhan Ayhan]

Selamlar,

Rows(X).Delete ifadesinin yerine Cells(X,"A").ClearContents yazıp denermisiniz.

 

[AS3434]

Rows(X).Delete ifadesinin yerine Cells(X,"A").ClearContents yazıp denermisiniz

Cells yazmıştım ama devamını (x,"A") yapamamıştım.

Sn. COST_CONTROL

İlginiz için teşekkür ederim.
Sevgi ile kalın.