kod çakışması yardım

[kemal turan]

Merhaba,
Aşağıda iki kod var.
Bu halde aşağıdaki satır çalışmıyor;
If Target.Offset(0, 4) = "" Then Target.Offset(0, 4) = Cells(Target.Row, "An")
KOd 2 yi kaldırdığımda çalışıyor.yani (("AN")sutunundaki veriyi getiriyor)
İsteğim bu iki kodu aynı anda nasıl çalıştırabiliriz.
Teşekkürler.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
'KOD1
If Not Intersect(Target, [c21:c50]) Is Nothing Then
If Target.Value = "" Then
Target.Offset(0, -1) = ""
Target.Offset(0, 1) = ""
Target.Offset(0, 3) = ""
Target.Offset(0, 4) = ""
Else
If Target.Offset(0, -1) = "" Then Target.Offset(0, -1) = Cells(Target.Row, "Aı")
If Target.Offset(0, 1) = "" Then Target.Offset(0, 1) = Cells(Target.Row, "AO")
If Target.Offset(0, 3) = "" Then Target.Offset(0, 3) = Cells(Target.Row, "Am")
If Target.Offset(0, 4) = "" Then Target.Offset(0, 4) = Cells(Target.Row, "An")
End If
End If

'KOD 2
If Not Intersect(Target, [d21:d50]) Is Nothing Then
Target.Offset(0, 3) = Cells(Target.Row, "d").Value * Cells(Target.Row, "f").Value
End If

End Sub

 

[kemal turan]

Merhaba arkadaşlar,
konu günceldir.