- Katılım
- 12 Kasım 2014
- Mesajlar
- 255
- Excel Vers. ve Dili
- 2013
- Altın Üyelik Bitiş Tarihi
- 15-05-2023
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ı
Ç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ı
Kod:
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