Tarih aralığına göre işaretleme

[okankoc25]

Örnek dosyada göreceğiniz üzere hazırladığım userformda 4 dönem var.Textbox9 a girilen değere(tarihe) göre seçenek düğmesinin işaretlemesini istiyorum.Şimdiden arkadaşlara çok teşekkür ederim.

 

[okankoc25]

Bir fikrin olan yok mu?en azında bunun mümkün olup olamayacağını söylerseniz boşuna uğraşmam...

 

[Orion1]

Dosyanız ektedir.

Private Sub TextBox9_Change()
On Error Resume Next
If CDate(TextBox9.Text) >= CDate(TextBox1.Text) And CDate(TextBox9.Text) _
        <= CDate(TextBox2.Text) Then
    OptionButton1.Value = True
ElseIf CDate(TextBox9.Text) >= CDate(TextBox4.Text) And CDate(TextBox9.Text) _
        <= CDate(TextBox3.Text) Then
    OptionButton2.Value = True
ElseIf CDate(TextBox9.Text) >= CDate(TextBox6.Text) And CDate(TextBox9.Text) _
        <= CDate(TextBox5.Text) Then
    OptionButton3.Value = True
ElseIf CDate(TextBox9.Text) >= CDate(TextBox8.Text) And CDate(TextBox9.Text) _
        <= CDate(TextBox7.Text) Then
    OptionButton4.Value = True
End If
End Sub

 

[okankoc25]

tşk ederim.eline koluna sağlık süper olmuş....

 

[okankoc25]

Kusura bakma bir şey daha isteyeceğim bu kodu tarih olarak yazabilir misin?Çünkü o 4 dönem değişebilir.Mesela 01.001.2012-15.02.2012 gibi bir tarih olabilir.

 

[Orion1]

Kusura bakma bir şey daha isteyeceğim bu kodu tarih olarak yazabilir misin?Çünkü o 4 dönem değişebilir.Mesela 01.001.2012-15.02.2012 gibi bir tarih olabilir.

Dosyayı güncelledim.3 nolu mesajdan indirebilirisiniz.

 

[okankoc25]

Valla arkadaşım ne desem bilmiyorum.Allah razı olsun...

 

[Orion1]

Valla arkadaşım ne desem bilmiyorum.Allah razı olsun...

Bir yerde hata vardı.
Onu düzelttim.Tekrar 3 nolu mesajdaki dosyayı indiriniz.