TArih Sorgusu

[serdarbarak]

Private Sub CommandButton3_Click()
Sheets("İGE KAYIT").Select
Range("Iv2").Value = DTPicker1.Value
Set s1 = Sheets("İGE KAYIT")
Set s2 = Sheets("Bugün Görevde Olan İŞçiler")
basla = Time
s2.[a2:e65536].ClearContents
For a = 4 To [e65536].End(3).Row
If s1.[Iv2] <> "" And s1.Cells(a, "G") <= s1.[Iv2] Then GoTo 50
c = c + 1
s2.Range("a" & c + 1 & ":G" & c + 1) = s1.Range("a" & a & ":g" & a).Value
50 Next
bitis = Time
MsgBox c & " adet veri bulunmuştur." & Chr(13) & Chr(13) & "Sorgulama Süresi: " & Format(bitis - basla, "hh:mm:ss")
Unload Me
Unload UserForm18
Application.Visible = True
Sheets("Bugün Görevde Olan İŞçiler").Select
End Sub

Yukarıdaki sorguyla İGE KAYIT sayfasındaki liste şeklinde tablodan sorgu yapıyom
IV2 hücresine yazdığpım tarihi sorgulayarak İGE KAYIT g sütünundaki tarihlerden küçük olanları "Bugün Görevde Olan İŞçiler" sayfasına listeletiyorum.

Ancak ben İGE KAYIT sayfasında c sutunundaki tarihten büyük ve g sütunundaki tarihten küçük olanları listele diye bi kod yazabilirmiyim
Yardımcı olursanız sevinirim

 

[serdarbarak]

arkada&#351;lar sat&#305;r&#305; a&#351;a&#287;&#305;daki gibi de&#287;i&#351;tirince oldu te&#351;ekk&#252;r ederim

If s1.[Iv2] <> "" And s1.[Iv2] >= s1.Cells(a, "c") And s1.Cells(a, "G") <= s1.[Iv2] Then GoTo 50