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.

(20/03/2021, 04:22)m_demir yazdı: 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.

Zaman bulmuşken yaptım.Koddaki tek tırnağı silerseniz 1.satırdada çalışmaz kendinize göre ayarlayabilirsiniz.

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

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.

(20/03/2021, 15:02)m_demir yazdı: 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

Çok, çok teşekkürler Hocam ellerinize sağlık.

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