Hücreye sadece Rakam Girilmesi için makro yazabilirmiyiz

[pcerdal]

bir hücreye sadece rakam girilmesini istiyorum yani string bir ifade olmicak. harf girildiğinde bu bölüme sadece rakam girebilirsiniz diye uyarı versn.
sayı virgüllü de olabilir örneğin 15,50 bunu sağlayabilirmiyiz

 

[Necdet]

Merhaba,

Aşağıdaki kodları ilgili sayfanın kod bölümüne kopyalayınız. Örnek sadece A sütunu için geçerlidir siz sınır verebilirsiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Son
If Intersect(Target, [A:A]) Is Nothing Then Exit Sub
If IsNumeric(Target) = False Then
    MsgBox "Sadece Rakam Girişine İzin Var...."
    Target = ""
    Target.Offset(0, 0).Select
End If
Son:
End Sub

 

[uzmanamele]

merhaba
alternatif olsun
veri / doğrulama / izin verilen (ondalık) / en az (-9,99999999999999E+307) / en çok (9,99999999999999E+307)

 

[pcerdal]

sayın uzmanamele ve Necdet Yeşertener çok teşekkür ederim

 

[pcerdal]

A11 için nereyi değiştirmem gerekiyor yani Sadece A11 hücresi için geçerli olsun bu kural. ben istediğim gibi çoğaltıcam

 

[pcerdal]

tamm yaptım bunu diğer hücreler içinde nasıl uyarlayabilirim. yani A1, B12, D3

 

[Necdet]

Merhaba,

Sayın uzmanamele'nin verdiği formülde tarihi de kabul ediyor, bu sizin için sorun değilse sorun değildir

Ama bilmediğim birşeydi bende öğrenmiş oldum. Teşekkürler uzmanamele.

 

[uzmanamele]

merhaba
syn Necdet Yeşertener,
ben sizden okadar çok şey öğrendimki anlatamam...
siz ve diğer uzman arkadaşların sayesinde şimdiki bilgi düzeyime ulaşdım.
asıl ben size çok çok teşekkür ederim.

 

[Necdet]

Karşılıklı öğrenme sürecindeyiz Süleyman Bey. Hiç bir şey bir çırpıda olmuyor.

 

[pcerdal]

sanırım kodda problem var uyarıyı stringte olsa integer de olsa veriyo. başka bir yeri tıklayıp döndüğümde uyarı verip hücreyi siliyor. lütfen kontrol edermisiniz

 

[Necdet]

Ben yukardaki dosyayı yeniledim. Makroyu koymadan dosyayı koymuşum

Hata var derken hangisi için söylediniz?

 

[pcerdal]

tamm yaptım bunu diğer hücreler içinde nasıl uyarlayabilirim. yani A1, B12, D3

amacım tek bir sutun için bunu yapmak değil ben bazı satır ve sutunlar için bunu yapmak istiyorum yani hücreleri direkt olarak nasıl belirleyebilirim

 

[pcerdal]

dediğim şeyi bir türlü düzeltemedim yani istediğim gibi hücre hücre belirleyemiyorum. amacım B2, D3, K5,C9, şeklinde hücreleri belirleyip bu kuralı onlar için koymak. nasıl yapabilirim.

 

[Necdet]

Merhaba,
Sanırım şimdi olay anlaşılmıştır.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Son
If Intersect(Target, [[B][COLOR=red]A1, B2, C3, D4[/COLOR][/B]]) Is Nothing Then Exit Sub
If IsNumeric(Target) = False Then
MsgBox "Sadece Rakam Girişine İzin Var...."
Target = ""
Target.Offset(0, 0).Select
End If
Son:
End Sub

 

[pcerdal]

kusura bakmayın ama maalesef yine hata var. veri yi yazdım ondan sonra mesajı bana verdi ve o mesaja tamm dedikçe yeniden mesaj vermeye başladı. bu olayı verileri girip tüm hücreleri seçip delete yaptıktan sonra veriyor

 

[pcerdal]

K35 ve M35' e uyguladım bunu ama hatayı ben anlatamıyorum galiba isterseniz birde siz bakın örnek ektedir

 

[Necdet]

Merhaba,

Silince dediğinize göre küçük bir ek yaptım koda

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Son
If Intersect(Target, [A1, B2, C3, D4]) Is Nothing Then Exit Sub
[B]If Target = "" Then Exit Sub[/B]
If IsNumeric(Target) = False Then
MsgBox "Sadece Rakam Girişine İzin Var...."
Target = ""
Target.Offset(0, 0).Select
End If
Son:
End Sub

 

[pcerdal]

Sayın Necdet bey yapıyorum ama macro çalışmıyor sizden rica etsem gönderdiğim eke bu macroyu entegre edip çalıştığını teyit edermisiniz benim beceriksizliğimdenmidir nedir ama çalışmıyor. başka bi sayfa açıyorum yeni ondada har giriyorum kabul ediyo başka bir yeri tıklayıp tekrar o hücreye geldiğimde hata veriyor

 

[Ayhan Ercan]

Merhaba sn pcerdal

Kodlarınızı "Worksheet_SelectionChange" olayına değil

"Worksheet_Change" olayına yazarak deneyiniz...

 

[pcerdal]

Sayın Erhan Ercan ve Uğraştırdığım Necdet Yeşertener Burda olsaydınızda elinizi öpseydim teşekkür ederim. evet çalıştı burdan öğrendiğim bilgileri okulda öğrenmedim. tekrar tekrar teşekkür ederim çok sağolun.
saygılarımla.