Textbox ile barkod okutma

[bkaraburun16]

Textbox1 yaptığım barkod okumasını excel sayfasına alt alta yazdırmak istiyorum. Aşağıdaki çözümü buldum ama her defasında barkodu 2 kez okutmam gerekiyor. Bu da barkodun enter özelliği açık, commandbutton aktif ederek oluyor. Formları inceledim bir sonuca varamadım. Textbox (change-keydown) içine yazılan hiçbir kodu mantıklı çalıştıramadım. Yardımcı olabilir misiniz.


Private Sub CommandButton1_Click()
ST = Worksheets("DENEME").Cells(65536, 1).End(xlUp).Row + 1
Worksheets("DENEME").Cells(ST, 1) = DENEME.TextBox1
DENEME.TextBox1 = ""
DENEME.TextBox1.SetFocus
End Sub

 

[xman0608]

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    If KeyCode = 13 Then
        Cells(Rows.Count, 1).End(3).Offset(1).Value = CStr(TextBox1.Value)
        TextBox1.Value = ""
    End If
End Sub

 

[bkaraburun16]

Cevabınız için teşekkür ederim.
Tek barkod okuması yapıyor. 2. okumayı yapmıyor. "TextBox1.SetFocus" eklesemde Commandbutton da kalıyor.
Userfomdan Commandbutton kaldırdım tek Textbox kaldı ve istediğim gibi oldu.
Userforma Commandbutton eklemiyeceğim gibi gözüküyor. Bir çözümü yoksa?

 

[Kenantu]

Merhabalar bende sizinle aynı sorunu yaşıyordum ama sorunumu aşağıdaki gibi çözdüm sizde uygulayabilirsiniz.

Biz UserForm üzerine 1 adet TEXTBOX ekleyiniz ve UserFormun kod penceresine aşağıdaki satırları yazınız sorun ortadan kalkıyor.

Private Sub UserForm_Initialize()
TextBox1.SetFocus
End Sub

Private Sub TextBox1_Change()
X = Timer()
Do While X + 0.25 > Timer()
DoEvents
Loop

'Sayfaya kayıt işlemini yapınız
.
.
.
.

TextBox1.SetFocus
TextBox1.SelStart = 0
TextBox1.SelLength = Len(TextBox1.Text)

End Sub