Filtriranje po datumu

[ nenandi @ 14.12.2020. 14:37 ] @

Zdravo, kako da namestim da se podaci filtriraju po datumu E2 ali da mi ostanu i prazni redovu,
probao sam sa advanced filters i odabrao tabelu A12:F8000 kriteriju E1:E2 filter sakrije i blanko redove u kojima trebam da unesem podatke
postoji li nacin da samo isfiltrira koji nisu jednaki sa E2 i da ostavi blanko redove?

[ Ivek33 @ 14.12.2020. 20:46 ] @

Možda kao na slici

_{[Edit: tagovi]}

_{[Ovu poruku je menjao 3okc dana 27.01.2021. u 15:04 GMT+1]}

[ nenandi @ 14.12.2020. 22:32 ] @

da, ali moram rucno da odaberem filter, filter treba da je uslovljen sa E2

[ djoka_l @ 14.12.2020. 23:28 ] @

Code:
Option Explicit

Function DateToStr(d) As String
  DateToStr = Replace(Format(d, "mm/dd/yyyy"), ".", "/")
End Function

Sub CurrentDate()
  Range("E2").Value = Date

  ActiveSheet.ListObjects("Table1").Range.AutoFilter Field:=1, Criteria1:= _
        Array("="), Operator:=xlFilterValues, Criteria2:=Array(2, DateToStr(Range("E2").Value))
End Sub

Sub Add_Day_To_Date()

  Range("E2").Value = Range("E2").Value + 1
    ActiveSheet.ListObjects("Table1").Range.AutoFilter Field:=1, Criteria1:= _
        Array("="), Operator:=xlFilterValues, Criteria2:=Array(2, DateToStr(Range("E2").Value))
End Sub

Sub Subtract_Day_From_Date()
  Range("E2").Value = Range("E2").Value - 1

    ActiveSheet.ListObjects("Table1").Range.AutoFilter Field:=1, Criteria1:= _
        Array("="), Operator:=xlFilterValues, Criteria2:=Array(2, DateToStr(Range("E2").Value))
End Sub

[ Ivek33 @ 15.12.2020. 15:18 ] @

Možda ovo pomogne.
U Sheet Module dotičnog radnog lista, stavi ovaj VBA kod (snimi Workbook kao *.xls ili *.xlsm)

Code:
Private Sub Worksheet_Change(ByVal Target As Range)
   If Target.Address = Range("E2").Address Then
       Range("A11:B50").CurrentRegion.AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Range("E1:E2")
   End If
End Sub

No moraš obratiti pažnju na to da prilikom bilo kakve promjene na istom sheetu i pritiska na tipku 'Enter' , automatski će se izvršiti filtriranje prema zadanim uvjetima

btw:
- https://www.excelhow.net/how-t...-on-a-cell-value-in-excel.html
- https://www.extendoffice.com/d...ilter-based-on-cell-value.html