Gönderen Konu: Mükerrer Kayıt Engelleme, Tekrarlayan Sayıyı Yada yazıyı Engelleme, Silme  (Okunma sayısı 2011 defa)

    Mustafa HAMIT
    Site Yöneticisi
    Full Üye
    *
    Üye No: 1
    Mesaj Sayısı: 124
    Nerden: Bursa
    Karma: +0/-0
    (MCSA) Microsoft Certified Systems Administrator

    Çevrimdışı


Merhaba arkadaşlar Excel içinde Tekrrlayan sayı yada yazıyı silme kodları. Bu kodları boş bir makro açıpiçine yapıştırın. Bir Örenekte ekte Bulunuyor
Kod: [Seç]
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
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