Yok hatası varsa uyar

[ADER_34]

Merhaba arkadaşlar "DEFECTİVE" sayfası "A" sütununa veri girdikçe "E" sütununa veri getiriyorum burda sorun yok fakat eğer "E" Sütununda "YOK" hatası varsa yada "E" sütununda "-1" değeri varsa "A" sutununa veri girilmesine izin verme gibi bir makroya ihtiyacım var yardımcı olurmusunuz? kolay gelsin teşekkürler..


http://s3.dosya.tc/server14/12hbyy/YOK_HATASI.rar.html

 

[Korhan Ayhan]

Deneyiniz.

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

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("A2:A" & Rows.Count)) Is Nothing Then Exit Sub
    Application.EnableEvents = False
    If IsError(Cells(Target.Row, "E")) Then Target.ClearContents: GoTo 10
    If Cells(Target.Row, "E") = -1 Then Target.ClearContents: GoTo 10
10  Application.EnableEvents = True
End Sub

 

[ADER_34]

Merhaba Korhan bey kodlarınız tam istediğim gibi sorunsuz çok teşekkür ederim hayırlı geceler.