+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Excel (https://accesstr.net/forum-microsoft-excel.html)
+--- Forum: Excel Cevaplanmış Soruları (https://accesstr.net/forum-excel-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Enter Tuşu İle Yön Belirlemek. (/konu-enter-tusu-ile-yon-belirlemek.html)
Sayfalar:
1
2
Enter Tuşu İle Yön Belirlemek. - m_demir - 20/03/2021
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.
RE: Enter Tuşu İle Yön Belirlemek. - feraz - 20/03/2021
(20/03/2021, 04:22)m_demir yazdı: Merhaba ArkadaşlarKodlar sheetchange içine yazılmalı.
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.
İ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.
RE: Enter Tuşu İle Yön Belirlemek. - feraz - 20/03/2021
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
RE: Enter Tuşu İle Yön Belirlemek. - m_demir - 20/03/2021
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.
RE: Enter Tuşu İle Yön Belirlemek. - feraz - 20/03/2021
(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
RE: Enter Tuşu İle Yön Belirlemek. - m_demir - 20/03/2021
Çok, çok teşekkürler Hocam ellerinize sağlık.
Hocam konuyu taşıyabilirsiniz. Saygılarımla sağlıklı günler diliyorum.