Osobni sheet i mjesečno spremanje u excelu

Pozdrav!

Meni treba nešto slično ovome što piše na linku gdje piše "Naravno sve ovo se može smjestiti u jedan "folder" po mjesecima i na kraju napraviti zbirna knjiga cijele godine, gdje možemo proučavati koliko je koji radnik bio na GO, BO, SD i slično." (samo se kod mene ne radi o satima.

Dakle imam listu s imenima (neke stvari) ne jednom sheetu . I sada bi bilo dobro da za svako ime imam drugi sheet. I kad u tom redu di je to ime mjenjam neki podatak da se on automatski mjenja u tom sheetu (dakle promjena se vrši u oba sheeta). a i uz to da se svaki mjesec sprema u jedan dodatni sheet za godišnji pregled. Naravno ako je to moguće. Bilo bi dobro da je to svaka datoteka posebno al to je neizvedivo (barem mislim) ,zato i mislim u sheetovima.

Znači neki glavni sheet,pa sheet s imenom,pa sheet za svaki mjesec iliti godišnje za isto to ime.

Unaprijed hvala!

Hvala! Vidim da na primjeru radi,primjenit ću to na ostalo. A što se tiče ovog za mjesečno spremanje?

Tako nekako.

Znači imam listu s imenima (oko 30 njih) i u stupcima do njih upisujem neke podatke.

Pa mi trebaju liste za svako pojedino ime,koje je za printanje. Ali kada pišem u prvu listu da se automatski ažurira na 2.

I na kraju još za svako ime da je lista koja će se spremat za svaki mjesec za godišnji prikaz. Sada neznam kako napraviti da svaki mjesec sprema po redu podatke i na kraju godine se samo isprinta.

Nešto slično tome,samo ja u sheetu od predmeta nemogu imat stupce po mjesecima jer je puno informacija. Pa mijenjam svaki mjesec informacije,to bi značilo da bi za jedan predmet trebal imat sheet za svaki mjesec.

Pokušavam sa if formulom. U jednu ćeliju sam stavio mjesec,pa da on ovisno o broju mjeseca sprema podatke na godišnji sheet,ali kad promjenim broj mjeseca predhodno se izbriše. Sada mi treba neka formula da automatski spremi i ostavi to spremljeno (da se više ne mijenja ,ovisno o broju),zaključa ili tako nešto.

Zvonimire

Sve je ovo gubljenje vremena (kojeg vjerujem nemaš)

Ovakvo, parcijalno polovičan i nepotpun uvid u cjelokupnu situaciju i organizaciju tvojih podataka je lutanje excelom od A do Ž i natrag.

Da bi ti netko eventualno mogao pomoći mora imati uvid u cijelu situaciju i vidjeti je li ti organizacija podataka svrsishodna.

Koliko vidim iz ovoga tvog primjera treba ti iskusan VBA Excel programer a i to je upitno jer nema dovoljno informacija. (no možda griješim)

Ili možda se to može riješiti formulama ako su kopiranja fixna na određene destinacije.

konkretno ovaj primjer koji si dao rješava se sa Copy/Paste Special/Transpose ali to je samo za ovu situaciju a tko zna koliko ih može biti.

Dobio si primjer za linkanje podataka dnevno/mjesečno/godišnje (mislim na formulu)

Dakle vraćam se na tvoj primjer.

Ako u E1 upišeš 12/13 onda bi Excel trebao povući podatke za 12 mjesec na Sheet2.

Ovo ne možeš riješiti formulama jer je određena destinacijska ćelija uvijek vezana za izvornu (u tvom slučaju za E1 na Sheet1)

Preostaje ti jedino VBA procedura uz određeni uvjet u ćeliji E1.

To bi nekako došlo ovako (riječima)

Prvi uvjet: ako u E1 piše 1/13 tada kopiraj podatke u range C4:J4

Drugi uvjet ako u E1 piše 2/13 tada kopiraj podatke u range C5:J5

I tako do 12 uvjeta.

I to naravno da nema brisanja poslije prvog ili trećeg uvjeta...

Dakle ovo je samo jedna kockica mozaika. Ostaju ostale kockice mjesečne (za 12 mjeseci) pa kockica koja će skupljati podatke godišnje itd itd...

Nadam se da shvaćaš koliko je to kompleksan zadatak (ili možda nije za nekoga?)

pozz

Evo uspio sam naći VBA formulu što se tiće primjera. Tako da ima ako će još kome trebat. Obratio sam se jednom drugom forumu i tamo mi je jedan čovijek uspio pomoć.

A vama ostalima hvala na trudu :) 

Sub Copy_info()

Dim C As Integer Dim DEST As Worksheet

Dim Key As String Dim Mnth As Integer

Dim Mrow As Integer

Dim SRC As Worksheet

'Setup source and destinations

Set SRC = Sheets("Sheet1")

Set DEST = Sheets("Sheet2")

'Fetch month and calculate month's row

Key = SRC.Range("E1").Value

Mnth = CInt(Left(Key, InStr(Key, "/") - 1))

Mrow = Mnth + 3 'Jan at row 4

'Copy the info as long as there are values, starting at row 2

C = 2

While SRC.Cells(C, "A").Value <> ""

DEST.Cells(Mrow, C + 1).Value = SRC.Cells(C, "B").Value

C = C + 1

Wend

End Sub