hücre metin karakter

[Barons]

merhaba
Aşağıdaki kod ile şifre sorduruyorum.eğer "ee1" hücresinde sadece sayı varsa şifreyi kabul etmiyor ama bir tane harf bile olsa kabul ediyor.örnek:ee1 hücresine sadece sayı girersem 1,5,77,888, ...v.s gibi kabul etmiyor ama başına yada ortasına a harfi koyarsam sorun yok.
Kod aşağıdadır.

cevap = InputBox("Lütfen şifrenizi giriniz?", "", "Buraya şifrenizi yazınız")
If cevap = Worksheets("Bil").Range("ee1") Then
Worksheets("Bil").Visible = True
Worksheets("Bil").Select
Range("a1").Select
Else
MsgBox "Yetkisiz Giriş denemesi...", vbInformation, ""
End

Yardım rica ediyorum.

 

[Ayhan Ercan]

Merhaba

Inputboxdan çıkan sonuç "string" değer aldığından dolayı sadece sayısal girişli veriden sonuç alamıyorsunuz.

Inputboxdan çıkan sonucu "string" dışında sayısal bir değere atamanız durumunda bu problemle karşılaşmayacaksınızdır.

Kodlarınızın başına;

Dim cevap as Integer

yazıp denermisiniz...

Not: Integer tipi değişkenler -32768 ile +32767 arasında bir değer alabilir. Dikkate alınız.
Değişkenler ile ilgili daha fazla bilgi için aşağıdaki linke göz atabilirsiniz...

http://www.excel.web.tr/f60/de-iskenler-variables-t4299.html