takvim ve listbox

[muratfix]

Değerli arkadaşlar, örnekte olduğu gibi listboxda görünen değerlerden aynı tarihdeki değerlerin, Calender değeri değiştiğinde ilgili tarihe ait verilerin listboxda listelenmesini nasıl yapabiliriz..

 

[muratfix]

yokmu yardım edecek...

 

[Orion1]

Sayfa3 ü silmeyin.
Süzlen verileri oraya atıp listboxa oradan alıyorum.
Dosyanız ektedir.

Private Sub listele()
Dim sh As Worksheet, sat1 As Long, sh2 As Worksheet
ListBox1.RowSource = ""
Application.ScreenUpdating = False
Set sh = Sheets("Sayfa1")
Set sh2 = Sheets("Sayfa3")
sh2.Range("A1:D" & Rows.Count).ClearContents
sat = sh.Cells(Rows.Count, "A").End(xlUp).Row
sh.Range("A1").AutoFilter
sh.Range("A1").AutoFilter field:=2, Criteria1:=Calendar1.Value
If ComboBox1.Value <> "" Then
    sh.Range("A1").AutoFilter field:=3, Criteria1:=ComboBox1.Value
End If
sh.Range("A1").CurrentRegion.Copy sh2.Range("A1")
sat2 = sh2.Cells(Rows.Count, "A").End(xlUp).Row
If sat2 > 1 Then
    ListBox1.RowSource = sh2.Name & ("!A2:D" & sat2)
End If
End Sub

 

[muratfix]

teşekkür ederim ellerinize sağlık..