TextBox Veri Girişi

[bebar]

Merhaba,
Çalışma sayfamda bir TextBox var ve buna bağlı bir makro var, hergirdiğim karakterden sonra makro çalışııyor. bunun önüne geçemedim.
yani ben TextBox'a veri girdikten sonra enter'a basıca makro çalışsın istiyorum.
ayrıca textbox'a gididiğim veriyi sayı formatına nasıl çevirebilirim.

konu ile alakalı

Private Sub TextBox1_Change()
Dim s1 As Worksheet
Dim s2 As Worksheet
Dim s3 As Worksheet
Dim key As Integer
Dim wf As WorksheetFunction
Set s1 = Sheets("Barkod")
Set s2 = Sheets("Liste")
Set s3 = Sheets("Veri")
Set wf = Application.WorksheetFunction

key = CDbl(TextBox1.Text)
say = Len(key)

     If say = 13 Then

            s1.Range("A20") = key
 
     End If

End Sub

 

[ÖmerFaruk]

Exit olayına yazabilirsiniz.

 

[bebar]

denedim fakat olmadı hocam

 

[ÖmerFaruk]

Kod içinde 2 not ekledim. Okuyun lütfen
Yazdığınız kodun bazı satırlarına anlam verememiş olsam da sorunuza ait çözümü gösterdim. Diğer satırlara dokunmadım.

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Dim s1 As Worksheet
Dim s2 As Worksheet
Dim s3 As Worksheet
Dim key As Double ' dikkat hem CDBL deyip hem de integer seçemezsiniz.
Dim wf As WorksheetFunction

    If KeyCode <> 13 Then Exit Sub ' Entera basılmazsa işlem yapmasın
    Set s1 = Sheets("Barkod")
    Set s2 = Sheets("Liste")
    Set s3 = Sheets("Veri")
    Set wf = Application.WorksheetFunction
  
    key = CDbl(TextBox1 * 1)
    say = Len(key)
    If say > 1 Then
        s1.Range("A20") = key
    End If
End Sub

 

[bebar]

hocam çok teşekkür ederim büyük faydası oldu