Filtriranje po datumu

Filtriranje po datumu 14.12.2020. u 15:37 · pre 71 mesec #1

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?

Potpis

Patience is a necessary ingredient for genius

Datab.xlsm56.27k

Re: Filtriranje po datumu 14.12.2020. u 21:46 · pre 71 mesec #2

Možda kao na slici

_{[Edit: tagovi]}

Untitled-1.png12.08k

Re: Filtriranje po datumu 14.12.2020. u 23:32 · pre 71 mesec #3

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

Potpis

Patience is a necessary ingredient for genius

Re: Filtriranje po datumu 15.12.2020. u 00:28 · pre 71 mesec #4

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

1

Re: Filtriranje po datumu 15.12.2020. u 16:18 · pre 71 mesec #5

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

1

Forum kao aplikacija na telefonu

Srodne teme