Userform TextBox enter sonrası tekrar TextBox.setfocus

[tamer42]

Merhaba,
Aşağıdaki kodda tekrar textbox' a focus' lansın istiyorum ama;
Commandbutton' a focus' lanıyor.
Basit bir konu ama bu durumu Nasıl çözebiliriz?

desteğiniz için teşekkürler,
iyi çalışmalar.

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    If KeyCode = 13 Then
        MsgBox "Hello"
    End If
    TextBox1.SetFocus
End Sub

 

[Haluk]

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    If KeyCode = 13 Then
        Me.Hide
        MsgBox "Hello"
        TextBox1.SetFocus
        Me.Show
    End If
End Sub

.

 

[tamer42]

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    If KeyCode = 13 Then
        Me.Hide
        MsgBox "Hello"
        TextBox1.SetFocus
        Me.Show
    End If
End Sub

.

Haluk Hocam okutulan barkod metninin içeriğinde "Tab" karakterleri de mevcut, geldiği anda bu karakterleri nasıl silebiliriz?
Word dosyasına okutulunca aşağıdaki gibi bir bir sonuç geliyor.
TextBox içine okutulurken Buradaki "tab" ve "enter" karaktelerini silerek düzgün hale getirmeye çalışıyorum
teşekkürler,
iyi akşamlar.

 

[mercanx]

KeyCode = vbKeyPageDown
komutunu kullanabilirisin.

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Then
MsgBox "Hello"
End If
KeyCode = vbKeyPageDown ' bu komuttan sonra şaşırtmalısın. başka bir text' e gidip geri istediğin yere gelmek gibi.

textbox2.setfocus
TextBox1.SetFocus
End Sub