Makro ile Mükerrer Hücre içeriğini bul-sil teke indir

[kykbt]

Arkadaşlar belki benzeri çalışmalar var ancak inceleyebildiklerimin hiç birinde sadece hücre içeriğini silerek teke indiren makro bulamadım. Bu konuda ekteki excell kitabı içinde örnek üzerinde yardımcı olabilecek lere şimdiden TEŞEKKÜR ederim.

 

[hamitcan]

Aşağıdaki linki inceler misiniz ?
http://www.excel.web.tr/showthread.php?t=40346

 

[kykbt]

Makro ile Mükerrer Hücre içeriğini bul-sil teke indir

Aşağıdaki linki inceler misiniz ?
http://www.excel.web.tr/showthread.php?t=40346

Hamitcan arkadaşım.. verdiğin linki inceledim. Önce ve tekrar ilgine teşekkür ederim.
Ancak benim yapamadığım veriyi olduğu sutunda süzüp aynı yere yazmak, Veya asıl veri kitabındaki veriyi süzüp, çalıştığım kitap üzerine mükerrerler teke inmiş yapıştırmam gerekiyor. Eğer bu olmaz ise; yapmam gereken şuki asıl veri başka kitapta ben oradan kopya alıp buraya yapıştırıp olduğu yerde mükerrerleri teke indimeye çalışıyorum. Çünki asıl veri kitabını açıp kaydetmeden kapamam gerekiyor.

 

[Orion1]

Ekli dosyayı inceleyiniz.

Sub asutunu()
For i = Cells(65536, "A").End(xlUp).Row To 6 Step -1
    If WorksheetFunction.CountIf(Range("A6:A65536"), Cells(i, "A").Value) > 1 Then
        Range("A" & i).Delete (xlUp)
    End If
Next i
Range("A6:A65536").Sort Range("A6")
End Sub
Sub fsutunu()
For i = Cells(65536, "F").End(xlUp).Row To 6 Step -1
    If WorksheetFunction.CountIf(Range("F6:F65536"), Cells(i, "F").Value) > 1 Then
        Range("F" & i & ":G" & i).Delete (xlUp)
    End If
Next i
Range("F6:G65536").Sort Range("F6")
End Sub

 

[kykbt]

Evren Bey
Ellerinize ve aklınıza sağlık teşekkür ederim.

 

[Orion1]

Evren Bey
Ellerinize ve aklınıza sağlık teşekkür ederim.

Rica ederim.
İyi çalışmalar.