Excel İle Benzer Kayıt Girilmesinin Engellenmesi

Excel sütunlarına bilgi girerken, aynı kayıtların girilmesi raporların yanıltıcı olmasına neden olur. Raporların gerçek ve işlevsel olabilmesi için bazen mükerrer kayıtların engellenmesi gerekebilir. Bunun için aşağıdaki kod yeterli olacaktır.

Kod byval target as range olarak çalışmaktadır. Yani ilgili alanda değişiklik olduğu anda makro tetiklenir ve kod bloğunda söylenen aktiviteyi gerçekleştirir. Aşağıda yer alan kod; A sütununda yapılan değişiklikler için çalışmaktadır. Sizin verileriniz hangi sütundaysa ismi ona göre değiştirmelisiniz.

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

Örnek dosyayı indirmek için tıklayın.

Faydalı olması dileğiyle...