Enter Sağa

[nane]

Merhabalar;
Tablodaki D3 ile Z3 arası D6 Z20 hücreleri veri girişine açık. Burada D3 den Z3 e kadar Enter ile sağa ve sonra ise C6 dan E6,G6,I6,K6,M6....Y6 ya (yani bir sütun atlamalı) sonrasında ise bir alt satıra B7,D7,....Y7.. gibi devam edip en son Y20 hücresine olmak üzere ENTER SAĞA hareket ettirmek istiyorum.
Bunu kod ile yapabilirmiyiz.
Excel özelliklerinden enter sağa seçimi yaptığımda bütün kitapta veya diğer kitaplarda da enter sağa hareketine devam ediyor.
Oysa sadece bu sayfada olsun istiyorum.
Ekteki dosyayı inceleyebilirsiniz.
Yardımlarınızı bekliyorum.
Yb®

 

[Muzaffer Ali]

Eğer özelliklerinde Sağa hareket et deyince işinizi örüyosa aşağıdaki kodları sağa doğru gitmesini istediğiniz sayfanın kod editörüne ekleyin

Private Sub Worksheet_Activate()
Application.MoveAfterReturnDirection = xlToRight
End Sub

Private Sub Worksheet_Deactivate()
Application.MoveAfterReturnDirection = xlDown
End Sub

Sayfa aktif olduğunda entere basınca sağdaki hücre seçilir deaktif olduğunda entere basınca aşağıdaki hücre seçilir

 

[nane]

Eğer özelliklerinde Sağa hareket et deyince işinizi örüyosa aşağıdaki kodları sağa doğru gitmesini istediğiniz sayfanın kod editörüne ekleyin

Private Sub Worksheet_Activate()
Application.MoveAfterReturnDirection = xlToRight
End Sub

Private Sub Worksheet_Deactivate()
Application.MoveAfterReturnDirection = xlDown
End Sub

Sayfa aktif olduğunda entere basınca sağdaki hücre seçilir deaktif olduğunda entere basınca aşağıdaki hücre seçilir

dalgalikur ilginize teşekkürler,
Bunu C3 ile Z20 hücreleri arasında sınırlayabilirmiyiz.

 

[Muzaffer Ali]

Ben size başka bir yönem önereyim sağa doğru gitmek istediğinizde Tab tuşuna basın. Alt hücrelere doğru gitmek istediğinizde Entere basın. Bu işinizi görür mü?

 

[nane]

Tabloyu kullanacak başkası olduğundan, hücre kilitleme ile de kısıtlama yapabilirim.
Eğer olmuyors o kadar da önemli değil.
Teşekkürler
Yb®

 

[Korhan Ayhan]

Ekteki örnek dosyayı inceleyiniz.

 

[nane]

Ekteki örnek dosyayı inceleyiniz.

Korhan Ayhan teşekkürler;

Birde bu dosyada A1 hücresine saniye geri sayım kronometre yerleştirebilirmiyiz.
Aslında bundan sonra da son olarak imlecin bulunduğu hücre veya satır büyüteçlenerek daha büyük görünsün istiyorum.
Aslında forumdan aldığım değerli üstatlarımın kodlarını eklemeye çalıştım ama bir türlü olmadı hata veriyor. Birde kod çakışması ( kod isimleri aynı) oluyor sanırım dosya ektedir.Gereksiz ve hatalı kodları silebilirsiniz.
Yardımlarınıza muhtacım.
tşk.
Yb®

 

[nane]

Merhabalar;
Korhan beyin verdiği kod ile diğer kodu aynı sayfada birlikte kullanmak istiyorum fakat olmuyor hata veriyor.


Private Sub Worksheet_Activate()
Application.MoveAfterReturnDirection = xlToRight
End Sub

Private Sub Worksheet_Deactivate()
Application.MoveAfterReturnDirection = xlDown
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column < 3 Then Application.MoveAfterReturnDirection = xlDown
If Target.Column > 26 Then
Application.MoveAfterReturnDirection = xlDown
Cells(Target.Row + 1, 3).Select
End If
If Target.Row = 4 Or Target.Row = 5 Then
Application.MoveAfterReturnDirection = xlDown
ElseIf Target.Row > 5 And Target.Row < 21 Then
Application.MoveAfterReturnDirection = xlToRight
Else
Application.MoveAfterReturnDirection = xlDown
End If
End Sub
Dim adr, olcu

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If adr <> Empty Then Range(adr).Font.Size = olcu
Cancel = True
If ActiveCell <> "" Then
adr = ActiveCell.Address
olcu = ActiveCell.Font.Size
ActiveCell.Font.Size = 20
End If
End Sub

 

[polis-53]

Merhabalar Enter Tüşüyla sağa doğru giderken formüllü hücreleri atlasın