günün tarihine göre dönem seçme

[lodos63]

arkadaşlar ekte bir örnek dosya hazırladım. bu dosyada form üzerinde bir Combobox var. form çalıştırıldığında comboxda seçili olarak gelmesi gereken değer günün tarihine göre şekillenmelidir. Şekillenmesinde kastım bu tarih sayfa1 üzerindeki B ve C sütunlarındaki hangi tarihler arasında bir değerse A sütunundaki ilgili hücrenin değeri combobox ta seçili değer olarak gelmeli. Anlatılması biraz karışık ama sanırım örnek dosya incelenirse ne olduğu anlaşılacaktır. yardımlarınız için şimdiden teşekkür ederim. Saygılar

 

[Korhan Ayhan]

Merhaba,

Aşağıdaki kodu denermisiniz.

Private Sub UserForm_Initialize()
    ComboBox1.RowSource = "sayfa1!A1:A12"
    For X = 1 To Cells(Rows.Count, 1).End(3).Row
        If Date >= Cells(X, 2) And Date <= Cells(X, 3) Then
            Satir = X - 1
            Exit For
        End If
    Next
    ComboBox1.ListIndex = Satir
End Sub

 

[lodos63]

hocam çok teşekkür ederim elinize aklınıza sağlık...

 

[lodos63]

Değerli hocam şu an verdiğiniz kod yardımıyla Combobox günün tarihinden hareketle seçili dönemi göstermektedir.yapıyı biraz farklılaştırdım ve Calendar nesnesi ekledim bu durumda Calendar da ki değişim ve ona bağlı olarakTextbox daki tarih değerine göre Combobox içerisindeki değeri nasıl ayarlayabiliriz? Örneğin : Calendar nesnesi 2 sene öncesi şeklinde değiştiğimizde seçilen tarihi Textboxa yansıtabiliyorum ama Textboxa yansıyan tarihe bağlı olarak Combobox ta ilgili dönem nasıl yansıtılabilir?.örnek dosya ektedir...Hocam veya ilgilenen arkadaşların çözümlerini bekliyorum...

 

[Korhan Ayhan]

Merhaba,

Kodlarınızı aşağıdaki gibi değiştirip denermisiniz.

Private Sub Calendar1_Click()
    TextBox1.Value = Format(Calendar1, "dd.mm.yyyy")
End Sub
 
Private Sub CommandButton1_Click()
    Unload Me
End Sub
 
Private Sub TextBox1_Change()
    For X = 1 To Cells(Rows.Count, 1).End(3).Row
        If CDate(TextBox1) >= Cells(X, 2) And CDate(TextBox1) <= Cells(X, 3) Then
            Satir = X - 1
            Exit For
        End If
    Next
    ComboBox1.ListIndex = Satir
End Sub
 
Private Sub UserForm_Activate()
    TextBox1.Value = Format(Calendar1, "dd.mm.yyyy")
End Sub
 
Private Sub UserForm_Initialize()
    ComboBox1.RowSource = "sayfa1!A1:A12"
    For X = 1 To Cells(Rows.Count, 1).End(3).Row
        If Date >= Cells(X, 2) And Date <= Cells(X, 3) Then
            Satir = X - 1
            Exit For
        End If
    Next
    ComboBox1.ListIndex = Satir
End Sub

 

[lodos63]

hocam çok çok çok teşekkürler...büyüksünüz...