Kodlar tam çalışmıyor

[magnesia]

Arkadaşlar selam.

Private Sub Worksheet_Change(ByVal Target As Range)
Select Case Target.Column
Case Is = 1: Target.Offset(, 1).Select
Case Is = 2: Target.Offset(, 1).Select
Case Is = 3: Target.Offset(, 1).Select
Case Is = 4: Target.Offset(, 3).Select
Case Is = 5: Target.Offset(, 1).Select
Case Is = 6: Target.Offset(, 1).Select
Case Is = 7: Target.Offset(, 1).Select
Case Is = 8: Target.Offset(, 1).Select
Case Is = 9: Target.Offset(, 1).Select
Case Is = 10: Target.Offset(, 1).Select
Case Is = 11: Target.Offset(, 1).Select
Case Is = 12: Target.Offset(, 3).Select

Case Is = 13: Target.Offset(1, -14).Select

Case Else
End Select
On Error GoTo son
son:
End Sub

formülü ile, hücreye veri girişi yapıp enter tuşuna bastıktan sonra yan hücreye (arada 3 hücre ileri) geçiyor ve son enter tuşuna bastıktan sonra bir alt satıra geçip 14 hücre geri gelmesi lazımken, son hücrede sadece bir alt satıra geçiyor, geri gitmiyor.

Oysa ben bu kodları çoğu dosyamda uyguladım.. Onlarda sorunsuz çalışıyor. Bu sefer hücre ilave ettim fakat yukarıda belirttiğim hatayı verdi.
Yardımlarınızı bekliyorum.
Şimdiden teşekkürler..

 

[kulomer46]

Yukardaki Kodunuzda, Aşağıdaki koyu kırmızı renkli değişiklikleri uyguladığınızda kodunuz istediğiniz gibi çalışmaktadır.

Kolay Gelsin...

Private Sub Worksheet_Change(ByVal Target As Range)

Select Case Target.Column
Case Is = 1: Target.Offset(, 1).Select
Case Is = 2: Target.Offset(, 1).Select
Case Is = 3: Target.Offset(, 1).Select
Case Is = 4: Target.Offset(, 3).Select
Case Is = 5: Target.Offset(, 1).Select
Case Is = 6: Target.Offset(, 1).Select
Case Is = 7: Target.Offset(, 1).Select
Case Is = 8: Target.Offset(, 1).Select
Case Is = 9: Target.Offset(, 1).Select
Case Is = 10: Target.Offset(, 1).Select
Case Is = 11: Target.Offset(, 1).Select
Case Is = 12: Target.Offset(, 3).Select

Case Is = 15: Target.Offset(1, -14).Select

Case Else
End Select

On Error GoTo son
son:

End Sub

 

[magnesia]

Sayın kulomer46
İşlem tamam.
İlginize, blginize ve emeğinize sağlık.
Çok teşekkür ederim

 

[kulomer46]

Sayın kulomer46
İşlem tamam.
İlginize, blginize ve emeğinize sağlık.
Çok teşekkür ederim

Kolay Gelsin ...