Veri biçimine göre hata kontrolu

[snkonyali]

Merhaba

Excel’de makroyla veri girişi yapacağım.
Girilen veri rakam dışında bir şey olursa kullanıcıyı uyararak tekrar rakam istesin. (Rakam girilinceye kadar başa dönsün.)

Sub hesaplama()

z = InputBox("Zam oranını giriniz ! Ondalık kısmı varsa virgülle ayırınız !")

Cells(1, 23) = (z + 100) / 100

End Sub


Kullanıcı yanlışlıkla rakam yerine enter, harf vb basınca başa dönsün istiyorum

[Hüseyin]

Merhaba snkonyali,
aşağıdaki kodu bir deneyin;

Sub hesaplama()
zamoranı:
z = InputBox("Zam oranını giriniz ! Ondalık kısmı varsa virgülle ayırınız !")
If Not IsNumeric(z) Then GoTo zamoranı
Cells(1, 23) = (z + 100) / 100
End Sub

[snkonyali]

Çok teşekkürler.
Kurduğunuz düzen için kutlarım.