Excelde Aynı Veri Girişini Engelleme

Excel’de Aynı Veri Girişini Engelleme

Excel, veri yönetimi ve analizi için güçlü bir araçtır, ancak aynı verilerin yanlışlıkla birden fazla kez girilmesi gibi hatalar meydana gelebilir. Bu, veri bütünlüğünü bozabilir ve karar vermeyi zorlaştırabilir. Neyse ki, Excel, aynı veri girişini engellemek için çeşitli özellikler ve teknikler sunar.

Veri Doğrulama

Veri doğrulama, kullanıcıların belirli kurallara uyan veriler girmesini sağlayan bir özelliktir. Aynı veri girişini engellemek için aşağıdaki doğrulama türleri kullanılabilir:

  • Benzersiz: Bu kural, hücreye girilen değerin çalışma sayfasındaki diğer hücrelerde bulunmadığını doğrular.
  • Liste: Bu kural, hücreye girilen değerin önceden tanımlanmış bir listeden seçilmesini gerektirir.

Veri doğrulama kuralları oluşturmak için şu adımları izleyin:

  1. Aynı veri girişini engellemek istediğiniz hücreleri veya hücre aralığını seçin.
  2. “Veri” sekmesine gidin ve “Veri Doğrulama”yı tıklayın.
  3. “Ayarlar” sekmesinde, “Doğrulama Türü” olarak “Benzersiz” veya “Liste”yi seçin.
  4. Gerekli seçenekleri yapılandırın ve “Tamam”ı tıklayın.

Koşullu Biçimlendirme

Koşullu biçimlendirme, belirli koşulları karşılayan hücrelere görsel ipuçları uygulamanıza olanak tanır. Aynı veri girişini vurgulamak için koşullu biçimlendirme kuralları kullanılabilir:

  1. Aynı veri girişini engellemek istediğiniz hücreleri veya hücre aralığını seçin.
  2. “Giriş” sekmesine gidin ve “Koşullu Biçimlendirme”yi tıklayın.
  3. “Yeni Kural”u seçin ve “Hücre Değeri”ni “Belirli Bir Değere Eşit” olarak ayarlayın.
  4. Çalışma sayfasında zaten bulunan değeri girin ve “Biçimlendir”i tıklayın.
  5. Hücrenin vurgulanması için bir biçim seçin ve “Tamam”ı tıklayın.

VBA Kodları

VBA (Visual Basic for Applications), Excel’in işlevselliğini genişletmek için kullanılan bir programlama dilidir. Aynı veri girişini engellemek için VBA kodları kullanılabilir:

“`vba
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range

If Target.Count > 1 Then Exit Sub

Set rng = Range(Target.Address)

If rng.Value <> "" Then
    If Application.WorksheetFunction.CountIf(rng.EntireColumn, rng.Value) > 1 Then
        MsgBox "Bu değer zaten girilmiş.", vbCritical
        rng.Value = ""
    End If
End If

End Sub
“`

Bu kodu etkinleştirmek için şu adımları izleyin:

  1. “Geliştirici” sekmesine gidin ve “Visual Basic”i tıklayın.
  2. “Ekle” menüsünden “Modül”ü seçin.
  3. Yukarıdaki kodu modüle yapıştırın.
  4. Modülü kaydedin ve kapatın.

Faydalı Siteler ve Dosyalar

Yayımlandı

kategorisi