TextBox1 veri girişi sonrası Enter OLAYI

[bistrobellman]

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii = 13 Then
Call CommandButton5_Click
End If
End Sub

TextBox1e veri girilince enter a basınca CommandButton5 makrosunun çalışmasını istiyorum: kodlar çalışmadı neden acaba?

 

[htsumer]

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
CommandButton5_Click
End Sub
Þeklinde girmeniz gerek.

 

[htsumer]

....

 

[Haluk]

Veya, şöyle deneyin ...

[vb:1:35b81792ef]Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Then
Call CommandButton5_Click
End If
End Sub
[/vb:1:35b81792ef]

 

[bistrobellman]

teşekkürleer