[ÇÖZÜLDÜ] textbox keydown

[zulfuernek]

Private Sub TextBox4_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If Not ListBox1.ListCount = ListBox1.ListIndex + 1 And ListBox1.ListCount > 0 And KeyCode = 13 Then
ListBox1.ListIndex = ListBox1.ListIndex + 1
TextBox4 = ""
If KeyCode = 13 Then TextBox4.SetFocus
End If
txtSec = True

End Sub


yukarıdaki kodda textboxa değer girince listboxdaki sıradki ismi seçiyor ve daha sonrada textbox 4 ün içerisine girdiğim değeri siliyor.

ancak ben enter tuşuna basınca tekrar textbox 4 ün içerisine imlecin gelmesini istiyorum koddaki kırmızı bölümde nasıl değişiklik yapmam gerekir

 

[zulfuernek]

ÇÖZÜLDÜ: frame çerçevesi içerisine alarak aşağıdaki kodu uygulayınca düzeldi. sayın ORİON hocamın daha önce vermiş olduğu bir yöntem. emeğine sağlık.

Private Sub Frame1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Cancel = txtSec
txtSec = False
End Sub

http://www.excel.web.tr/f48/textbox-enter-tu-u-t171216.html