Skip to main content

AccessTr.neT


Enter Tuşu İle Yön Belirlemek.

Enter Tuşu İle Yön Belirlemek.

Çözüldü #1
Merhaba Arkadaşlar

Ben Excel sayfasında A,B,H,I sütunlarına veri girmek istiyorum. Girdiğim veriler biraz uzun olduğu için her seferinde hücrelere tıklayarak veri girişi zaman kaybına neden oluyor. A1 hücresine veri yazıp Enter Tuşuna bastığım zaman B1 hücresine gidilsin B1 hücresine veri girip Enter Tuşuna bastığımız zaman A2 hücresine gitsin. A ve B sutunlarındaki veriyi bitirdikten sonra H ve I sütunlarına veri girmeye başlayacağımdan ayni şekilde. H1 hücresine veri yazıp Enter Tuşuna bastığım zaman I1 hücresine gidilsin I1 hücresine veri girip Enter Tuşuna bastığımız zaman H2 hücresine gitsin.

Bu konuda yardımlarınıza ihtiyacım var.
Cevapla
#2
(20/03/2021 04:22)m_demir Adlı Kullanıcıdan Alıntı: Merhaba Arkadaşlar

Ben Excel sayfasında  A,B,H,I sütunlarına veri girmek istiyorum. Girdiğim veriler biraz uzun olduğu için her seferinde hücrelere tıklayarak veri girişi zaman kaybına neden oluyor. A1 hücresine veri yazıp Enter  Tuşuna bastığım zaman B1 hücresine gidilsin B1 hücresine veri girip Enter  Tuşuna bastığımız zaman A2 hücresine gitsin.  A ve B sutunlarındaki veriyi bitirdikten sonra H ve I sütunlarına veri girmeye başlayacağımdan ayni şekilde. H1 hücresine veri yazıp Enter  Tuşuna bastığım zaman I1 hücresine gidilsin I1 hücresine veri girip Enter  Tuşuna bastığımız zaman H2 hücresine gitsin. 

Bu konuda yardımlarınıza ihtiyacım var.
Kodlar sheetchange içine yazılmalı.
İf target.column=1 and f target.row>1 and target.value <> "" then  gibi şartlr eklenip offset ve select i kullanılır.
Yukardki kod örneğinde if ileend if arasınada mesela target.offset(1,5).select yazılır.Burda 5 5 sütun sağa demek 1 ise 1 satır alta kaydır demek abey.-5 olursada 5 sütun sola gider.
Tabii şartlara birde if target.rows.count = 1 eklenmeli yoksa hata verir bazı durumlarda.
Cevapla
#3
Zaman bulmuşken yaptım.Koddaki tek tırnağı silerseniz 1.satırdada çalışmaz kendinize göre ayarlayabilirsiniz.

Visual Basic Code
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A:B,H:i")) Is Nothing Then
    If Target.Rows.Count > 1 Then Exit Sub
    If Target.Value = "" Then Exit Sub
'    If Target.Row = 1 Then Exit Sub
    Select Case Target.Column
        Case 1, 8: Target.Offset(0, 1).Select
        Case 2, 9: Target.Offset(1, -1).Select
    End Select
End If
End Sub
Cevapla
#4
Hocam yazdığınız kod çok güzel. Enter Tuşuna bastığımız zaman direk bir alttaki hücreye gidiyor. Yani A1 den A2 ye gidiyor. A1 de Enter Tuşuna bastığımız zaman önce B1 gitsin. B1 de Enter Tuşuna bastığımız zaman A2 ye gitsin yani Önce bir sağa sonra A2 ye gitsin.
Cevapla
#5
(20/03/2021 15:02)m_demir Adlı Kullanıcıdan Alıntı: Hocam yazdığınız kod çok güzel. Enter Tuşuna bastığımız zaman direk bir alttaki hücreye gidiyor. Yani A1 den A2 ye gidiyor. A1 de Enter Tuşuna bastığımız zaman önce B1 gitsin. B1 de Enter Tuşuna bastığımız zaman A2 ye gitsin yani Önce bir sağa sonra A2 ye gitsin.
Kodu sayfa koduna ekledinizmi modüle değil

Kod sayfada değişiklik olunca çalışır değiştirmeden sendkeys ile olur o da numlock felan kapıtıp açıyor Img-grin
Son Düzenleme: 20/03/2021, 15:14, Düzenleyen: feraz.
Cevapla
#6
Çok, çok teşekkürler Hocam ellerinize sağlık.

Hocam konuyu taşıyabilirsiniz. Saygılarımla sağlıklı günler diliyorum.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da