Güne göre satırları gizlemek

Katılım
7 Mayıs 2021
Mesajlar
3
Excel Vers. ve Dili
excell 2010
Altın Üyelik Bitiş Tarihi
07-05-2022
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 227506
 

Ekli dosyalar

Haluk

Özel Üye
Katılım
7 Temmuz 2004
Mesajlar
12,406
Excel Vers. ve Dili
64 Bit 2010 - İngilizce
+
Google Sheets
+
JScript
Altın Üyelik Bitiş Tarihi
Tarih sütununda filterelerken aşağıdaki gibi yapsanız olur...


.Capture.PNG

.
 
Katılım
7 Mayıs 2021
Mesajlar
3
Excel Vers. ve Dili
excell 2010
Altın Üyelik Bitiş Tarihi
07-05-2022
farklı bir yöntemi yok mu
 

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
42,247
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Merhaba,

Lütfen konu başlığınızı forum kurallarına uygun şekilde düzeltebilir misiniz?
 
Katılım
7 Mayıs 2021
Mesajlar
3
Excel Vers. ve Dili
excell 2010
Altın Üyelik Bitiş Tarihi
07-05-2022
Güne göre satırları gizlemek yardım edecek biri varmı?
 

Seyit Tiken

Uzman
Uzman
Katılım
23 Ağustos 2005
Mesajlar
4,651
Excel Vers. ve Dili
Excel : 2010
Görselde ki işinizi kolaylaştırmaz mı?
227519
 

YUSUF44

Destek Ekibi
Destek Ekibi
Katılım
4 Ocak 2006
Mesajlar
12,073
Excel Vers. ve Dili
İş : Ofis 365 - Türkçe
Ev: Ofis 365 - Türkçe
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:

PHP:
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

Altın Üye
Katılım
23 Ekim 2010
Mesajlar
1,263
Excel Vers. ve Dili
Office 2016 / 64 Bit - Türkçe
Altın Üyelik Bitiş Tarihi
18-07-2026
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.
 

Ekli dosyalar

YUSUF44

Destek Ekibi
Destek Ekibi
Katılım
4 Ocak 2006
Mesajlar
12,073
Excel Vers. ve Dili
İş : Ofis 365 - Türkçe
Ev: Ofis 365 - Türkçe
Eğer girdiğiniz sayı kadar günün görüntülenmesini istemiyorsanız kodu aşağıdaki gibi değiştirebilirsiniz:

PHP:
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
 
Üst