bir hücreden diğer hücreye gitme

[ERKAN1974]

C Sütununda bir veri girdiğimde enter a basında E sütunun aynı satırına, G Sütununda enter a bastığımda ise B sütununun bir alt satırına makro ile nasıl geçebilirim.

örnek c131 de veri girdiğimde entera basıcam ve e131 e gidecek G sütununda veri girip entere basıcam ve B132 ye gidecek.

teşekkürler.

 

[alpi]

Tab tuşuna basarak geçiş yapabilirsiniz

 

[ERKAN1974]

işe yaramıyor G sütununa gelince C ye nasıl geçicek

 

[alpi]

Enter'e basacaksınız.

Örnek birkaç kez Tab tuşuna basın ve sonra Enter'e basın.

 

[ERKAN1974]

Sayenİzde Tab TuŞunuda ÖĞrendİm.
Bu SÖyledİklerİnİz GÜzel Ama.
Sorumun Cevabi Bu Olmamali C De Entera Basinca E Ye Gİtmesİnİ İstİyorum. Bana Dersenİzkİ D SÜtununu Koru Bu Da Olumsuz.
Bazi Durumlar Da O SÜtÜna Verİ GİrİŞİ Olabİlecektİr.

Sorum Tamamen Macro İle İlgİlİ Olarak Bunu Yapmak.
TeŞekkÜrler

 

[alpi]

Yani sağa bir sutün atlayıp geçiş yapmak istiyorsunuz.
Peki bu sayfanın tamamında mı geçerli olacak yoksa belirli bazı sutünlarda mı?

 

[ERKAN1974]

Sayfanin Tamaminda GeÇerlİ Olucak
Yillik 11 000 Satir Gİbİ Verİ GİrİŞİ Olan Bİr Sayfam Var
Onda Bunu Kullanmak İstİyorum.

Atlanan SÜtunlar Nadİrende Olsa Kullanilacak. Onun İÇİn Koruma Yapmam SÖzkonusu DeĞİl

 

[alpi]

Sayfa nızın kod editörünü açın ve aşağıdakileri yazın

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column + 1 > 256 Then Exit Sub
    Application.EnableEvents = False
    Cells(Target.Row, Target.Column + 2).Activate
    Application.EnableEvents = True
End Sub

 

[ERKAN1974]

dosya ekledim incelermisin.

 

[alpi]

Aşağıdaki kodu deneyin

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column + 1 > 256 Then Exit Sub
    Application.EnableEvents = False
    Select Case Target.Column
        Case 3
            Cells(Target.Row, Target.Column + 2).Activate
        Case 5
            Cells(Target.Row, Target.Column + 2).Activate
        Case 7
            Cells(Target.Row + 1, Target.Column - 5).Activate
    End Select
    Application.EnableEvents = True
End Sub

 

[Seyit Tiken]

Alternatif : Çalışmanıza göre tanzim ediniz.

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = 0
If Target.Address = "$A$1" Then [D1].Select
If Target.Address = "$D$1" Then [G1].Select
If Target.Address = "$G$1" Then [C5].Select
Application.EnableEvents = 1
End Sub

 

[ERKAN1974]

İŞte Budur Alpİ
TeŞekkÜrler.
Seyİt KardeŞ Sanada TeŞekkÜr

11000 SÜtun Var. Alpİ Nİn Kİ Kesİn ÇÖzÜm