TEXTBOX VERİ GİRİŞ SINIRI HK.

[bkk]

Merhabalar,

Ekte bulunan Excel çalışma kitabının aşağıdaki kuralları sağlamasını istiyorum yardımcı olabilir misiniz;
-Textbox1 sarı ile işaretli satırda bulunan değerlerin girişini kabul etmeli, aynı zamanda metinsel karakter kabul etmemeli (nokta ve virgül hariç),
-Textbox2 sarı ile işaretli sütunda bulunan değerlerin girişini kabul etmeli, aynı zamanda metinsel karakter kabul etmemeli (nokta ve virgül hariç),

Teşekkür ederim,

 

[Ömer]

Merhaba,

Sadece sarı alanlardaki değerlere izin vereceği için ekstradan sayı kontrolü yaptırmadım.

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)

    Dim c As Range
    
    Set c = [A1:A20].Find(TextBox1, , xlValues, xlWhole)
    If c Is Nothing Then
        MsgBox "Sadece A1:A20 aralığındaki verileri girebilirsiniz."
        TextBox1 = ""
        Exit Sub
    End If
    
End Sub

Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)

    Dim c As Range
    
    Set c = [B1:J1].Find(TextBox2, , xlValues, xlWhole)
    If c Is Nothing Then
        MsgBox "Sadece B1:J1 aralığındaki verileri girebilirsiniz."
        TextBox2 = ""
        Exit Sub
    End If
    
End Sub

 

[Necdet]

Merhaba,

Ömer bey yanıtlamış.
Sadece rakam girişine örnek ise :

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)

    If Not IsNumeric(TextBox1.Value) Then
        MsgBox "Sadece Rakamlara İzin Verilir...."
        Cancel = True
    End If
    
End Sub

 

[Muzaffer Ali]

Bu da farklı bir alternatif olsun.

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    txt_Sinir "A1:A20", textbox1
End Sub

Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    txt_Sinir "B1:J1", textbox2
End Sub

Sub txt_Sinir(Alan As String, txt As textbox)
    Dim c As Range
    Set c = Range(Alan).Find(txt, , xlValues, xlWhole)
    If c Is Nothing Then
        MsgBox "Sadece " & Alan & "aralığındaki verileri girebilirsiniz."
        txt = ""
    End If
End Sub

 

[bkk]

Cevaplarınız için ve vakit ayırdığınız için ayrı ayrı teşekkür ediyorum,
Her örneği inceleyip uygun olanı kullanacağım
-Bir ufak sorum şu alacak; nokta ve virgül toleransını nasıl sağlayabilirim?

 

[Muzaffer Ali]

Hem sadece belirttiğiniz alandaki rakamlar olsun ve hem de virgül kullanılsın biraz mantıksız olmuyor mu?
Eğer alandaki rakamlarda virgül varsa zaten kullanabilirsiniz, yoksa kullanamazsınız. Benim ve sayın Ömer'in kodları bu mantıkladır.

 

[bkk]

Hem sadece belirttiğiniz alandaki rakamlar olsun ve hem de virgül kullanılsın biraz mantıksız olmuyor mu?
Eğer alandaki rakamlarda virgül varsa zaten kullanabilirsiniz, yoksa kullanamazsınız. Benim ve sayın Ömer'in kodları bu mantıkladır.

Profesyonel bakış açısında haklısınız acemiliğime verin , aslında amacım yeri gelmişken o kodlamayı da görebilmek, izninizle sorumu şu şekilde değiştirebilir miyim;" Sadece sayısal veri girdiğim textboxlarda ve nokta virgül toleransını nasıl sağlayabilirim?"

 

[Necdet]

Merhaba,

toleleranstan ne amaçladığınızı anlamadım ama rakamı nokta ya da virgüllü girişten kastediyorsanız benim verdiğim örnekte zaten buna izin veriyor, yeter ki nokta ve virgül yerinde olsun

 

[Levent Menteşoğlu]

Alternatif olarak, yazarken kontrol isterseniz aşağıdaki gibi deneyebilirsiniz.

Private Sub TextBox1_Change()
If IsNumeric(TextBox1) = False Then CreateObject("WScript.Shell").SendKeys "{bs}", True
End Sub

Private Sub TextBox2_Change()
If IsNumeric(TextBox2) = False Then CreateObject("WScript.Shell").SendKeys "{bs}", True
End Sub

 

[Korhan Ayhan]

Alternatif;

https://www.excel.web.tr/threads/textboxa-giriste-karakter-kontrolue-rakam-harf.15837/

 

[bkk]

Elinize, Emeğinize sağlık , Teşekkürler.