[es] - Filtriranje po datumu

nenandi
Nenad Andrejevic
System & ERP administrator
BAT
Vranje

Član broj: 76779
Poruke: 208
165.225.73.*

Sajt: https://www.linkedin.com/..

+3 Profil

Filtriranje po datumu

^{14.12.2020. u 14:37 - pre 40 meseci}

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?

Patience is a necessary ingredient for genius

Prikačeni fajlovi

Datab.xlsm - 56.27k

Odgovor na temu

Ivek33

Član broj: 66174
Poruke: 2898

+66 Profil

Re: Filtriranje po datumu

^{14.12.2020. u 20:46 - pre 40 meseci}

Možda kao na slici

_{[Edit: tagovi]}

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

Prikačeni fajlovi

Untitled-1.png - 12.08k

Odgovor na temu

nenandi
Nenad Andrejevic
System & ERP administrator
BAT
Vranje

Član broj: 76779
Poruke: 208
*.kti.rs.

Sajt: https://www.linkedin.com/..

+3 Profil

Re: Filtriranje po datumu

^{14.12.2020. u 22:32 - pre 40 meseci}

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

Patience is a necessary ingredient for genius

Odgovor na temu

djoka_l
Beograd

Član broj: 56075
Poruke: 3453

Jabber: djoka_l

+1462 Profil

Re: Filtriranje po datumu

^{14.12.2020. u 23:28 - pre 40 meseci}

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

Odgovor na temu

Ivek33

Član broj: 66174
Poruke: 2898

+66 Profil

Re: Filtriranje po datumu

^{15.12.2020. u 15:18 - pre 40 meseci}

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

Odgovor na temu