[Yardım]  Sayfada Textboxlar Arası Tab Tuşu İle Geçiş Yapma Yardımı

VBA Makrolar ile ilgili sormak istedikleriniz, yapmak istedikleriniz hakkında yardım alabileceğiniz bölümdür.

Sayfada Textboxlar Arası Tab Tuşu İle Geçiş Yapma Yardımı

İleti#1)  OMERULLAH » 11 Haz 2018 18:34

Sayın Uzman arkadaşlar,

Ekteki çalışma kitabının bir sayfada iki adet Textbox ile veri süzme işlemi yapıyorum. Bu çalışmayı daha işlevsel hale getirmek istiyorum. Sayfadaki textbox1 den textbox2'e Tab tuşu ile geçmek, Textbox2 deki kritere göre süzülen verilerin D sütunundaki ilk hücresine Tab tuşu ile gelmek, yine Tab tuşuna basınca textbox1'e dönmek istiyorum.
Siz uzman arkadaşların çok değerli yardımlarını rica ediyorum.

Saygılarımla,
Ömer Ali ÜZÜMCÜ

https://www.dosyaupload.com/mimY
http://s3.dosya.tc/server16/hsoda2/OMERULLAH_ORNEK.rar.html
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
OMERULLAH
Siteye Alışmış
 
Adı Soyadı:ÖMER ÜZÜMCÜ
Kayıt: 06 Oca 2010 13:37
Konum: ANTALYA
Meslek: TURİZMCİ
Yaş: 49
İleti: 101
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ANTALYA / MANAVGAT

Cevap: Sayfada Textboxlar Arası Tab Tuşu İle Geçiş Yapma Yar

İleti#2)  işsiz123 » 12 Haz 2018 00:31

Aşağıdaki kodu deneyiniz. d2 hücresinden textbox'a geri dönüş yapamadım.
Kod: Tümünü seç
Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = vbKeyTab Then
Sayfa1.TextBox2.Activate
End If
End Sub

Private Sub TextBox2_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = vbKeyTab Then
Range("D2").Select
End If
End Sub

Kullanıcı avatarı
işsiz123
Siteye Alışmış
 
Adı Soyadı:Mehmet Emin ALKAN
Kayıt: 16 Kas 2016 17:45
Meslek: YAPI DENETİM
Yaş: 24
İleti: 310
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Mardin/Midyat

Cevap: Cevap: Sayfada Textboxlar Arası Tab Tuşu İle Geçiş Ya

İleti#3)  muhammedyuksel » 12 Haz 2018 20:25

Merhaba Ömer bey, Mehmet beyin paylaştığı kodu bu şekilde değiştirirseniz D2 hücresini seçtikten sonra textbox1'i seçiyor güzel bir görünüm olmuyor ama işe yarıyor. :)
Kod: Tümünü seç
Private Sub TextBox2_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = vbKeyTab Then
Range("D2").Select
Sayfa1.TextBox1.Activate
End If
End Sub
Kullanıcı avatarı
muhammedyuksel
 
Kayıt: 04 Haz 2018 22:02
Meslek: Memur
Yaş: 25
İleti: 5
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Yozgat


Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: Google [Bot] ve 5 misafir

Bumerang - Yazarkafe