mükerrer silme

[erzen]

A sütunundaki mükerrer olan verileri bulup silecek ama satırı değil sadece o hücre içini silecek. Böyle bir koda ihityacım var. Teşekkürler.Çözüldü

 

[asi_kral]

A sütunundaki mükerrer olan verileri bulup silecek ama satırı değil sadece o hücre içini silecek. Böyle bir koda ihityacım var. Teşekkürler.Çözüldü

Merhaba
Sorun çözüldü sanırım ama konu cevapsız kalmasın.
Boş bir module kopyalayın ve deneyin.

Option Explicit
Sub mükerrer_olanları_temizle_1967()
'Konu       :   Mükerrer Olanları Temizle
'Mail       :   m.batu.1967@gmail.com
'Msn        :   m.batu.1967@hotmail.com.tr
'Skype      :   m.batu.1967
'Coder By   :   asi_kral_1967
Dim SAT As Long, SAY As Long
Application.ScreenUpdating = False
With WorksheetFunction
For SAT = 1 To Cells(Rows.Count, "A").End(xlUp).Row
If .CountIf(Range("A1:A" & SAT), Cells(SAT, "A")) > 1 Then
SAY = SAY + 1
Cells(SAT, "A").ClearContents
End If: Next: End With
Application.ScreenUpdating = True
MsgBox SAY & " Sayıda Mükerrer Temizlendi" & vbLf & Application.UserName, _
vbInformation, "asi_kral_1967"
End Sub