Sayfanın tamamında mükerrer kayıt engelleme

[sdn123]

Merhaba Arkadaşlar;sayfanın tamamında mükerrer kayıt engelleme işlemini nasıl yapabilirim…(bir satır yada sütün değil)

 

[Emir Hüseyin Çoban]

. . .

Çalışma sayfasının kod bölümüne

Private Sub Worksheet_Change(ByVal Target As Range)
Dim k As Range, ilk_adres As String, a As Long
Dim i  As Long, syf As String
If Target.Value = "" Then Exit Sub
        ReDim myarr(1 To 3, 1 To 1)
For i = 1 To 1
    Set k = Cells.Find(Target.Value, , xlValues, xlWhole, , 1)
    If Not k Is Nothing Then
        ilk_adres = k.Address
        Do
        a = a + 1
        ReDim Preserve myarr(1 To 3, 1 To a)
        myarr(2, a) = k.Address(False, False)
        myarr(3, a) = k.Value
        Set k = Cells.FindNext(k)
        Loop While ilk_adres <> k.Address And Not k Is Nothing
    End If
Next i
    Set k = Nothing
If a > 1 Then
Erase myarr
Target = ""
MsgBox " V a r ", vbCritical
Else
End If
End Sub

. . .

Tıkla ~ Süzülen Veriyi Yazdırma 5 Nolu Mesaj

Buradaki çalışmanın çakması oldu. Userformdan çıkarıp, çalışma sayfasına göre revize ettim.

. . .

 

[sdn123]

Hocam eyvallah.Büyüksün

 

[Believing]

Sayın Uzman Arkadaşlar,

"C" Sütununda Giriş tarihi, "D" Sütununda çıkış tarihi ve "E" Sütununda da isim olan bir çalışmada mükerrer kayıt kontrolü sağlamak istiyorum. "E" Sütunundaki isimlerin mükerrer olması halinde "Mükerrer İsim" uyarısı mesajı alarak, sonrasında kayıt işlemine devam edilmesini, "C", "D", ve "E" Sütunlarının tam eşleşmesi durumunda "Mükerrer Kayıt" uyarısı alarak kayıt işlemine müsade edilmemesini sağlayacak koda ihtiyacım olup, çok değerli yardımlarınızı rica ediyorum.

Saygılarımla.

 

[ZorBey_]

Merhaba Sayın
Believing
İyi Çalışmalar
Ekli Dosyayı Denermisiniz.
--------------------------
Konuya Olumlu Veya Olumsuz
Dönüş Yapmanız.
Konuyu Takip Eden Diğer Site
Sakinleri Açısından Faydalı Olucaktır.

 

[Believing]

Sayın asr35,

Konuya gösterdiğiniz ilgi için size çok teşekkür ederim. Konu amacına ulaşmıştır.

Saygılarımla.

 

[ZorBey_]

Kolay Gelsin
İyi Çalışmalar.

 

[Sarigol_937]

bu formülü nasıl gircez olmuyor

 

[Sarigol_937]

alt+F11 yapıp modüleyi yapıştırıp kaydediyorum olmuyor

 

[sirkülasyon]

Konu çözüme ulaşmış.
sayın Asr35;
Mükerrer giriş sadece "e" sütunu için değil de b, c, d, e sütunlarına girilen veri aynısı olursa ve "e" sütununda enter dedikten sonra kontrol yapsa nasıl düzenleye bilirsiniz?