Uyarı makro sunu ekleyemedi yardım!!

[zamansal2]

Ekteki dosyada excele 2 ci kez aynı kaydı girdiğimizde uyarı vermesini istiyorum ama hata veriyor nasıl yapa bilirim.
Birde kırmızı işaretli satırdaki hücrelerde formül var bunları çalışırken yanlışlıkla işlem yapmamak için hücreye geldim değişiklik yapamayım ama formüller çalışsın.

kod
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [B3:B999]) Is Nothing Then Exit Sub
If Target <> "" And WorksheetFunction.CountIf(Range("B2:B999"), Target) > 1 Then
MsgBox "Mükerrer kayıt yapılamaz !...": Target = "": Target.Activate
End If
End Sub

 

[Orion1]

İlgili satırı aşağıdaki gibi deneyin.

If Target <> "" And WorksheetFunction.CountIf(Range("B2:B999"), Target) [B][COLOR="Red"]>=[/COLOR][/B] 1 Then

 

[zamansal2]

Bu hatayı veriyor

Bu kodu ekledimmi bu hatayı alıyorum
Sil butonunu kullanınca ?

 

[zamansal2]

Excel dosyasıda burda

Hata var ama nerede

 

[Orion1]

Bu kodu ekledimmi bu hatayı alıyorum

Hata veren dosyayı yüklermisiniz?!

 

[Orion1]

B sütununa veri giriyorum.Hata vermiyor.

 

[zamansal2]

sil butonuna basınca hata veriyor

 

[zamansal2]

Burayı gösteriyor ?

 

[Orion1]

Dosyanız ektedir.

 

[zamansal2]

Süper oldu şimdi çok teşekkür

 

[zamansal2]

Bir konuda daha yardım istiyecem O sütunundan A sütununa Ctrl ok tuşu ile geçiyordum şimdi çalışmıyor nasıl yapabilirim bunu ?