İlave bazı seyler var bunlarıda yazarsanız daha sağlıklı çalışır
kodların yeni hali:
Private Sub CommandButton1_Click()
If TextBox1.Value > 400 Or TextBox1.Value < 10 Then
MsgBox ("Girdiğiniz Değer Ã?lçek Değerinde Azdır/Fazladır")
TextBox1.Value = ""
TextBox1.SetFocus
End If
Exit Sub
ActiveWindow.Zoom = TextBox1.Value
TextBox1.Value = ""
TextBox1.SetFocus
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.