Farklı İki Tarih Arasını Süzme!

[akhsahbaz]

Arkadaşlar,
C sütunu ve D sütununa tarih olarak girilmiş değerler bulunmakta. Userformda girdiğim tarih eğer C ve D sütununda girdiğim değerler arasında veya eşit ise userformda listeletmek istiyorum.

Örneğin;
C1=Mart 2007 D1=Eylül 2007
C2=Nisan 2007 D2=Nisan 2007
C3=Mayıs 2007 D3=Kasım 2007 olsun.
Userformda Nisan 2007 diye süzdürdüğümüzde süzülen değer C1-D1 ve C2-D2 arasında veya eşit değer olduğu için Usurformda çıkacak.
Dosya ve Userform ektedir. İlginiz ve yardımlarınız için şimdiden sağolun.

 

[Orion1]

Combobox'a tarihi 1.1.2007 şeklinde giriniz.
Satırlarınızın altında boşluk olmasın.!
Ekli dosyayı inceleyiniz.

 

[akhsahbaz]

Öncelikle Sn.Orion2 ilginiz ve yardımlarınız için tekrar teşekkür ederim. Combobox1 deki kart bölümüne girilen değer süzülmüyor. Birde bunu açılır liste olarak yapabilirmiyiz?

 

[Orion1]

Arkadaşlar,
C sütunu ve D sütununa tarih olarak girilmiş değerler bulunmakta. Userformda girdiğim tarih eğer C ve D sütununda girdiğim değerler arasında veya eşit ise userformda listeletmek istiyorum.

Örneğin;
C1=Mart 2007 D1=Eylül 2007
C2=Nisan 2007 D2=Nisan 2007
C3=Mayıs 2007 D3=Kasım 2007 olsun.
Userformda Nisan 2007 diye süzdürdüğümüzde süzülen değer C1-D1 ve C2-D2 arasında veya eşit değer olduğu için Usurformda çıkacak.
Dosya ve Userform ektedir. İlginiz ve yardımlarınız için şimdiden sağolun.

Yukarıdaki mesajda istediğiniz gerçekleşti aşağıda söylediğiniz gibi bir şık yoktu.

Öncelikle Sn.Orion2 ilginiz ve yardımlarınız için tekrar teşekkür ederim. Combobox1 deki kart bölümüne girilen değer süzülmüyor. Birde bunu açılır liste olarak yapabilirmiyiz?

 

[akhsahbaz]

Hakılsınız. Evet eklemeyi unutmuşum Sn.Orion2 ama Combobox1 o amaçla koymuştum. Hem karta hemde döneme göre süzdürme yapacaktım. Kartında aynı şekilde "tümü" ve aşağıaçılır seçenek şeklinde (herhalde karma kutu deniyor) olabilirmi?

 

[Orion1]

Ekli dosyayı inceleyiniz.

Sub listele()
Dim i As Long, x As Long, toplam As Double, deg As String
If ComboBox3.Value <> "TÜMÜ" And Not IsDate(ComboBox3.Value) Then
    MsgBox "Yanlış tarih girişi.Tarihi " & Format(Date, "dd.mm.yyyy") & " Şeklinde giriniz.!!", vbCritical, "DİKKAT"
    ComboBox3.SetFocus
    Exit Sub
End If
ListBox1.RowSource = ""
If ComboBox1.Value = "TÜMÜ" And ComboBox3.Value = "TÜMÜ" Then
    ListBox1.RowSource = "A3:D" & Cells(65536, "A").End(xlUp).Row
    Label4.Caption = "TOPLAM TAKSİT : " & WorksheetFunction.Sum(Range("B3:B" & Cells(65536, "A").End(xlUp).Row)) & " YTL"
    Exit Sub
End If
ReDim myarr(1 To 4, 1 To 1)
For i = 3 To Cells(65536, "A").End(xlUp).Row
If ComboBox3.Value = "TÜMÜ" Then
    If LCase(Replace(Replace(Cells(i, "A").Value, "I", "ı"), "İ", "i")) _
    Like LCase(Replace(Replace(deg, "I", "ı"), "İ", "i")) Then
        GoSub dizi
    End If
End If

If ComboBox1.Value = "TÜMÜ" Then
    If CLng(CDate(ComboBox3.Value)) >= CLng(CDate(Cells(i, "C").Value)) _
    And CLng(CDate(ComboBox3.Value)) <= CLng(CDate(Cells(i, "D").Value)) Then
        GoSub dizi
    End If
End If

If ComboBox1.Value <> "TÜMÜ" And ComboBox3.Value <> "TÜMÜ" Then
    If LCase(Replace(Replace(Cells(i, "A").Value, "I", "ı"), "İ", "i")) _
    Like LCase(Replace(Replace(deg, "I", "ı"), "İ", "i")) And _
    CLng(CDate(ComboBox3.Value)) >= CLng(CDate(Cells(i, "C").Value)) _
    And CLng(CDate(ComboBox3.Value)) <= CLng(CDate(Cells(i, "D").Value)) Then
        GoSub dizi
    End If
End If
    
Next
ListBox1.Column = myarr
Label4.Caption = "TOPLAM TAKSİT : " & toplam & " YTL"
Erase myarr
Exit Sub
dizi:
    x = x + 1
    ReDim Preserve myarr(1 To 4, 1 To x)
    myarr(1, x) = Cells(i, "A").Value
    myarr(2, x) = Format(Cells(i, "B").Value, "#,##0.00")
    myarr(3, x) = Format(Cells(i, "C").Value, "mmmm.yyyy")
    myarr(4, x) = Format(Cells(i, "D").Value, "mmmm.yyyy")
    toplam = toplam + Cells(i, "B").Value
    Return
End Sub

 

[akhsahbaz]

Sn.Orion2,
Yardımınız için tekrar teşekkür ederim. Fakat K.Kartlarından herhangi birisini seçip süzdürmeye kalktığımda süzmüyor. Hata var sanırım.