Sorgulama sorunu!

[ocamsul]

Arkadaşlar merhabalar. Ben üstadım leventm nin aşağıdaki linkde verdiği son kodu kullanarak kendime bir uyarlama yaptım ancak sorgulama esnasında örneğin aynı tarih için ne kadar giriş var bunu öğrenebimek amaçlı iki tarihide aynı şekilde girdiğimde sonuç kayıtların tamamı çıkıyo nerede hata var yardım edermisiniz?


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

 

[ocamsul]

uğraşıyorum ama çözemedim. fikri olan yokmu arkadaşlar?

 

[Levent Menteşoğlu]

Kodu aşağıdaki ile değiştirerek deneyin.

Sub sorgula()
Set s1 = Sheets("VERITABANI")
Set s2 = Sheets("RAPOR1")
basla = Time
s2.[a2:e65536].ClearContents
For a = 2 To [b65536].End(3).Row
For d = 7 To 10
Select Case d
Case 7: If s1.[g2] <> "" And s1.Cells(a, "b") <> s1.[g2] Then GoTo 20
Case 8: If s1.[h2] <> "" And s1.Cells(a, "b") <> s1.[h2] Then GoTo 20
Case 9: If s1.[I2] <> "" And s1.Cells(a, "c") < s1.[I2] Then GoTo 20
Case 10: If s1.[J2] <> "" And s1.Cells(a, "c") > s1.[I2] Then GoTo 20
End Select
Next
c = c + 1
s2.Range("a" & c + 1 & ":f" & c + 1) = s1.Range("a" & a & ":f" & a).Value
20 Next
bitis = Time
MsgBox c & " adet veri bulunmuştur." & Chr(13) & Chr(13) & "Sorgulama Süresi: " & Format(bitis - basla, "hh:mm:ss")
End Sub

 

[ocamsul]

SN: leventm üsdat çok teşekkür ederim. Tam istediğim gibi oldu. Sağolun.

 

[serdarbarak]

Yine Ben

Arkadaşlar Aynı Formülü bende kullanmaya çalıştım ama beceremedim. Ekteki programda girilen iki tarih arasında izini başlayan personeli listeletmeye çalıştım ama beceremedim. galiba sorun şu satırda yardımlarınız için şimdiden teşekkürler
s2.Range("a" & c + 1 & ":e" & c + 1) = s1.Range("a" & a & ":e" & a).Value
20 Next