VERİ GİRİŞİ ENGELLE

[polis-53]

Merhaba arkadaşlar ekte gönderdiğim linkteki dosyada benim istediğim a sütununda veri doğrulamadan veri getiriyorum örneğin a sütunundaki polis adeti p 2 den büyükse hata versin kayıt engellensin.

LiteShare Out of Service

liteshare.co

 

[Korhan Ayhan]

Sayfanızın kod bölümüne uygulayıp deneyiniz.

Veri girişinde uyarıyı verecektir.

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Bul As Range
    If Intersect(Target, Range("A:A")) Is Nothing Then Exit Sub
    If Target.Cells.Count > 1 Then Exit Sub
    If Target <> "" Then
        Set Bul = Range("O:O").Find(Target, , , xlWhole)
        If Not Bul Is Nothing Then
            If WorksheetFunction.CountIf(Range("A:A"), Target) > Bul.Offset(, 1) Then
                MsgBox "Veri girişi sınırını aştınız!", vbCritical
                Target.ClearContents
                Target.Select
            End If
        End If
    End If
    Set Bul = Nothing
End Sub

 

[polis-53]

Çok teşekkür ederim.
siz bir harikasınız.