Cursor Yönlendirmede 2 Koşula Uygun Hareket

[baydeniro]

Merhaba arkadaşlar. Aşağıdaki 1. kodda cursor B sütunundan P sütununa sağa doğru Enter tuşuna basmak suretiyle hareket etmektedir. E sütunundan K sütununa geçmektedir. 2. kodda ise E sütununa ne yazılıyor ise F sütununa aynen kopyalıyor.

Şimdi bu 2 kodu nasıl usturuplu bir şekilde birleştirebiliriz ?

1. KOD :
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Son
If Target.Column > 1 And Target.Column < 5 Then Target.Offset(0, 1).Select
If Target.Column = 5 Then Target.Offset(0, 6).Select
If Target.Column > 10 And Target.Column < 16 Then Target.Offset(0, 1).Select
If Target.Column = 16 Then Target.Offset(1, -14).Select
Son:
End Sub

2. KOD :Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Son
If Intersect(Target, [E:E]) Is Nothing Then Exit Sub
If Target <> "" Then Target.Next = Target
If Target = "" Then Target.Next = ""
Exit Sub
Son:
End Sub

Çok teşekkürler

 

[halit3]

böyle olabilirmi

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Son
If Target.Column > 1 And Target.Column < 5 Then Target.Offset(0, 1).Select
If Target.Column = 5 Then Target.Offset(0, 6).Select
If Target.Column > 10 And Target.Column < 16 Then Target.Offset(0, 1).Select
If Target.Column = 16 Then Target.Offset(1, -14).Select
If Intersect(Target, [E:E]) Is Nothing Then Exit Sub
If Target <> "" Then Target.Next = Target
If Target = "" Then Target.Next = ""
Exit Sub
Son:
End Sub

 

[baydeniro]

Sayın halit3 elleriniz dert görmesin. Çok çok teşekkür ederim. Allah işinizi gücünüzü rast getirsin. Sağlıcakla kalın.

 

[halit3]

iyi günler kolay gelsin