Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Excel sheet datum u mesecu

[es] :: Office :: Excel :: Excel sheet datum u mesecu

Strane: 1 2

[ Pregleda: 4736 | Odgovora: 32 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

nenandi
Nenad Andrejevic
System & ERP administrator
BAT
Vranje

Član broj: 76779
Poruke: 208
165.225.72.*

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


+3 Profil

icon Excel sheet datum u mesecu21.08.2018. u 12:46 - pre 68 meseci
Postoji li nacin da iz tabele koja ima listove od 1 do 31 (dani u mesecu)
pomocu vlookup-a na osnovu datuma koji je danas (primer danas je 21/08/2018 gadja sheet 21).
Hvala
Patience is a necessary ingredient for genius
 
Odgovor na temu

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

Moderator
Član broj: 25683
Poruke: 2267
89.216.49.*

Sajt: www.gowi.rs


+109 Profil

icon Re: Excel sheet datum u mesecu21.08.2018. u 13:37 - pre 68 meseci
U pomoćnoj ćeliji formiraj adressu VLOOKUP tabele kao treb. Npr. ako se na svim listovima koristi opseg A1:D20 može
Code:
="'"&DAY(TODAY())&"'!A1:D20" 

Onda u VLOOKUP pozoveš sadržaj ove ćelije preko INDIRECT funkcije
Naravno, može i da se izbegne pomoćna ćelija i da se sve iskobminuje u jednu (komplikovaniju) formulu

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

bokinet

Član broj: 29844
Poruke: 574



+50 Profil

icon Re: Excel sheet datum u mesecu21.08.2018. u 13:43 - pre 68 meseci
Ako sam dobro razume u nastavku evo resenja pomocu VLOOKUP kao nacin kako da se to resi i da se iskoristi da se dobije sta se hoce.

Prikačeni fajlovi
 
Odgovor na temu

nenandi
Nenad Andrejevic
System & ERP administrator
BAT
Vranje

Član broj: 76779
Poruke: 208
178.79.58.*

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


+3 Profil

icon Re: Excel sheet datum u mesecu21.08.2018. u 17:58 - pre 68 meseci
Evo fajlova u prilog napravio sam okvirno kako treba da izgleda u fajlu proizvodnja unosi se sta je proizvedeno, a u fajlu otpad treba na osnovu datuma da se povuce otpad za taj dan po smeni.
Patience is a necessary ingredient for genius
Prikačeni fajlovi
 
Odgovor na temu

bokinet

Član broj: 29844
Poruke: 574



+50 Profil

icon Re: Excel sheet datum u mesecu21.08.2018. u 21:49 - pre 68 meseci
@nenandi

Na osnovu primera mozes da odradis sta je potrebno.

Brzinski sam pogledao ova dva XLS file-a.
Ovde imate vezu gde se uzima u obzir i masina ali i proizvod i smena.

Takodje malo jasnije definisano sta se hoce i sta se zeli dobiti ne bi bilo lose da se napise obzirom da na pocetku vase teme, vec dati primeri s' moje strane i sa strane @Jpeca su odgovorili na vase pitanje s' pocetka.

 
Odgovor na temu

Ivek33

Član broj: 66174
Poruke: 2898



+66 Profil

icon Re: Excel sheet datum u mesecu21.08.2018. u 23:36 - pre 68 meseci
Citat:
nenandi:Evo fajlova u prilog napravio sam okvirno kako treba da izgleda .
Nešto slično sam radio u tutorijalu pa vidi ova dva linka

- Kako dijeliti podatke između dvije Excel datoteke
- Kopiranje podataka iz druge Excel radne knjige

Ako nije problem dodati jednu pomoćnu kolonu na svakom sheetu u stupac 'A'.

Formula u A3
Code:
=B3&C3

U ovom tvom primjeru probaj koristiti formulu ispod u ćeliji 'D3' u 'otpad' workbook. Kopiraj je u desno pa prema dolje
Code:
=VLOOKUP($A3;INDIRECT("[Proizvodnja.xlsx]"&DAY($G$1)&"!$A$3:$G$13");COLUMN(E$1);FALSE)

Da bi izbjegao Error ili 0 koristi IFERROR ili IF funkciju.
Vidi moj primjer u privitku. (btw: podrazumijeva se da su obje workbook otvorene prilikom rada)
Prikačeni fajlovi
 
Odgovor na temu

nenandi
Nenad Andrejevic
System & ERP administrator
BAT
Vranje

Član broj: 76779
Poruke: 208
165.225.72.*

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


+3 Profil

icon Re: Excel sheet datum u mesecu22.08.2018. u 09:19 - pre 68 meseci
Ne smem da menjam fajl proizvodnja mozda bi zgodnije bilo da iskopiram $A$3:$G$13 u pomocnom listu za Otpad pa onda ra da predvajam po masini?
Patience is a necessary ingredient for genius
 
Odgovor na temu

Ivek33

Član broj: 66174
Poruke: 2898



+66 Profil

icon Re: Excel sheet datum u mesecu22.08.2018. u 14:56 - pre 68 meseci
Onda probaj ove tri formule ispod (malo poduži tekst ali ja ne znam kako da ti drugačije pojasnim).

U ovom primjeru koristio sam INDEX/MATCH kombinaciju funkcija/formula.

Workbook 'Otpad' u ćeliji 'D3' (kopiraj samo dolje)
ARRAY Formula (završavaš je sa Ctrl+Shift+Enter ili CSE)
Code:
=INDEX(INDIRECT("'[Proizvodnja.xlsx]"&DAY($G$1)&"'!D$3:D$13");MATCH($A3;INDIRECT("'[Proizvodnja.xlsx]"&DAY($G$1)&"'!A$3:A$13")&INDIRECT("'[Proizvodnja.xlsx]"&DAY($G$1)&"'!B$3:B$13");0))

Workbook 'Otpad' u ćeliji 'E3' (kopiraj samo dolje)
ARRAY Formula (završavaš je sa Ctrl+Shift+Enter ili CSE)
Code:
=INDEX(INDIRECT("'[Proizvodnja.xlsx]"&DAY($G$1)&"'!E$3:E$13");MATCH($A3;INDIRECT("'[Proizvodnja.xlsx]"&DAY($G$1)&"'!A$3:A$13")&INDIRECT("'[Proizvodnja.xlsx]"&DAY($G$1)&"'!B$3:B$13");0))

Workbook 'Otpad' u ćeliji 'F3' (kopiraj samo dolje)
ARRAY Formula (završavaš je sa Ctrl+Shift+Enter ili CSE)
Code:
=INDEX(INDIRECT("'[Proizvodnja.xlsx]"&DAY($G$1)&"'!F$3:F$13");MATCH($A3;INDIRECT("'[Proizvodnja.xlsx]"&DAY($G$1)&"'!A$3:A$13")&INDIRECT("'[Proizvodnja.xlsx]"&DAY($G$1)&"'!B$3:B$13");0))


Uoči da su ovo "Formule Polja" (ARRAY ili CSE formula) koje mogu opteretiti vrijeme Excel kalkulacije ako imaš puno redova i podataka. Ove formule ne možeš završiti samo sa 'Enter' tipkom već kombinacijom Ctrl+Shift+Enter.
Također uoči da je korištena Excel funkcija INDIRECT koja je "Volatile Funkcija" kao i tvoja =NOW() koju si koristio u G1 ćeliji i "nije je preporučljivo koristiti", ako se baše ne mora.

Tri iznad navedene formule funkcioniraju na slijedeći način:

- MATCH funkcija vraća broj reda za uvjet, ovdje sam koristio spajanje dva podatka iz stupaca 'A' i 'B' iz Workbook 'Proizvodnja'. Da bi mogao koristiti promjenjivi podatak iz ćelije 'G1' koristio sam Indirect funkciju.

- INDEX funkcija/formula vraća rezultat iz reda koji je dala Match formula. Da bi mogli koristiti promjenjivi podatak u ćeliji G1 ja sam upotrijebio INDIRECT funkciju koja uz tekstualni string vraća adresu u kojoj Index formula traži rezultat.
Ako malo bolje pogledaš INDEX funkciju i njenu sintaxu tada ćeš vidjeti da je prvi argument "array" ili "reference". Za ovaj prvi argument iskorisito sam INDIRECT funkciju/formulu.
Ova Excel ugniježđena funkcija tj. Indirect formula tijekom kalkulacije vraća rezultate iz svih ćelija navedenog raspona (A3:A13).
Da bi ovo provjerio koristi tipku "F9" ili "Evaluate Formula". Primjere možeš vidjeti na dotičnim linkovima.

- INDIRECT funkcija uz pomoć niza stringova vraća putanju/adresu koje onda ugniježđena formula pretvara u upotrebljiv podatak za nadređenu funkciju.

Napomena:
Ako u Workbook 'Otpad' ukloniš stupac 'A' u kojem se nalaze spojeni podaci iz stupaca 'B' i 'C' tada unutar MATCH formule možeš koristiti Concatenate funkciju. U stvari možeš i u ovom primjeru ispod, ali tek toliko ako želiš izbjeći stupac 'A'.
umjesto ovog ispod
Code:
;MATCH($A3;INDIRECT(

koristi ovaj dio koda ispod
Code:
;MATCH($B3&$C3;INDIRECT(

Ako želiš izbjeći error #N/A koristi funkciju IFERROR ili IF ako želiš izbjeći i nulu (0).

Moraš isprobati i vidjeti vrijeme trajanja kalkulacije u odnosu na količinu redova i podataka.
Vidi primjere u privitku.
Prikačeni fajlovi
 
Odgovor na temu

nenandi
Nenad Andrejevic
System & ERP administrator
BAT
Vranje

Član broj: 76779
Poruke: 208
178.79.58.*

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


+3 Profil

icon Re: Excel sheet datum u mesecu22.08.2018. u 22:18 - pre 68 meseci
Uh samo sam ispustio da napomenem da fajl Otpad nema zakucan proizvod (napiso sam nasumicno), nego tek kad se proizvod proizvede onda se upunjava koji je proizvod i kolicina otpada po smenama.
Pokusavam da podatke povucem sa ovi macro-om ali ne uspevam da otvorim pravi fajl i list koji hocu, ne znam da li problem sto je fajl u *.xls formatu ili trebam u ovoj liniji "Sheets(Sheets(1).Range("G2")).Activate" da zakucam putanju fajla tu puca debuger

' DataGet

Workbooks.Open Filename:= _
"Z:\SProizvodnja\Proizvodnja.xls"
Sheets(Sheets(1).Range("G2")).Activate
Range("A3:F20").Select
Selection.Copy
Windows("Otpad.xlsx").Activate
Worksheets("Pomocne tabele").Activate
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

ActiveWorkbook.Save
Worksheets("Otpad").Activate
Patience is a necessary ingredient for genius
 
Odgovor na temu

bokinet

Član broj: 29844
Poruke: 574



+50 Profil

icon Re: Excel sheet datum u mesecu22.08.2018. u 22:34 - pre 68 meseci
najbolje da lepo prvo sednes i napises sta treba da se uradi i kako to treba da izgleda.
znaci logika koja ide i nacin rada i kako se sta unosi od strane krajnjeg korisnika i sta na kraju treba da se dobije.

sve ostalo je moguce resiti preko VBA ako se zna sta se hoce sto se tice Excel-a.

 
Odgovor na temu

nenandi
Nenad Andrejevic
System & ERP administrator
BAT
Vranje

Član broj: 76779
Poruke: 208
165.225.72.*

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


+3 Profil

icon Re: Excel sheet datum u mesecu23.08.2018. u 06:26 - pre 68 meseci
U sustini to je to, kljuc je u tome da pomocu datuma iz celije otvoris pravi list i kopiras sadrzaj u fajl odakle ces dalje da razvrstas podatke.
Patience is a necessary ingredient for genius
 
Odgovor na temu

Ivek33

Član broj: 66174
Poruke: 2898



+66 Profil

icon Re: Excel sheet datum u mesecu23.08.2018. u 13:16 - pre 68 meseci
Citat:
nenandi:Uh samo sam ispustio da napomenem da fajl Otpad nema zakucan proizvod (napiso sam nasumicno), nego tek kad se proizvod proizvede onda se upunjava koji je proizvod i kolicina otpada po smenama........
Pa što nisi odmah rekao da ne gubim vrijeme. Riješi to sa VBA.
 
Odgovor na temu

Ivek33

Član broj: 66174
Poruke: 2898



+66 Profil

icon Re: Excel sheet datum u mesecu23.08.2018. u 13:17 - pre 68 meseci
Citat:
nenandi:U sustini to je to, kljuc je u tome da pomocu datuma iz celije otvoris pravi list i kopiras sadrzaj u fajl odakle ces dalje da razvrstas podatke.
Pa što onda ne štima?
Nakon povlačenja podataka napravi VBA koji će sve konvertirati u tekstualnom obliku.
 
Odgovor na temu

nenandi
Nenad Andrejevic
System & ERP administrator
BAT
Vranje

Član broj: 76779
Poruke: 208
178.79.58.*

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


+3 Profil

icon Re: Excel sheet datum u mesecu23.08.2018. u 21:48 - pre 68 meseci
ovo ne znam gde gresim...
Citat:
Pokusavam da podatke povucem sa ovi macro-om ali ne uspevam da otvorim pravi fajl i list koji hocu, ne znam da li problem sto je fajl u *.xls formatu ili trebam u ovoj liniji "Sheets(Sheets(1).Range("G2")).Activate" da zakucam putanju fajla tu puca debuger

' DataGet

Workbooks.Open Filename:= _
"Z:\SProizvodnja\Proizvodnja.xls"
Sheets(Sheets(1).Range("G2")).Activate
Range("A3:F20").Select
Selection.Copy
Windows("Otpad.xlsx").Activate
Worksheets("Pomocne tabele").Activate
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

ActiveWorkbook.Save
Worksheets("Otpad").Activate

Patience is a necessary ingredient for genius
 
Odgovor na temu

bokinet

Član broj: 29844
Poruke: 574



+50 Profil

icon Re: Excel sheet datum u mesecu23.08.2018. u 22:21 - pre 68 meseci
1. Sta zelis da uradis pre svega konkretno?

2. Da li si proverio da li file koji si naveo fizicki postoji?

Dodato naknadno:

Mozes da iskopiras sve sta ti je potrebno iz XLS file-a koji mora da ostane nepromenjen i koji je znaci staticna u ovaj s' kojim radis.
Na kraju kad sve zavrsis mozes sve to obrises ako nije potrebno da budu u okviru ovog file-a s' kojim radis.
Opet bitan je ceo koncept i plan sta se radi.


 
Odgovor na temu

nenandi
Nenad Andrejevic
System & ERP administrator
BAT
Vranje

Član broj: 76779
Poruke: 208
165.225.72.*

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


+3 Profil

icon Re: Excel sheet datum u mesecu24.08.2018. u 07:41 - pre 68 meseci
Normalno fajl postoji serovan je folder koji sam ja mapirao kao "Z:" iz fajla "Otpad.xlsx" na osnovu datuma ako je danas 24.08.2018. celija "G2" hocu da otvori 24 sheet u fajlu "Proizvodnja.xls" koji se nalazi na putanji "Z:\SProizvodnja\Proizvodnja.xls" i kopira od A3 do F20, makro radi kada se zakuca tacno sheet ali kad hocu da uradim da koristi vrednost iz polja G2 javlja mi gresku iz debagera nemogu da zakljucim, a na netu nemogu da nadjem bas ovakav specifican primer :)
Patience is a necessary ingredient for genius
 
Odgovor na temu

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

Moderator
Član broj: 25683
Poruke: 2267
89.216.49.*

Sajt: www.gowi.rs


+109 Profil

icon Re: Excel sheet datum u mesecu24.08.2018. u 09:43 - pre 68 meseci
U tvom primeru ne vidim šta je u G2

1/ Otvori Proizvodnja.xls
2/ Otvori VBE - F11
3/Prikaži Immediate window ako nije prikazan -Ctrl+G
4/ U Immediate window unesi:
?Sheets(1).Range("G2")

Pretpostavljam da ti se u G2 nalazi datum koji si formatirao da prikaže samo dan. Ovako kako si naveo uzima se sadržaj ćelije G2, bez obzira na format. U tom slučaju možeš da koristiš formulu da izvojiš dan iz datuma ili Sheets(1).Range("G2").Text da se uzme formatiran ispis iz ćelije.


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

bokinet

Član broj: 29844
Poruke: 574



+50 Profil

icon Re: Excel sheet datum u mesecu24.08.2018. u 10:23 - pre 68 meseci
Evo primera.

Preuzeti sva tri Excel file-a i staviti u isti direktorijum (folder).

Pokrenuti work4me.xlsm u okviru koga se nalazi dole navedeni kod.

Sta radi dole navedeni VBA kod:

1. Ucitava xlsx file-ove ('otpad' i 'proizvodnja') i setuje promenljive za iste otvorene file-ove;

2. Odredjuje dan u mesecu na osnovu vrednosti iz 'otpad' file-a;

3. Kopira iz file-a 'proizvodnja' odgovarajucu tabelu u 'otpad' file na osnovu dana;

Napomene:
Trenutno se kopira na mesto ispod od polja A20 ali kao sto je vec navedeno u kodu to se lako moze prebaciti na A3 i vec je ubacena ali isklucena ta linija koda.




Code:

' Open Excel file and return value as Workbook
Private Function ExcelOpenFile(ByVal Filename As String) As Excel.Workbook

    On Error Resume Next
    
    ' Try to open file and return value as Workbook
    Set ExcelOpenFile = Excel.Workbooks.Open(Filename)
    
    ' If there was any error then
    If Err.Number <> 0 Then
    
        ' Show message
        MsgBox "Doslo je do greske prilikom ucitavanja file-a." & vbCrLf & "Lokacija: " & Filename & vbCrLf & vbCrLf & "Error: " & Err.Number & " - " & Err.Description, vbCritical
    
        Err.Clear
        
        ' Return nothing then
        Set ExcelOpenFile = Nothing
    
    End If

End Function

' Handle work load
Public Sub DoWork()

    Dim sCurrentPath As String
    Dim sOtpadFilename As String
    Dim sProizvodnjaFilename As String
    Dim wrkOtpad As Excel.Workbook
    Dim wrkProizvodnja As Excel.Workbook
    Dim wsProizvodnja As Excel.Worksheet
    Dim iCurDay As Integer
    
    ' Get current path of activeworkbook where macro is
    sCurrentPath = ActiveWorkbook.Path
    If Right(sCurrentPath, 1) <> "\" Then sCurrentPath = sCurrentPath & "\"
    
    ' Excel file locations (this bellow files are set to be on same location where active file with macro is - can be changed and adapted)
    sOtpadFilename = sCurrentPath & "otpad.xlsx"
    sProizvodnjaFilename = sCurrentPath & "proizvodnja.xlsx"
    
    Debug.Print Now, "Current path:", sCurrentPath
    Debug.Print Now, "File 'otpad':", sOtpadFilename
    Debug.Print Now, "File 'proizvodnja':", sProizvodnjaFilename
    
    ' Load file Otpad
    Set wrkOtpad = ExcelOpenFile(sOtpadFilename)
    
    ' Load file Proizvodnja
    Set wrkProizvodnja = ExcelOpenFile(sProizvodnjaFilename)
    
    ' If wrkOtpad is not set then
    If wrkOtpad Is Nothing Then
        
        ' Show message
        MsgBox "Excel file za 'otapd' nije ucitan." & vbCrLf & "Dalji rad nije moguc.", vbCritical
        
        GoTo EndStep
        
        Exit Sub
        
    End If
    
    ' If wrkProizvodnja is not set then
    If wrkProizvodnja Is Nothing Then
        
        ' Show message
        MsgBox "Excel file za 'proizvodnja' nije ucitan." & vbCrLf & "Dalji rad nije moguc.", vbCritical
        
        GoTo EndStep
        
        Exit Sub
        
    End If
    
    On Error Resume Next
    
    ' Get current day using date
    iCurDay = CInt("" & Day(wrkOtpad.Worksheets("Sheet1").Cells(1, 6)))
    
    Debug.Print Now, "iCurDay:", iCurDay
    
    ' If there was any error or iCurDay is <1 or >31 then
    ' Validation and checking for iCurDay var can be changed - this is just a sample code
    If Err.Number <> 0 Or iCurDay < 1 Or iCurDay > 31 Then
        
        ' Show message
        MsgBox "Vrednost za datum nije definisana ili nije validna." & vbCrLf & "Dalji rad nije moguc.", vbCritical
        
        GoTo EndStep
        
        Exit Sub
        
    End If
    
    ' Get worksheet based on current day in 'proizvodnja' file
    Set wsProizvodnja = wrkProizvodnja.Sheets(iCurDay)
    
    If Err.Number <> 0 Then
    
        ' Show message
        MsgBox "Nema definisanog lista za zadatu vrednost." & vbCrLf & "Dalji rad nije moguc.", vbCritical
        
        GoTo EndStep
        
        Exit Sub
    
    End If
    
    ' Tuned off
    'wsProizvodnja.Range("A3:F20").Copy wrkOtpad.Sheets("Sheet1").Range("A3")
    
    ' Example to compare and see --- bellow line should be turned off
    wsProizvodnja.Range("A3:F20").Copy wrkOtpad.Sheets("Sheet1").Range("A20")
    
    MsgBox "All done" & vbCrLf & "Thanks for using this VBA macro." & vbCrLf & "Till next time, have a lot of fun." & vbCrLf & "Bye"
    
EndStep:

    ' Free memory resource
    Set wsProizvodnja = Nothing
    Set wrkProizvodnja = Nothing
    Set wrkOtpad = Nothing

End Sub

Prikačeni fajlovi
 
Odgovor na temu

nenandi
Nenad Andrejevic
System & ERP administrator
BAT
Vranje

Član broj: 76779
Poruke: 208
165.225.72.*

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


+3 Profil

icon Re: Excel sheet datum u mesecu24.08.2018. u 12:47 - pre 68 meseci
Citat:
Jpeca:
U tvom primeru ne vidim šta je u G2

1/ Otvori Proizvodnja.xls
2/ Otvori VBE - F11
3/Prikaži Immediate window ako nije prikazan -Ctrl+G
4/ U Immediate window unesi:
?Sheets(1).Range("G2")

Pretpostavljam da ti se u G2 nalazi datum koji si formatirao da prikaže samo dan. Ovako kako si naveo uzima se sadržaj ćelije G2, bez obzira na format. U tom slučaju možeš da koristiš formulu da izvojiš dan iz datuma ili Sheets(1).Range("G2").Text da se uzme formatiran ispis iz ćelije.




Uneo sam u Immediate ali i dalje imam problem na ovoj liniji "Sheets(Sheets(1).Range("G2")).Activate".
Akciju pokrecem iz fajla "Otpad.xlsx" i celija G2 se nalazi u istom fajlu
G2 prikazuje samo dan od celije G1.
Patience is a necessary ingredient for genius
 
Odgovor na temu

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

Moderator
Član broj: 25683
Poruke: 2267
89.216.49.*

Sajt: www.gowi.rs


+109 Profil

icon Re: Excel sheet datum u mesecu24.08.2018. u 15:03 - pre 68 meseci
Pa šta si dobio u Immediate?

Immediate služi da možeš da ineteraktivno probaš i proveriš vrednosti/akcije. Možeš npr. da zadaš tu komandu koja ti pravi problem
Sheets(Sheets(1).Range("G2")).Activate
Ali tu očekujem da dobiješ grešku - npr "Supscript out of range"
Nije to loše Rembrante, samo što ne bi dodao još malo boje?
 
Odgovor na temu

[es] :: Office :: Excel :: Excel sheet datum u mesecu

Strane: 1 2

[ Pregleda: 4736 | Odgovora: 32 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.