Enter'e her bastığımda içinde bulunduğum textbox'un seçilmesi.

[harziyan]

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
TextBox2.Value = Val(TextBox1.Value) + Val(TextBox2.Value)
If KeyAscii = 13 Then TextBox1.SetFocus
End Sub

Veri girişi textbox1'de yapılıyor ama bu işi textbox1'den ayrılmadan yapmak istiyorum. Textbox1'e girdiğim her değeri enter'ledikten sonra yeniden Textbox1'in aktif olmasını istiyorum. Yukarıda bu işi yapmaya çalıştım ama olmadı. Acaba mümkün mü?

 

[harziyan]

Soruyu sorduğum andan beri araştırıyordum ve sonunda çözümü buldum şükür. Kodlar belki diğer arkadaşlara lazım olur.

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Then
TextBox2.TabStop = False
TextBox2.Value = Val(TextBox1.Value) + Val(TextBox2.Value)
TextBox1.SetFocus
TextBox1.Value = ""
End If
End Sub

İyi geceler.

 

[harziyan]

Yahu gene olmadı! Bu kodlarla uğraşmak hem zevkli (çalışınca) hem de sıkıcı (çalışmayınca). 2 tane textbox olunca oluyomuş ama aynı işte görevli textbox sayısı çoğalınca olmadı bi el atsak şu taşı yoldan kaldırsak iyi olur hakikaten

 

[harziyan]

Kendimle gurur duymaya başladım haaaa. Hakketen excel zevkli iş (çalıştı ya)
Bütün textboxların tabstop değerlerini false yaptım, oldu bitti. Son kez iyi geceler.

 

[Skorpiyon]

Tebrikler