Güne göre satırları gizlemek

[ahmet3356]

f2 hücresi örnek olar 5 yazdım 5 gün önceki tarihi kayıtları gösterebilirmiyiz f2 ye kac gün yazarsam onu gösterecek son 5 gün göstermeyecek mümkün mü acaba

 

[Haluk]

Tarih sütununda filterelerken aşağıdaki gibi yapsanız olur...


.

.

 

[ahmet3356]

farklı bir yöntemi yok mu

 

[Korhan Ayhan]

Merhaba,

Lütfen konu başlığınızı forum kurallarına uygun şekilde düzeltebilir misiniz?

 

[ahmet3356]

Güne göre satırları gizlemek yardım edecek biri varmı?

 

[Seyit Tiken]

Görselde ki işinizi kolaylaştırmaz mı?

 

[YUSUF44]

Aşağıdaki kodları Sayfa1'in kod bölümüne (sayfa adına sağ tıklayıp kod görüntüle deyince açılan sayfaya) yapıştırıp deneyiniz. F2 hücresini değiştirdiğinizde filtreleme yapar. F2 boş olursa tümünü listeler, F2'de sayı varsa o kadar günlük kaydı gösterir:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [F2]) Is Nothing Then Exit Sub
    ActiveSheet.[A4].AutoFilter
    son = Cells(Rows.Count, "A").End(3).Row
    If Target = "" Or Target = 0 Then
        ActiveSheet.Range("$A$4:$J$" & son).AutoFilter Field:=1
        Target.Select
    ElseIf IsNumeric(Target) = False Then
        MsgBox "Lütfen sayı giriniz!", vbInformation
        ActiveSheet.Range("$A$4:$J$" & son).AutoFilter Field:=1
        Target.Select
        Exit Sub
    Else
        gun = Date - Target
        ActiveSheet.Range("$A$4:$J$" & son).AutoFilter Field:=1, Criteria1:= _
        ">" & gun * 1, Operator:=xlAnd, Criteria2:="<=" & Date * 1
        Target.Select
    End If
End Sub

 

[mustafa1205]

Seyit Tiken Hocamın ve haluk hocamın göstermiş olduğu yöntem çok kullanışlıdır. Hocalarımın affına sığınarak; sanırım böyle birşey istiyorsunuz.

 

[YUSUF44]

Eğer girdiğiniz sayı kadar günün görüntülenmesini istemiyorsanız kodu aşağıdaki gibi değiştirebilirsiniz:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [F2]) Is Nothing Then Exit Sub
    ActiveSheet.[A4].AutoFilter
    son = Cells(Rows.Count, "A").End(3).Row
    If Target = "" Or Target = 0 Then
        ActiveSheet.Range("$A$4:$J$" & son).AutoFilter Field:=1
        Target.Select
    ElseIf IsNumeric(Target) = False Then
        MsgBox "Lütfen sayı giriniz!", vbInformation
        ActiveSheet.Range("$A$4:$J$" & son).AutoFilter Field:=1
        Target.Select
        Exit Sub
    Else
        gun = Date - Target + 1
        [J1] = gun
        ActiveSheet.Range("$A$4:$J$" & son).AutoFilter Field:=1, Criteria1:= _
        "<" & gun * 1, Operator:=xlAnd
        Target.Select
    End If
End Sub