textBox da karakter sayısı

[pointır]

sayın uzmanlarım yada bilen arkadaşlar textbox da yazılacak olan karakter sayısını sınırlayabilirmiyiz örneğin T.C. kimlik no sunda 11 krakter var bunu onbir harfle sınırlayabilirmiyiz fazla yazılınca uyarı versin

formda baya aradım bulamadım şimdiden tşk

 

[Mahmut Bayram]

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
'Girilen değer numerik değilse Textbox tan çıkış engelleniyor (boş geçilemez)
If IsNumeric(TextBox1.Value) Then
Cancel = False
Else
Cancel = True
MsgBox ("Sadece sayı girebilirsiniz!") 
End If
End Sub

Private Sub UserForm_Initialize()
TextBox1.MaxLength = 11
End Sub

 

[pointır]

mahmut hocam ilginiz için tşk ederim sağolun

 

[Mahmut Bayram]

Rica ederim.

 

[cem yılmaz]

peki minimum değeride belirtmek istersek.mesela maksimum 7 karakter minimum 5 karakter yazsın. bu yapılabilirmi hocam. Ben şöyle bir mantıktan gittim eğer maximum için

Private Sub UserForm_Initialize()
TextBox1.MaxLength = 11
End Sub

ise minimum için

Private Sub UserForm_Initialize()
TextBox1.MaxLength = 7
TextBox1.MinLength = 5
End Sub

yaptım çalışmadı.yardımcı olabilirmisiniz?

 

[shoca]

Minumum karakter sorununu aşağıdaki kodla çözebilirsiniz...
Kod daki 10 sayısını gereksiniminize göre değiştiriniz...

If TextBox1.TextLength < 5 Then
MsgBox "En az 5 Haneli Bir Sayı Girmeniz Gereklidir.", vbInformation, " Girilen Veri Uzunluğu Yetersiz..."
Exit Sub
End If

Eğer ki sabit hane girilmesi gerekiyor ise ;

If TextBox1.TextLength <> 5 Then
MsgBox "Sadece 5 Haneli Bir Sayı Girebilirsiniz", vbInformation, " Girilen Veri Uzunluğu Yanlış..."
Exit Sub
End If

5 hane nin altınıda üstünüde kabul etmez böylece...

 

[rabbace]

Merhaba,

Sipariş numarası girilen bir textbox var, buraya 15 karakterli giriş yapılabilmeli sadece, bunun dışında ise uyarı vermeli. Aşağıdaki gibi koldar yazdım fakat 15 karakterden az olsa da giriş yapılabiliyor. Hata nerede yardımcı olabilir misiniz?

Set data_2 = Sheets("Talep Geçmişi")
    Set kolon_2 = data_2.Range("A:A")
    Set awf_2 = Application.WorksheetFunction
    
    sip_no = UserForm2.TextBox1.Text
    sip_no_uzunluk = Len(sip_no)
    per_adi = UserForm2.TextBox2.Text
    talep_no = UserForm1.ComboBox5.Value
    
        If sip_no_uzunluk < 15 And per_adi = "" Then
        
            MsgBox ("Talep no 15 karakter olmalıdır ve isim alanı boş olmamalıdır.")
            
        Else
            
            tlp_no_say_2 = awf_2.CountIf(kolon_2, talep_no)
            Set bul_2 = data_2.Range("A:A").Find(talep_no)
            y = awf_2.Match(bul_2, kolon_2, 0) - 1
            
                For a = 1 To tlp_no_say_2
                
                    data_2.Range("T" & a + y) = "Sipariş Verildi"
                    data_2.Range("W" & a + y) = Date
                    data_2.Range("U" & a + y) = sip_no
                    data_2.Range("V" & a + y) = per_adi
                
                Next a
                    
        End If
    
    Unload Me