userformdaki textboxlara sadece sayı girme ve bu textboxların boş geçilmemesi

[olymposss]

arkadaşlar bu forumda olduğum için kendimi çok şanslı sayıyorum hepiniz yardımcı olmaya çalışıyordunuz çok harika bişey. yardımlarınız için şimdiden teşekkürler.

benim istediğim bir userform üzerindeki textboxlara sadece sayı girilmesini sağlamak ve bu taxtboxların boş bırakılmasını engellemek. herşey içi sağolun.elinize sağlık.:yardim:

 

[Qene]

Harf girmemek için;

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    If KeyAscii < 48 Or KeyAscii > 57 Then
        KeyAscii = 0
        Beep
    End If
End Sub

Boş bırakmamak için;

If TextBox1.Text = Empty Then Exit Sub

 

[Selçuk1]

selamlar;

bu konuda benimde bir kaç sorum olacak. bende bazı textboxlara girişin tarih formatında olmasını (gg.aa.yyyy şeklinde) ve aykırı giriş yapıldığında bir msgbox ile uyarı gelmesini ve kullanıcının girişi düzeltmesini sağlamak istiyorum. hatta excelin standart tarih formatı özelliğinde olduğu gibi gg/aa/yy şeklinde yapılan girişi otomatik olarak gg.aa.yyyy formatına çevirmesini sağlayabilirmiyiz??
ayrıca verdiğiniz harf girmeme ile örnekte hatalı giriş olduğunda (örneğin ben sadece "7" yazılmasını istiyorum, "7 gün" şeklinde yazıldığında) uyarı vermesini nasıl sağlayabiliriz? hatalı giriş olduğunda imleç bir sonraki textboxa geçmesin ve aynı textbox üzerinde kalsın istiyorum. bunları nasıl yapabilirim?

teşekkürler,
Saygılar...

 

[Selçuk1]

sayın üstadlarım bu konuda bana yardımcı olabilecek yok mu acaba??

:roll: :roll: :roll:
:yardim: :yardim: :yardim:

 

[Selçuk1]

sayın üstadlarım;

bu konuda yapabilecek bir şey yok mu acaba? bilen varsa en azından bu mümkün değil derse bile çalışmalarımı ona göre yönlendiririm.. yardımlarınız bekliyorum..

saygılar...

 

[Levent Menteşoğlu]

Aşağıdaki kodu textboxa kopyalayın. İmleç textboxtan ayrıldığı anda formatı değiştirecektir.

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox1 = Format(TextBox1, "dd.mm.yyyy")
End Sub

Diğer sorunuzda ise örneğin sadece 7 rakamının girilmesini isterseniz.

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If TextBox1 <> 7 Then Cancel = True
End Sub