Macro za Filtriranje prethodnog dana!

Ovo je Macro koji snimim:

Sub Macro3()
'
' Macro3 Macro
'
ActiveSheet.Range("$A$3:$O$13").AutoFilter Field:=1, Criteria1:= _
"2014 10 06 Mon"

End Sub

Ovo mi je izvestaj gde mi je poslednji dan bio 6 Oktobar 2014. Ja svakog dana dobijam neke nove podatke, tako da svakog dana treba da selektujem prethodni dan. Npr. danas je 3.Novembar 2014 i meni je potrebno da filtrira 02.Novembar 2014.
Kako da prepravim ovaj Macro, ili pak moze i neki novi koji ce da mi odradi posao?

Potpis

Cogito, Ergo, Sum

Koliko razumem uslov za filtriranje je datum ali kao string u prvoj koloni. Moglo bi nešto ovako.

Filtriranje se vrši po strKriterijum, a to se formira od date-1 u formatu kako sam ja razumeo sa slike

Potpis

Nije to loše Rembrante, samo što ne bi dodao još malo boje?

Jpeca, nesto mi ne radi kako treba. Kada starujem macro, dobijem samo prazno, nije mi filtrirao prethodni dan! U prilogu slika (Capture2). Meni bi trebalo kao slika u prilogu (Capture3)

Ili, da pokusamo ovako. Danas je 4. Novembar. Slika u prilogu (Capture4). Ovo je izvorno kako dobijam podatke. Iz priloga se vidi da oni nisu sortirani npr. od A-Z, ali kada udjes na filter (pored SLICES) ima da se izabere datum, slika (Filter) u prilogu, sto bih ja zeleo da dobijem kada startujem macro, ali samo za poslednji dan koji se nalazi u izvestaju!

P.S. Da li je moguce da makro prepozna poslednji dan u izvestaju ako je danas 4. Novembar 2014, a ja udjem u neki stariji izvestaj gde je, recimo, poslednji dan za taj izvestaj 3. Oktobar 2014, i makro da mi samo izfiltrira 3. Oktobar?

Potpis

Cogito, Ergo, Sum

Bilo bi dobro da umesto slika postaviš primer Excel tabel. Podatke možeš da ismisliš i skratiš. Ovako na osnovu slika teško je reći šta je problem ali moguće teksturalni oblik datuma.


To je jednostavno funkcija MAX kad je u pitanju datum. Problem je što su ovo stringovi koje treba prvo interpretirati kao datum pa onda naći Max.

Potpis

Nije to loše Rembrante, samo što ne bi dodao još malo boje?

Vazi, Jpeca. Sutra cu, sa posla, poslati tabelu koju inace koristim, pa da pogledas!

Potpis

Cogito, Ergo, Sum

Evo, Jpeca, kacim tabelu!

Potpis

Cogito, Ergo, Sum

Ubacio sam funkciju za odredjivanje poslednjeg datuma u koloni A i onda se taj datum koristi kao kriterujum.
Bilo bi možda čistije (i efikasnije) da se stringovi iz kolone A pretvore u datume, ali ovde sam ostaviio kao string i napravio "svoju" funkciju za maksimum

Meni to radi (ALT+F8, ApplyFilter). Ako kod tebe ne radi možda ima veze sa regionalnim setovanjem

Potpis

Nije to loše Rembrante, samo što ne bi dodao još malo boje?

Radi i kod mene Jpeca. To je to sto mi treba! Hvala!

Probacu ovo na svim izvestajima, jos ova 2-3 dana, pa cu se oglasiti jos jedanputa za definitivan odgovor! Funkciju MAX, mogu li je obrisati, posto ne vidim dodirnih tacaka sa Sub?


Ipak je i f-ja MAX neophodna! :D

Potpis

Cogito, Ergo, Sum