İKİ TARİH ARASI ARAMA

[medfad]

ÝKÝ TARÝH ARASI ARAMA

Merhaba
ekteki dosyada iki tarih arası arama sekmesinde kredi kullanma ve ödeme tarihlerine göre (yani mesela 26.01.2004 tarihi ile 31.08.2004 tarihleri arasında kullanılmış olup 31.03.2004 tarihi ile 31.10.2004 tarihleri arasında ödenen kredileri listele gibi)sayfadan arama yaptırıp listboxa aktarılmasına çalışıyorum ancak henüz başaramadım. Dolayısıyla burada iki tarih yoksa 4 tarih mi var emin değilim. Asıl dosyadaki veriler minimum 3000 satırdır.Yardımcı olacaklara asıl teşekkür mahfuz kalmak şartıyla şimdiden teşekkür ederim.

 

[Levent Menteşoğlu]

Merhaba

Dosyanızı inceledim ama hangi tarihler arası nasıl bir arama yapılacak açıkçası içinden çıkamadım. Sadece kullanım tarihlerine veya ödeme tarihlerine göre arama olsa, çözümü kolay ama 4 tarihe göre nasıl bir arama yapılacak anlayamadım. Sorunuzu daha açık olarak şekillendirirseniz yardımcı olmaya çalışalım.

 

[medfad]

Merhaba
İlginiz için teşekkür ederim. Sanırım sorumdaki parantez içi cümleyi tekrarlamam gerekecek, 26.01.2004 - 31.08.2004 tarihleri arasında kullanılmış kredilerden, ödeme tarihleri 31.03.2004 -31.10.2004 tarihleri arasında olan krediler. Yani olayı ancak böyle özetleyebiliyorum.

 

[Levent Menteşoğlu]

Ekteki örneği inceleyiniz.

 

[medfad]

Sayın leventm çok teşekkür ederim elinize sağlık. Güzel olmuş. Ancak sadece kullanım tarihine veya ödeme tarihine kriter girilip diğerlerine girilmeden sonuç alabilirsek bu çok daha güzel olacak. Þu anda bir tanesi boş bırakıldığında hata veriyor.

 

[Levent Menteşoğlu]

Araştır butonuna bağlı kodu aşağıdaki ile değiştirerek deneyin.

[vb:1:db8f6e4d7b]Private Sub cmdarastir2_Click()
On Error Resume Next
Range("ax2:bq65536").ClearContents
lsonuc2.ColumnCount = 20
lsonuc2.ColumnHeads = True
lsonuc2.ColumnWidths = "30;55;60;65;40;30;80;60;65;60;60;60;60;70;60;60;60;25;60;60"
say = WorksheetFunction.CountA(Sheets("KREDİLER").[c2:c65536]) + 1
c = 0
For a = 2 To say
kul = Sheets("KREDİLER").Cells(a, 3).Value
ode = Sheets("KREDİLER").Cells(a, 4).Value
If tkultarih21.Value = "" Then GoTo 10
If kul >= CDate(tkultarih21.Value) And kul <= CDate(tkultarih22.Value) Then
If todtarih21.Value = "" Then GoTo 20
10 If ode >= CDate(todtarih21.Value) And ode <= CDate(todtarih22.Value) Then
20 c = c + 1
For b = 1 To 20
Sheets("KREDİLER").Cells(c + 1, b + 49) = Sheets("KREDİLER").Cells(a, b).Value
Next b
End If
End If
Next a
adres = "KREDİLER!ax2:bq" & c + 1
lsonuc2.RowSource = adres
End Sub[/vb:1:db8f6e4d7b]

 

[medfad]

Tek kelimeyle harikasınız. Teşekkürler sayın leventm.En iyi dileklerimle.