Koddaki hatayı bulamıyorum..

[acolkesen1]

Merhaba arkadaşlar,
Aşağıdaki gibi bir kod yazdım ama kodun [j5:j500] ile ilgili kısmı çalışmıyor. Nerede hata olduğunu bulamıyorum. Yardımcı olacak arkadaşlara şimdiden teşekkür ederim. İyi çalışmalar..
Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
On Error GoTo son
If Intersect(Target, [G5:G500]) <> "" Then
ActiveSheet.Unprotect
ActiveCell.Offset(0, -3).Copy [a1]
Sheets("sayfa1").[B65536].End(xlUp).Offset(1, 0) = [Sayfa3!a1]
Range(ActiveCell, ActiveCell.Offset(0, -5)).Copy Sheets("Sayfa2").[A65536].End(xlUp).Offset(1, 0)
Range(ActiveCell, ActiveCell.Offset(0, 3)).Locked = True
ActiveSheet.Protect
ActiveSheet.EnableSelection = xlUnlockedCells
End If
If Intersect(Target, [J5:J500]) <> "" Then
ActiveSheet.Unprotect
ActiveCell.Offset(0, -6).Copy [a1]
Sheets("sayfa1").[B65536].End(xlUp).Offset(1, 0) = [Sayfa3!a1]
Range(ActiveCell, ActiveCell.Offset(0, -6)).Copy Sheets("Sayfa2").[A65536].End(xlUp).Offset(1, 0)
ActiveSheet.Protect
ActiveSheet.EnableSelection = xlUnlockedCells
End If
son:
End Sub

 

[Levent Menteşoğlu]

If Intersect(Target, [G5:G500]) <> "" Then

Yukarıdaki satırda yazım hatası var. Bu satırı ve diğerini aynı şekilde aşağıdaki gibi düzeltin.

If Not Intersect(Target, [G5:G500]) Is Nothing And Target <> "" Then

 

[acolkesen1]

Merhaba Levent bey,
İlginize ve yanıtınıza çok teşekkür ederim. Esen kalın..

 

[acolkesen1]

Tekar merhaba ,
Yazdığım kodda belirttiğiniz düzenlemeyi yaptım, ancak J sütununda hücreye ilk değer giriildiğinde kod çalışmıyor, aynı hücreye tekrar bir değer girilince kod devreye giriyor. Sebebini bir türlü bulamadım.Yardımcı olabilirseniz sevinirim. Örnek dosya ektedir. İyi çalışmalar.