• Merhaba Ziyaretçi,
    Microsoft 365 Uygulamaları ile ilgili yeni haberler, dikkat çekici konular, ilgi ile takip edeceğiniz yazılar için.

    Abone Olun
  • ESTE - Microsoft Office Eğitimleri

    Yeni yıl Microsoft Office Eğitim planlarınız için bütçenizi oluşturmadan önce ESTE eğitim kalitesi ile tanışın. 🙌
    Kullanıcıların ihtiyacı olan yazılı materyal, dosya ve video kaynağı desteğimiz ile tüm ofis çalışanlarının iş süreçlerini rahatlatacak eğitimler planlayın. 🎯
    Microsoft Office eğitimlerimiz hakkında detaylı bilgi için bize ulaşın.

    👉 Microsoft Office Eğitim Talebi

Çözüldü TextBox içindeki sayıyı 1900 ve 2019 sayıları arasında sınırlandırmak

Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...

sudeealan

Yeni Üye
Katılım
18 May 2020
Mesajlar
2
En iyi yanıt
0
Puanları
1
Yaş
23
Konum
İstanbul
Ad Soyad
Sude Alan
Merhaba Excel Userform da TextBox a sayı giriyorum. Fakat girdiğim bu sayıları 1900 ve 2019 arasında olmak üzere sınırlandırmam gerek. 1900 den küçük ve 2019 dan büyük sayı girersem MsgBox da hata, tekrar deneyiniz yazması gerekiyor. Bu aralıkta sayı girersem de hata vermeden veriyi girmesi gerekiyor. Nasıl yapabileceğimi bilen var mı?
 

Murat OSMA

Yönetici
Site Yöneticisi
Katılım
25 May 2018
Mesajlar
1,504
En iyi yanıt
13
Puanları
113
Konum
İstanbul
Web sitesi
excelarsivi.com
Ad Soyad
Murat OSMA
Office Vers.
Office 365 TR+EN
Merhabalar,
TextBox'a bu kodu yazabilirsiniz.
PHP:
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    Select Case TextBox1.Value
        Case 1900 To 2019
        Case Else
        TextBox1.Value = ""
        MsgBox "Tekrar deneyiniz.", vbCritical, "Hata!"
    End Select
End Sub
 

sudeealan

Yeni Üye
Katılım
18 May 2020
Mesajlar
2
En iyi yanıt
0
Puanları
1
Yaş
23
Konum
İstanbul
Ad Soyad
Sude Alan
Merhabalar,
TextBox'a bu kodu yazabilirsiniz.
PHP:
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    Select Case TextBox1.Value
        Case 1900 To 2019
        Case Else
        TextBox1.Value = ""
        MsgBox "Tekrar deneyiniz.", vbCritical, "Hata!"
    End Select
End Sub
Çok teşekkürler :)
 
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Üst Alt