Çözüldü Tarih Kriterine Göre Textbox Girişi Engelleme

[sirkülasyon]

Combobox7' de 5510 Öncesi ve 5510 Sonrası diye seçenek var
5510 öncesi seçilirse Textbox3' de tarih kısıtlaması olmayacak
5510 sonrası seçilirse Textbox3' de tarih 15.10.2008 tarihi dahil ve sonrası olacak. öncesi bir tarih girildiği zaman kabul etmeyecek ve "5510 sonrası seçildi" diye uyarı verecek.
Rica etsem böyle bir uygulama için makro kodunda yardımcı olabilir misiniz?

 

[Orion1]

iyide 5510 olursa ne olacak?

 

[sirkülasyon]

Evren Abi
5510 olursa demekten kastınız
5510 öncesi ise son tarih 14.10.2008' e kadar olur
5510 sonrası ise ilk tarih 15.10.2008 olur

 

[Orion1]

5510 un öncesini ve sonrası için kriterleri yazmışsınız.
Ama 5510 olursa ne olacak onu yazmamışsınız!!

 

[sirkülasyon]

Evren Abi
5510 olursa (5510 sonrası demek) textboxa 15.10.2008 tarihinden önceki tarihlerin (15.10.2008 hariç) hiçbirine giriş izni vermeyecek.
5434 olursa (5510 öncesi demek) textboxa 15.10.2008 tarihinden sonraki tarihlerin (15.10.2008 dahil) hiçbirine giriş izni vermeyecek.

Ustam ya öncesi var ya da sonrası var.
Anlayamadı isem Affına sığınıyorum.

 

[Orion1]

Dosyanız Linktedir.

DOSYAYI INDIR

Private Sub TextBox3_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Not IsDate(TextBox3.Value) Then
    MsgBox "Lütfen Tarih biçimini doğru giriniz.", vbCritical, "UYARI"
    Cancel = True
    Exit Sub
End If
If UCase(Replace(Replace(ComboBox7.Value, "i", "İ"), "ı", "I")) = "5510 SONRASI" Then
    If CDate(TextBox3.Value) < DateValue("15.10.2008") Then
        MsgBox "5510 Sonrası seçildi.", vbCritical, "UYARI"
        Cancel = True
        Exit Sub
    End If
End If
End Sub

Private Sub UserForm_Click()

End Sub

Private Sub UserForm_Initialize()
ComboBox7.AddItem "5510 Öncesi"
ComboBox7.AddItem "5510 Sonrası"
End Sub

 

[sirkülasyon]

Evren Abi
teşekkür ederim. Sağ olasın. Hakkını Helal et

 

[Orion1]

Evren Abi
teşekkür ederim. Sağ olasın. Hakkını Helal et

Rica ederim.
İyi çalışmalar.

 

[Orion1]

Birde şu örnek dosyayı siz hazırlasanız ne güzel olacak.
Userformlarla combobox ile combobox yerleştirme ve textbox yertleştirme işlemlerini siz yapsanız.
Bizede sadece kod yazma işi kalsa.İşte bunun için soru soranlardan örnek dosya istiyorsunuz.
Dosyanızı değilde onun benzeri olacak şekilde bir dosya hazırlayıp yollasanız ne kadar güzel olacak.!