Soru hücre hata uyarısı

[sirkülasyon]

If Not Intersect(Target, [D:D]) Is Nothing Then
If Target.Offset(, 1).Value = "YANLIŞ" Then
MsgBox "Öğretmen Rakamlarında Hata var Tekrar Kontrol Ediniz", vbCritical, "HATA"

Exit Sub

5. Satırdan itibaren B, C ve D hücrelerine rakam giriliyor. C ve D toplamı B toplamına eşit değilse uyarı veriyor.
Rica etsem Hata uyarısı verdikten sonra B, C ve D aralığındaki girilen rakamları temizleyerek tekrar giriş yapabilmesi için B hücresine imleci getirebilmem için yardımcı olabilir misiniz?

 

[YUSUF44]

Şöyle deneyin:

If Not Intersect(Target, [D:D]) Is Nothing Then
If Target.Offset(, 1).Value = "YANLIŞ" Then
MsgBox "Öğretmen Rakamlarında Hata var Tekrar Kontrol Ediniz", vbCritical, "HATA"
Application.EnableEvents = False
    Range("B" & Target.Row & ":D" & Target.Row).ClearContents
    Target.Offset(0, -2).Select
Application.EnableEvents = True
Exit Sub

 

[sirkülasyon]

Yusuf Abi
Teşekkür ederim. Sağ Olasın