Excel Hücresine Nümerik Giriş Yapılamasın

[orgerin]

Merhabalar,

Excel sayfasındaki tanımlanan hücrelere 0,1,2,3,4..... gibi doğal sayılar dışında hiçbir veri girişi yapılmasını istemiyorum. (negatif sayılar ve nümerik karakterlerin girişi yapılamasın) Yardımcı olabilirseniz sevinirim.

İyi çalışmalar.

 

[xxcell]

Private Sub Worksheet_Change(ByVal Target As Range)
If Not IsNumeric(Target.Value) Then Target = ""
End Sub

Bu kod ilgili çalışma sayfasında girdiğiniz hücre numeric değilse "" yapar

Alternatif olarak veri doğrulama ile yapabilirsiniz

ekli dosyada iki yöntemde mevcut.

 

[emrexcel123]

sn xxcell üstadım burada değer numerik değilse durduruyor yanlış bilmiyorsam
Private Sub Worksheet_Change(ByVal Target As Range)
If Not IsNumeric(Target.Value) Then Target = ""
End Sub...

 

[orgerin]

Teşekkür ederim

 

[xxcell]

sn xxcell üstadım burada değer numerik değilse durduruyor yanlış bilmiyorsam
Private Sub Worksheet_Change(ByVal Target As Range)
If Not IsNumeric(Target.Value) Then Target = ""
End Sub...

:mrgreen: Çok haklısınız, ama Sn. oregin 'in isteğini dikkatli okursanız Numerik ifadesini alfanumerik anlamında kullanmak istemiş. Yani Benim Girişlerim sayısal olsun, sayısal olmayan değerler girilmesin demiş. Ben cevabı doğru verdim soruda dil sürçmesi var :icelim:

 

[Levent Menteşoğlu]

Bu işlem için veri doğrulamayıda kullanabilirsiniz.

 

[emrexcel123]

sn xxcell hocam amacım sizin yanlışınızı bulmak değil yanlış anlamayın sadece olaya vakıf olabilmek için görüş bildirdim yanlış anlaşılma olmasın ayrıca sn leventm hocamızın da dediği gibi diğer bir alternatif olarak veri doğrulama da kullanılabilir...

 

[xxcell]

Bu işlem için veri doğrulamayıda kullanabilirsiniz.

Alternatif olarak veri doğrulama ile yapabilirsiniz.
ekli dosyada iki yöntemde mevcut.

Yukarıda verdiğim örneğin sayfa2' sinde veri doğrulama alternatifi de mevcuttur.