Mükerrer Kayıt Kontrol

  • Konuyu başlatan Konuyu başlatan __TR__
  • Başlangıç tarihi Başlangıç tarihi

__TR__

Kullanıcı
Katılım
28 Tem 2022
Mesajlar
72
Excel Versiyonu
Excel 2016
Excel Sürümü
64 Bit
Excel Dili
Türkçe
Ekte örneği bulunan çalışmada yapılmak istenen, C sütununda bulunan isme F sütununda aynı kod ikinci kez verilmeye çalışıldığında uyarı verip girişin hatalı olduğunu bir mesajla belirtmek ve hatalı girişin yapıldığı satırın B ve F sütun aralığını temizlemek.

Anlaşılması için örnek çalışmanın içine kısa bir veri girişi yaptım.

- C sütununda bulunan isimler birden fazla seçilebiliyor ve ardışık değiller.
- F sütunundaki kodlar örnek olarak girilmiştir. Kodlar açılan bir Userform veya el ile girilmektedir.
- Örnek çalışma içerisindeki change kodu orjinal dosyada kullanılmaktadır.
 
Excel Solver Eklentisi
Hücre dolgu rengine göre veriyi al
Hücre dolgu rengine göre veriyi al

Ekli dosyalar

Tarihe göre sırala Oylamaya göre sırala
Merhabalar.

C9:C son ve F9:F son aralıkları için ayrı ayrı uygulanmak üzere;
-- alanı seçin,
-- VERİ DOĞRULAMA > ÖZEL kısmına aşağıdaki formülü uygulayıp işlemi onaylayın.

VBA: 
İndirmek için giriş yapmanız gerekmektedir.
(1 satır)

Böylece alanı silip yeniden elle veri girişi yaparsanız mükerrer veri girişi engellenmiş olur.

Alana veri girişini userform ile de yapabildiğinizi belirtiyorsunuz.
O durumda bu kontrolün userform kodlarında yapılması gerekir.

.
 
Oyla 0 Olumsuz oyla
Cevabınız için çok teşekkür ederim sayın @Ömer BARAN hocam, burada paylaştım ama bir yandan da internette aramaya devam ediyordum ki bir makro buldum.

Mevcut kod ile bulduğum kodu bu şekilde birleştirdim ancak sayfada çalışırken biraz kasıyor, başka türlü birleştirebilir miyiz ?


Kod: 
İndirmek için giriş yapmanız gerekmektedir.
(45 satır)
 
Oyla 0 Olumsuz oyla
Sayın @__TR__

Örnek belgede mevcut Worksheet_Changi kodunu aşağıdaki gibi değiştirerek deneyin.
Mükerrer kaydı silme işlemi için bir de ONAY ekledim.
Silme onayı gerekli değilse kırmızı renklendirdiğim satırları silin veya bu satırların sol başına TEK TIRNAK işareti ekleyin.

Denersiniz.

VBA: 
İndirmek için giriş yapmanız gerekmektedir.
(38 satır)

.
 
Oyla 0 Olumsuz oyla
Ömer BARAN' Alıntı:
Merhabalar.

C9:C son ve F9:F son aralıkları için ayrı ayrı uygulanmak üzere;
-- alanı seçin,
-- VERİ DOĞRULAMA > ÖZEL kısmına aşağıdaki formülü uygulayıp işlemi onaylayın.

VBA: 
İndirmek için giriş yapmanız gerekmektedir.
(1 satır)

Böylece alanı silip yeniden elle veri girişi yaparsanız mükerrer veri girişi engellenmiş olur.

Alana veri girişini userform ile de yapabildiğinizi belirtiyorsunuz.
O durumda bu kontrolün userform kodlarında yapılması gerekir.

.
Genişletmek için tıklayın ...
Merhaba Ömer Hocam

Ben bu işlemi tek bir sütun için nasıl yapabilirim. D4 ile D9999 arasında T.C. Kimlik numaralarını girerken mükerrer kayıtı nasıl engelleyebilirim. Sizin yaptığınız gibi Veri Doğrulamada Özel Sekmesinde =TOPLA.ÇARPIM($D$4:$D4=$D4)=1
 
Oyla 0 Olumsuz oyla
Sayın @ByChilavert kullanmak istediğiniz sayfanızın kod bölümüne aşağıdaki kodu yapıştırıp deneyiniz.

Kod: 
İndirmek için giriş yapmanız gerekmektedir.
(21 satır)
 
Oyla 0 Olumsuz oyla
__TR__' Alıntı:
Sayın @ByChilavert kullanmak istediğiniz sayfanızın kod bölümüne aşağıdaki kodu yapıştırıp deneyiniz.

Kod: 
İndirmek için giriş yapmanız gerekmektedir.
(21 satır)
Genişletmek için tıklayın ...
Merhaba Kod sayfasına attım t.c. yi yazdığım zaman ekteki hatayı veriyor.
 

Ekli dosyalar

  • Screenshot_1.webp
    Screenshot_1.webp
    27.9 KB · Görüntüleme: 47
  • Screenshot_2.webp
    Screenshot_2.webp
    10.3 KB · Görüntüleme: 55
Oyla 0 Olumsuz oyla
Sayın @ByChilavert .

İsterseniz kendi örnek belgenizle birlikte, yeni bir konu açın veya
örnek belgenizi, mevcut sorunlu haliyle buraya ekleyin.

Zira eklediğiniz ekran görüntüsünden, sıkıntının mükerrer kayıt ile ilgili değil,
1 'den fazla Worksheet_Change kod blokunun varlığı olduğu anlaşılıyor.

.
 
Oyla 0 Olumsuz oyla
Yanıt için giriş yapmanız veya üye olmanız gerekir.
Benzer Konular Popüler İçerikler Daha Fazlası
Geri
Üst Alt