[es] - Macro za Filtriranje prethodnog dana!

toci
Beograd

Član broj: 48763
Poruke: 402
*.ncr.com.

Profil

Macro za Filtriranje prethodnog dana!

^{03.11.2014. u 14:43 - pre 115 meseci}

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?

Cogito, Ergo, Sum

Prikačeni fajlovi

Capture1.JPG - 18k

Odgovor na temu

Jpeca
Predrag Jovanović
poslovni analitičar
Gowi
Pančevo

Moderator
Član broj: 25683
Poruke: 2268
212.200.121.*

Sajt: www.gowi.rs

+109 Profil

Re: Macro za Filtriranje prethodnog dana!

^{03.11.2014. u 16:09 - pre 115 meseci}

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

Code:

Sub ApplyFilter()
'
'  Na tekuci list primenjuje filter na prvu kolonu
'   Vrednost u koloni jednaka  prethnodni dan kao formatiran string
'
Dim rng As Range
Dim strKriterijum As String
'    Opseg podataka  za filter
Set rng = ActiveSheet.UsedRange
'  Priprema formatiranog stringa za prethodni da: Date -1
'  Formatiran string sadrzi godinu mesec dan i dan u nedelji sve razdvojeno blankom
strKriterijum = Format(Date - 1, "yyyy MM dd ") & WeekdayName(Weekday(Date - 1), 1, vbSunday)
'  Postavlja se filter na prvu kolonu
rng.AutoFilter Field:=1, _
               Criteria1:=strKriterijum

End Sub

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

_{[Ovu poruku je menjao Jpeca dana 04.11.2014. u 17:45 GMT+1]}

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

Odgovor na temu

toci
Beograd

Član broj: 48763
Poruke: 402
*.ncr.com.

Profil

Re: Macro za Filtriranje prethodnog dana!

^{04.11.2014. u 15:45 - pre 115 meseci}

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?

Cogito, Ergo, Sum

Prikačeni fajlovi

Capture2.JPG - 10.11k

Capture3.JPG - 11.31k

Capture4.JPG - 21.63k

Filter.png - 13.65k

Odgovor na temu

Jpeca
Predrag Jovanović
poslovni analitičar
Gowi
Pančevo

Moderator
Član broj: 25683
Poruke: 2268
212.200.121.*

Sajt: www.gowi.rs

+109 Profil

Re: Macro za Filtriranje prethodnog dana!

^{04.11.2014. u 16:43 - pre 115 meseci}

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.

Citat:

Da li je moguce da makro prepozna poslednji dan u izvestaju ...

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.

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

Odgovor na temu

toci
Beograd

Član broj: 48763
Poruke: 402
*.dynamic.isp.telekom.rs.

Profil

Re: Macro za Filtriranje prethodnog dana!

^{04.11.2014. u 21:45 - pre 115 meseci}

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

Cogito, Ergo, Sum

Odgovor na temu

toci
Beograd

Član broj: 48763
Poruke: 402
*.ncr.com.

Profil

Re: Macro za Filtriranje prethodnog dana!

^{05.11.2014. u 13:04 - pre 115 meseci}

Evo, Jpeca, kacim tabelu!

Cogito, Ergo, Sum

Prikačeni fajlovi

Book1.xls - 26.5k

Odgovor na temu

Jpeca
Predrag Jovanović
poslovni analitičar
Gowi
Pančevo

Moderator
Član broj: 25683
Poruke: 2268
212.200.121.*

Sajt: www.gowi.rs

+109 Profil

Re: Macro za Filtriranje prethodnog dana!

^{05.11.2014. u 14:26 - pre 115 meseci}

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

_{[Ovu poruku je menjao Jpeca dana 05.11.2014. u 16:39 GMT+1]}

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

Prikačeni fajlovi

TestAutoFilter.xlsm - 18.1k

Odgovor na temu

toci
Beograd

Član broj: 48763
Poruke: 402
*.ncr.com.

Profil

Re: Macro za Filtriranje prethodnog dana!

^{05.11.2014. u 16:28 - pre 115 meseci}

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

_{[Ovu poruku je menjao toci dana 06.11.2014. u 13:58 GMT+1]}

Cogito, Ergo, Sum

Odgovor na temu

Jpeca
Predrag Jovanović
poslovni analitičar
Gowi
Pančevo

Moderator
Član broj: 25683
Poruke: 2268
212.200.121.*

Sajt: www.gowi.rs

+109 Profil

Re: Macro za Filtriranje prethodnog dana!

^{07.11.2014. u 11:56 - pre 115 meseci}

Funkciju FindMax sam ubacio na osnovu tvog zahteva da se nađe poslednji "datum" u koloni.

Code:
dat = FindMax(rng.Resize(ColumnSize:=1))

Taj datum se onda uzima kao kriterijum za filter (umesto Date -1 kako je bilo prethodno)

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

Odgovor na temu