merhaba, 3 adet TextBox ile veri girişi yapmaktayım.
1) TextBox1, Ürün Kodu: Ürün Kodu sadece rakam ve 4 haneli olacak, aşağıdaki kod ile 4 haneyi sağlıyorum ama 4 adet harfide kabul ediyor.Sadece 4 rakam girişi olduğunda kabul etmesini istiyorum.
If TextBox1 = "" Then
MsgBox "Lütfen Ürün Kodu giriniz!", vbCritical
Exit Sub
End If
If UserForm1.TextBox1 <> "" Then
If Len(TextBox1) < 4 Then
MsgBox "Ürün Kodu formatı 'XXXX' şeklinde olmalıdır.", vbExclamation
Exit Sub
Else
TextBox1 = Format(TextBox1, "####")
End If
End If
2) TextBox2, Ürün Adı: Sadece harf girişini aşağıdaki kod ile yapabiliyorum ama en az 3 harf girilecek şekilde düzenlemek istiyorum.
If TextBox1 = "" Then Exit Sub
deg = Mid(TextBox1.Value, Len(TextBox1.Value), 1)
If IsNumeric(deg) = True Then
MsgBox "SADECE HARF GİRİNİZ"
TextBox1 = Mid(TextBox1.Value, 1, Len(TextBox1.Value) - 1)
TextBox1.SetFocus
End If
3) TextBox3, Tarih: aşağıda ki kod ile tarih formatı xx.xx.xxxx şekliden kabul ediyor fakat şöyle bir sorun var 01.01.2018 yerine aa.bb.cccc de yazılsa format uyduğu için kabul ediyor.
If TextBox3 = "" Then
MsgBox "Lütfen Tarih giriniz!", vbCritical
Exit Sub
End If
If UserForm1.TextBox3 <> "" Then
If Len(TextBox3) < 8 Then
MsgBox "Tarih formatı 'gg.aa.yyyy' şeklinde olmalıdır.", vbExclamation
Exit Sub
Else
TextBox3 = Format(TextBox3, "0#"".""##"".""####")
End If
End If
yardımıcı olursanız sevinirim.
İyi çalışmalar.
1) TextBox1, Ürün Kodu: Ürün Kodu sadece rakam ve 4 haneli olacak, aşağıdaki kod ile 4 haneyi sağlıyorum ama 4 adet harfide kabul ediyor.Sadece 4 rakam girişi olduğunda kabul etmesini istiyorum.
If TextBox1 = "" Then
MsgBox "Lütfen Ürün Kodu giriniz!", vbCritical
Exit Sub
End If
If UserForm1.TextBox1 <> "" Then
If Len(TextBox1) < 4 Then
MsgBox "Ürün Kodu formatı 'XXXX' şeklinde olmalıdır.", vbExclamation
Exit Sub
Else
TextBox1 = Format(TextBox1, "####")
End If
End If
2) TextBox2, Ürün Adı: Sadece harf girişini aşağıdaki kod ile yapabiliyorum ama en az 3 harf girilecek şekilde düzenlemek istiyorum.
If TextBox1 = "" Then Exit Sub
deg = Mid(TextBox1.Value, Len(TextBox1.Value), 1)
If IsNumeric(deg) = True Then
MsgBox "SADECE HARF GİRİNİZ"
TextBox1 = Mid(TextBox1.Value, 1, Len(TextBox1.Value) - 1)
TextBox1.SetFocus
End If
3) TextBox3, Tarih: aşağıda ki kod ile tarih formatı xx.xx.xxxx şekliden kabul ediyor fakat şöyle bir sorun var 01.01.2018 yerine aa.bb.cccc de yazılsa format uyduğu için kabul ediyor.
If TextBox3 = "" Then
MsgBox "Lütfen Tarih giriniz!", vbCritical
Exit Sub
End If
If UserForm1.TextBox3 <> "" Then
If Len(TextBox3) < 8 Then
MsgBox "Tarih formatı 'gg.aa.yyyy' şeklinde olmalıdır.", vbExclamation
Exit Sub
Else
TextBox3 = Format(TextBox3, "0#"".""##"".""####")
End If
End If
yardımıcı olursanız sevinirim.
İyi çalışmalar.
Son düzenleme:
