enter tuşu ile sağdaki hücreye geçmek

[serbestmali]

selamlar
Enter tuşu ile sağdaki B5 enter C5 enter D5 enter E5 enter B6 Enter C6

şeklinde Enter tuşuyla kayabilme makrosu yapabilirmiyiz


TEÞEKKÜRLER

 

[Kemal Demir]

ActiveCell.Offset(0, 1).Select


Ama İstersenız bunu Excel in araclar kısmındanda duzenleyebilirsiniz

 

[otufan03]

Araçlar/Seçenekler/Düzen/Yön

 

[serbestmali]

selamlar
sanırım beni yanlış anladınız
Araçlar menüsünden yaptığımda hep sağa kayıyor
benim aradığım çizelge içinde sağa çizelgenin sonuna geldiğimde bir alt satıra geçip tekrar sağa ilerlemesi
ekl,i dosya da açıklama var

 

[danersin]

Böyle deneyin, (sayfa modülüne eklenecek)

Private Sub Worksheet_Change(ByVal Target As Range)
If ActiveCell.Column = 7 Then ActiveCell.Offset(1, -6).Select
If ActiveCell.Column <= 7 Then ActiveCell.Offset(-1, 1).Select
End Sub

 

[serbestmali]

selamlar
Ã?zür dilerim ama macroyu çalıştıramıyorum
örnek bir dosya gönderebilirmisiniz

 

[Korhan Ayhan]

Selamlar,

Denermisiniz...

 

[serbestmali]

Selamlar
istediğim oldu ancak
çizelgeyi istediğim yerden başlatmak ve istediğim yerde bitirmek için kodu nasıl değiştirebilirim açıklayabilirmisiniz


Teşekkürler

 

[Korhan Ayhan]

Kodları aşağıdaki şekilde değiştirin.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Intersect(Target, [B5:G10]) Is Nothing Then Exit Sub
If ActiveCell.Column < 2 Or ActiveCell.Column > 7 Then Exit Sub
If ActiveCell.Column = 7 Then ActiveCell.Offset(1, -6).Select
If ActiveCell.Column <= 7 Then ActiveCell.Offset(-1, 1).Select
End Sub

 

[serbestmali]

Teşekkürler
İstediğim gibi müdahale edebiliyorum
saygılarımla
İyi Akşamlar

 

[serbestmali]

selamlar
Modüle satır ve sütun konusunda istediğim şekilde müdahale edebiliyorum
ancak şöyle bir şey takıldı kafama
hücreye girdiğimiz veri 00 ile 100 arasında yazıldığında kendisi sağdaki hücreye geçse diye düşündüm

Ne yapabiliriz acaba

 

[danersin]

@serbestmali, kastettiğiniz ENTER tuşuna basmamakmı?

eğer bu ise pek makul/değecek bir yöntem olmaz.

 

[serbestmali]

selamlar
evet ENTERe basmadan sağdakine geçebilmek
bir öğretmenin not girişinde bence çok makul ve kabul gören bir yöntem
Saygılarımla

 

[danersin]

Umarım yanlış anlama yoktur çünkü ben istediğinize makul değil demedim sadece kodu pek kullanışlı olmaz diye düşünmüştüm..


Eğer ekteki gibi bir userform kullanmayı düşünürseniz bu örnek geliştirilebilir.

 

[serbestmali]

selamlar
hayır hayır yanlış anlama yok burası bir yardımlaşma odası gibi
sizin userformlu dosyayı indirdim ama çalışma şekli konusunda yardımcı olsanız
yada çalışan bir örnek ekleseniz beraber incelesek


saygılarımla

 

[Levent Menteşoğlu]

Aşağıdaki kodu dosyanızdaki sayfa1 in kod sayfasına kopyalayarak deneyin.

[vb:1:0b19550097]Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.MoveAfterReturnDirection = xlDown
If Intersect(ActiveCell, [b9:h19]) Is Nothing Then Exit Sub
If ActiveCell.Column = 8 Then ActiveCell.Offset(1, -6).Select
Application.MoveAfterReturnDirection = xlToRight
End Sub[/vb:1:0b19550097]

 

[danersin]

Levent bey sanırım bunu gözden kaçırdınız.

evet ENTERe basmadan sağdakine geçebilmek
bir öğretmenin not girişinde bence çok makul ve kabul gören bir yöntem

@serbestmali, eklediğim dosya bende sorunsuz çalışıyor. ? şu an işinizi görürmü emin olmadığımdan teferruat eklemedim ama araçlar>makro>makrolar penceresinde "dene " ismli makroyu çalıştırdığınızda bir userform ve üstünde textbox açılır ve bu textbox'a 2 karakter girdiğinizde kursör hangi hücrede ise oraya ekler ve textbox'ı boşaltarak yeni girişe hazırlar.

 

[Levent Menteşoğlu]

Evet ben sadece ilk soruyu okumuşum.

 

[serbestmali]

selamlar
evet çalıştırdım çok teşekkürler yalnız 100 ü yazmıyor
şunu da soracam veri kayıdını istediğim satır ve sütündan başlatmak ve 6 dan fazla kayıt yapmak için ne yapabilirim



Saygılarımla

 

[danersin]

bu şekilde değiştirebilirsiniz, kodda ilgili değişiklikler için açıklama var, o rakamlarla oynarsanız olur.
userformdaki on-off tuşundaki işareti kaldırırsanız enter tuşu ile girişe döner bu şekilde 10 ile 100'ü ayırabilir excel,100 yazabilirsiniz.