Tarihleri Liste Kutusu İçerisinde Guruplandırmak

[Taruz]

Merhaba...

Örneğimdeki ilk sayfada satış girişleri var ve ben bunları rapor sayfasındaki tarih kısmında, liste kutusu içinde büyükten küçüğe doğru gruplandırmak istiyorum...

Bu mümkün olursa listeden seçtiğim tarihin satış toplamlarına daha çabuk ulaşacağım...

Bunu nasıl yapabilirim?

 

[veyselemre]

Ekteki örneği inceleyin.

Private Sub ComboBox1_Change()
    [b8] = ComboBox1.Value
End Sub
Private Sub Worksheet_Activate()
    ComboBox1.Clear
    fmt = "dd.mm.yyyy"
    a = Sheets("Satış Girişleri").Range("b5:b" & Sheets("Satış Girişleri").[b65536].End(3).Row)
    Set dic = CreateObject("scripting.dictionary")
    dic.CompareMode = TextCompare
    For i = 1 To UBound(a, 1)
        ekle = Format(CDate(a(i, 1)), fmt)
        If Not dic.Exists(ekle) Then
            dic.Add ekle, 1
        End If
    Next i
    lst = dic.keys
    Set dic = Nothing
    For v = 0 To UBound(lst) - 1
        For vv = v + 1 To UBound(lst)
            If CDate(lst(v)) < CDate(lst(vv)) Then
                ara = lst(v)
                lst(v) = Format(CDate(lst(vv)), fmt)
                lst(vv) = Format(CDate(ara), fmt)
            End If
        Next vv
    Next v
    Sheets("Rapor").ComboBox1.List = lst
    Erase lst
    ComboBox1.Value = [b8]
End Sub

 

[Taruz]

Çok teşekkür ederim veyselemre...

İstediğim gibi hazırlamışsınız. Elinize sağlık, sağolun..