ÇÖZÜLDÜ: Tarihe göre süzme kodunda ekleme nasıl yaparım?

[assenucler]

Dostlar merhabalar;


G8 ve J8 hücrelerinde iki ayrı tarih var. Aşağıda kodda nasıl bir değişiklik gerekmektedir.




Private Sub Worksheet_Change(ByVal Target As Range)
Dim tarih As Date
If Target.Address(0, 0) = "A2" Then
ActiveSheet.Range("A18").AutoFilter
tarih = CDate(Target.Value)
ActiveSheet.Range("$A$18:$O$500").AutoFilter Field:=1, Criteria1:="=" & tarih, Operator:=xlAnd
End If
End Sub

 

[YUSUF44]

Private Sub Worksheet_Change(ByVal Target As Range) 
Dim tarih As Date 
if intersect(target, [G8, J8]) is nothing Then exit sub
ActiveSheet.Range("A18").AutoFilter
tarih1 = CDate([G8].Value)
tarih2 = CDate([J8].Value)
if tarih1 <= tarih2 then
ActiveSheet.Range("$A$18:$O$500").AutoFilter Field:=1, Criteria1:=">=" & tarih1, Criteria2:="<=" & tarih2, Operator:=xlAnd
End If
End Sub

Şeklinde deneyin. Çözüm doğru değilse örnek dosya paylaşıp, dosyanızda ne sitediğinizi ayrıntılı açıklayın.

 

[assenucler]

Yusuf44


Öncelikle ilginiz için teşekkür ederim.

Üstadım, kodu Sayfa1'e ekledim. Tarih aralığını dolduruyorum ancak tüm satırları süzüyor.

Dosyayı ekliyorum.

 

[kemal turan]

merhaba,
ustaların çalışmalarından ek dosyaya bir çalışma yaptım.
umarım işinizi görür

 

[assenucler]

Sayın kemal turan,

Değerli gönül dostum, dinlence gününüzde zaman ayırarak yazdığınız kod sorunumu çözdü.
Her şey gönlünüzce olsun.

Sevgi ve saygılar.

 

[YUSUF44]

Aşağıdaki gibi deneyin:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim tarih1, tarih2 As Date
If Intersect(Target, [G8, J8]) Is Nothing Then Exit Sub
If [G8] <= [J8] Then
    ActiveSheet.Range("A18").AutoFilter
    tarih1 = [G8]
    tarih2 = [J8]
    ActiveSheet.Range("$A$18:$O$500").AutoFilter Field:=1, Criteria1:=">=" & tarih1 * 1, Criteria2:="<=" & tarih2 * 1, Operator:=xlAnd
End If
End Sub

 

[kemal turan]

Sayın kemal turan,

Değerli gönül dostum, dinlence gününüzde zaman ayırarak yazdığınız kod sorunumu çözdü.
Her şey gönlünüzce olsun.

Sevgi ve saygılar.

Sn: YUSUF44 hocanın kodu daha düzgün onu kullanın.
Hocanınki yazılmış, benimki uyarlanmaya çalışılmış
Not: Fakirane bir fikrim çalışmalarınızda veri girişi form vasıtası ile ayrıca veri tabanınınız ile sorgulama yaptığınız sayfalar ayrı olursa daha iyi olur.

Selametle

 

[YUSUF44]

Sn: YUSUF44 hocanın kodu daha düzgün onu kullanın.
Hocanınki yazılmış, benimki uyarlanmaya çalışılmış
Selametle

Eyvallah. Sizin cevabı görmemiştim bu arada, kusura bakmayın.

 

[assenucler]

Sayın kemal turan,


Öncelikle ilginiz ve çözüm öneriniz için teşekkür ederim. Ancak, iki tarih arası süzmeleri gün gün denetleyince sonuçlarda hatalar çıktı. Zaten siz de mesajda atıf yapmışsınız.


Sayın Yusuf44,

Üstadım, sizin kodunun düzgün olarak çalıştı. Allah sizlerden razı ve kazancınız bol olsun.
Çok teşekkürler.

Sevgi ve saygılar.