TÜR UYUŞMAZLIĞI HATASI

[hayatigulec]

Saygı değer Üstadlarım,
Tür uyuşmazlığı hatası alıyorum. Fakat kod üzerindeki hatayı bulamıyorum. Yardımlarınızı rica edebilir miyim?

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo dur
Application.EnableEvents = False
If Not Intersect(Target, Range("B:B")) Is Nothing Then
If Target.Value = "" Then Application.Undo
End If
If Not Intersect(Target, Range("G:G")) Is Nothing Then
If Target.Value = "" Then Application.Undo
End If
If Not Intersect(Target, Range("P")) Is Nothing Then
If Target.Value = "" Then Application.Undo
End If
If Not Intersect(Target, Range("E:E")) Is Nothing Then
If Target.Value = "" Then Application.Undo
End If
If Not Intersect(Target, Range("U:U")) Is Nothing Then
If Target.Value = "" Then Application.Undo
End If
If Not Intersect(Target, Range("O:O")) Is Nothing Then
If Target.Value = "" Then Application.Undo
End If
devam:
Application.EnableEvents = True
Exit Sub
dur:
MsgBox Err.Description
Resume devam
End Sub

 

[YUSUF44]

Hatayı Debug yaptığınızda hangi satırda hata veriyor?

 

[hayatigulec]

Yusuf Bey,
Aslında kod çalışıyor. Fakat sayfada satır ekleme işlemi yaptığımda ekteki görüntü çıkıyor.

 

[EmrExcel16]

Merhaba , şu kodu ekleyin en başa.

If Target.Count > 1 Then Exit Sub

 

[hayatigulec]

Merhaba,
Sorun çözüldü. Çok teşekkür ederim..
Bilginize sağlık..

 

[EmrExcel16]

Merhaba,
Sorun çözüldü. Çok teşekkür ederim..
Bilginize sağlık..

Rica ederiz , iyi çalışmalar..