Her enterde başka hücre

[manisali50]

Arkadaşlar merhaba..
Sorum basit ama içinden çıkamadım bir türlü..
K1 hücresine veri girdikten sonra enter tuşuna basınca K3 oradan K5 ve sırasıyla K8-K10-K14-K16-K20-K24-K26-K28-K30-K32-K34 hücrelerine gitmek istiyorum..En son olarak K34 hücresine veri girip enter tuşuna bastıktan sonra sayfa2'ye geçmek istiyorum..Bununla ilgili makro yazar mısınız?
Şimdiden teşekkürler

 

[manisali50]

Sayın üstadlarımın ilgi ve yardımlarını bekliyorum

 

[manisali50]

İhsan Hocam biliyorum kızıyorsun ama yardım eden olmayınca mecburen isimlen sizden yardım istemek zorunda kalıyorum yine..Soruma bir bakar mısınız?

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu sayfanızın kod bölümüne uygulayıp denermisiniz.

Option Explicit
 
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Adres As String
    
    Adres = Target.Address(0, 0)
    If Adres = "K1" And Target <> "" Then Range("K3").Select
    If Adres = "K3" And Target <> "" Then Range("K5").Select
    If Adres = "K5" And Target <> "" Then Range("K8").Select
    If Adres = "K8" And Target <> "" Then Range("K10").Select
    If Adres = "K10" And Target <> "" Then Range("K14").Select
    If Adres = "K14" And Target <> "" Then Range("K16").Select
    If Adres = "K16" And Target <> "" Then Range("K20").Select
    If Adres = "K20" And Target <> "" Then Range("K24").Select
    If Adres = "K24" And Target <> "" Then Range("K26").Select
    If Adres = "K26" And Target <> "" Then Range("K28").Select
    If Adres = "K28" And Target <> "" Then Range("K30").Select
    If Adres = "K30" And Target <> "" Then Range("K32").Select
    If Adres = "K32" And Target <> "" Then Range("K34").Select
    If Adres = "K34" And Target <> "" Then Sheets("Sayfa2").Select
End Sub

 

[manisali50]

Hocam gerçekten çok süper olmuş..Hatta muhteşem olmuş..Küçük bir eklenti yapabilir miyiz? Diyelim ki K14 hücresinde veri vardı ve o hücreye yazmadan enterla geçiyorum..Bu sefer K16'ya değil de K15'e geçiyor..Bunu nasıl önleyebiliriz??Yani her halikarda belirttiğim hücrelere geçmesini istiyorum

 

[Korhan Ayhan]

Selamlar,

Ekteki örnek dosyayı inceleyiniz.

 

[manisali50]

Hocam tek kelime ile harika..Sonsuz teşekkürler