Mükerrer Kayıt "Başka sayfaya bakacak UYARI verecek"

[sirkülasyon]

Es Selamün Aleyküm, Hayırlı Sabahlar, Hayırlı Günler

Değerli ağabeylerim
SGK sayfasının G5:G300 aralığında araç plaka numaraları mevcut.
Zarf Açma sayfasının AB1 hücresine araç plakası manuel yazdığım zaman makro tetiklenecek ve Zarf Açma sayfasının AB2 hücresine "küçük büyük harfe duyarlı"
SGK sayfasının G5:G300 aralığında var ise "HATA Bu plaka daha önce girilmiş"
SGK sayfasının G5:G300 aralığında yok ise "UYGUN" yazmasını nasıl sağlayabilirim.

Teşekkür eder saygılarımı sunarım

 

[tahsinanarat]

Ekli dosyayı deneyiniz

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Evn As Range
    'If Target.Column <> 1 Or IsEmpty(Target.Value) = True Then Exit Sub
    If Intersect(Target, [AB1:AB1]) Is Nothing Then Exit Sub
    Target.Offset(1, 0).Value = "UYGUN"
    Set Evn = Sayfa1.Columns(7).Find(Target.Value, , , xlWhole, MatchCase:=True)
    If Not Evn Is Nothing Then
        Target.Offset(1, 0).Value = "HATA Bu plaka daha önce girilmiş"
    End If
    Set Evn = Nothing
End Sub

 

[sirkülasyon]

Sayın tahsinanarat
Gecikmeli cevap vermemden dolayı özür dilerim.
çok çok teşekkür ederim. Ellerine sağlık