• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

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

S

serbestmali

Katılım
2 Aralık 2005
Mesajlar
142
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
 
ActiveCell.Offset(0, 1).Select


Ama İstersenız bunu Excel in araclar kısmındanda duzenleyebilirsiniz
 
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
 
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
 
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
 
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
 
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
 
@serbestmali, kastettiğiniz ENTER tuşuna basmamakmı?

eğer bu ise pek makul/değecek bir yöntem olmaz.
 
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
 
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.
 
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
 
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]
 
Levent bey sanırım bunu gözden kaçırdınız.

serbestmali' Alıntı:
evet ENTERe basmadan sağdakine geçebilmek
bir öğretmenin not girişinde bence çok makul ve kabul gören bir yöntem
Genişletmek için tıkla ...

@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.
 
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
 
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.
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst