Excelde Enter Tuşu

[Way-Out]

Excelde entere basıldığında normalde aşağı doğru hücre seçimi yapılıyor.

Şöle bir soru sormak istiyorum enter tuşuna basılınca ben sağa doğru kaydırdım ama atıyorum 4 hücre sağa gittikten sonra

örneğin :

A1 hücresinde 4 defa veri girişi yaptım ben a1 - b1 - c1 - d1 oldu sonra bir veri daha girişi yaptığım zaman otomatik olarak seçili hücrenin a2 hücresine gelmesini istiyorum ve yeni gireceğim veriyi bu alana girsin bu konuda yardımcı olabilirmisiniz

 

[YUSUF44]

Sırasıyla şunları yapın:

Veri girilebilecek/değişebilecek/Enter ile geçilecek tüm hücreleri seçin
Seçili yerde sağ tıklayıp Hücreleri biçimlendir deyin
Özellikler sekmesinde Kilitli'nin yanındaki işareti kaldırın
Tamam deyip çıkın
Gözden geçir sekmesinde Sayfayı Koru'yu tıklayın ve korumayı başlatın
Artık Tab tuşuna bastığınızda imleç o hücreler arasında istediğiniz gibi geçecektir.

 

[YUSUF44]

Alternatif ve daha basit yöntem ise sağa gitmek için Tab tuşunu ve son hücrede aşağı satıra geçmek için Enter tuşunu kullanmaktır.

Bu yöntemde Tab tuşuyla sağa giderken Enter'e bastığınızda imleç alt satırda, Tab tuşuna basmaya başladığınız hücrenin altına geçer.

Ben liste işlemlerinde bu yöntemi kullanırım.

 

[Way-Out]

Bu konuda yardımcı olabilecek varmı acaba ?

1 Sayfa içerisinde farklı alanlarda tablolar oluşturuldu veri girildikçe 4 hücre sağ tarafa kayacak veri giriş ekranı yani a1 e veri girdim otomatik entere basmadan b1 e geçecek sonra tekrar c1 ve d1 sonra otomatik a2 ye gelecek ben yine veri girmeye devam edeceğim bu konuda yardımcı olabilirmisiniz

 

[YUSUF44]

Aşağıdaki kodları ilgili sayfanın kod bölümüne (sayfa adına sağ tıklayıp Kod Görüntüle deyince çıkan sayfa) yapıştırırsanız A: D sütunlarındaki hücrelere veri gidildikçe önce sağa sonra alt satıra geçer:

Private Sub Worksheet_Change(ByVal Target As Range) 
If intersect(Target, [A:D]) is nothing then exit sub 
Satır=cells(Rows.Count, "A").End(3).row
Sütun=cells(Satır,Columns.Count).End(Xltoleft).column
If Sütun>=4 then
Cells(Satır+1,"A").Select 
Else
Cells(Satır, Sütun+1).Select 
End if 
End Sub

 

[FERAZ]

Bir altarnatifte benden olsun.

Private Sub Worksheet_Change(ByVal Target As Range)

        If Not Intersect(Target, Range("D1:D" & Rows.Count)) Is Nothing Then
         On Error Resume Next
            Target.Offset(1, -3).Select
         End If
      If Not Intersect(Target, Range("A1:C" & Rows.Count)) Is Nothing Then
         On Error Resume Next
            Target.Offset(0, 1).Select
         End If


End Sub