iki tarih arası veri getirme hakk.

[ahmetozbey]

arama yaptım ancak daha önce bu başlık altında biçok sorulanların arasında istediğime uygun cevap bulamadım. sorum ekdedir ilgilenirseniz memnun olurum.

 

[Levent Menteşoğlu]

Aşağıdaki linki inceleyin.

http://www.excel.web.tr/showthread.php?t=19530

 

[ahmetozbey]

kendime göre uyarlayamadım. ekde örnek var bu örneğe göre düzenleme yaparsanız memnun olurum.

 

[Levent Menteşoğlu]

Aşağıdaki kodu "rapor" sayfanızdaki BUL butonuna bağlayarak çalıştırın.

Sub listele()
bastar = CLng([rapor!b6])
bittar = CLng([rapor!d6])
[rapor!b8:g65536].ClearContents
For a = 5 To [veri!b65536].End(3).Row
deg = CLng(Sheets("veri").Cells(a, "b"))
If deg >= bastar And deg <= bittar Then
c = c + 1
Sheets("rapor").Range("b" & c + 7 & ":g" & c + 7) = Sheets("veri").Range("b" & a & ":g" & a).Value
End If
Next
End Sub

 

[ahmetozbey]

çok teşekkür ederim leventm. kodlar işimi gördü. elinize sağlık.

 

[Recep İpek]

Alternatif olarak ekteki dosyanızıda inceleyebilirsiniz.

Burada süz işlemi kullanılmıştır.