DTPicker ile ListIndex

[sdegirmenci]

Merhaba;
Ekteki dosyam üzerinde DTPicker den tarih seçtiğimde seçilen tarihin karşılığındaki yemekleri ComboBoxlara yazması mümkünmü. Bu konuda yardımcı olabilirseniiz sevinirim.Saygılarımla

 

[Levent Menteşoğlu]

dtpicker nesnesine aşağıdaki kodu yazarak deneyin.

Private Sub DTPicker1_Change()
Set s1 = Sheets("Aylık Yemek Listesi")
say = WorksheetFunction.CountIf(s1.[d:d], DTPicker1)
If say > 0 Then
sat = WorksheetFunction.Match(CDbl(DTPicker1), s1.[d:d], 0)
For a = 1 To 6
Controls("combobox" & a) = s1.Cells(sat, a + 4)
Next
Else
For a = 1 To 6
Controls("combobox" & a) = ""
Next
End If
End Sub

 

[sdegirmenci]

DTPicker ListIndex

Çok kıymetli Levent Hocam;
İlginize çok teşekkür ederim, Kodları hemen dosyama uyguladım. Tekrar teşekkür ediyor hayırlı geceler diliyorum.