Excel VBA pomoc Vyřešeno

Programy pro práci v kanceláři (Word, Excel, Access…=>Office)

Moderátor: Mods_senior

tomtom
nováček
Příspěvky: 4
Registrován: leden 11
Pohlaví: Nespecifikováno
Stav:
Offline

Excel VBA pomoc

Příspěvekod tomtom » 21 led 2011 16:48

Zdravim, jsem tu novy....
s mesicni pravidelnosti se setkavam s excelovymi soubory s obrovskym mnozstvim dat (reporty). Nicmene, problematika VBA je pro mne Zatim velkou neznamou, proto jsem na internetu nasel Vasi stranku...

Jednim z problematickych reportu je pro mne prilozeny soubor, pojmenovany nahodne File_1
pokud si jej otevrete, , v sheetu "Report" muzete videt v jake podobe dostavam data ze systemu (report jsem zredukoval a pouzil pouze pro ukazku, v normalni podobe ma cca 18.000 (!!) radku) z radku C a F jsem vyrobil Pivot (omlouvam se za anglicke nazvy, snad to nedela problemy ) a pivot jsem umistil do sheetu "Pivot" , kde muzete videt v radku A "ucty" a v radku B sumy (povetsinou jsou zaporne (nebudu Vas zatezovat o ktera cisla jde, jen nastinuji problematiku)...

to bychom meli File_1 a dostavame se k problemu, ktery by jiste sel resit s velkou usporou casu...

princip File_2 je vzit hodnoty z File_1 a priradit je ke kazdemu sheetu...

pro priklad : ucet cislo 184030 mel v prosinci -14.530,70 , a mou naplni je vyhledat nazev sheetu, pridat radek s aktualnim mesicem a vyplnit hodnotu...
znovu pripominam, ze report v normalni podobe ma cca 18.000 radku, coz odpovida cca 250(!!) "uctum" a vyplnovani jedne bunky po druhe mi zabere cca hodinu a pul casu, ktery bych mohl samozrejme vyuzit jinak...
to ale jeste neni vsechno... vsimnete si prosim sheetu "320021" , kde v reportu nebyl zadny zaznam... tam je potreba vyplnovat nulu...
a navic, pokud nahodou behem mesice vznikne "ucet" ktery neni uveden v tom mem File_2 (coz se muze stat) je potreba vytvorit novy sheet s tabulkou, podle ostatnich... to vse s aktualnim mesicem a formatovanim odpovidajicimu sheetum ostatnim...

Doufam, ze existuje moznost jak cely proces urychlit a venovat pozornost jine cinnosti nez ctrl+c a ctrl+v :roll:

Obracim se na Vas, pokud byste vedel, jak mi usetrit cas, byl bych Vam velice vdecny..


v pripade dalsich dotazu mile rad odpovim...

--- Doplnění předchozího příspěvku (21 Led 2011 16:49) ---

v teto priloze file_2 ...
Přílohy
File_2.xlsx
(14.14 KiB) Staženo 42 x
File_1.xlsx
(45.08 KiB) Staženo 35 x

Reklama
navstevnik
Level 4
Level 4
Příspěvky: 1142
Registrován: srpen 08
Pohlaví: Nespecifikováno
Stav:
Offline

Re: Excel VBA pomoc

Příspěvekod navstevnik » 21 led 2011 17:29

Pro upresneni:
Z uvedenho vyplyva, ze ve File2 je 250 a vice listu pouze pro jednotlive ucty.
Je zapotrebi pro konkretni mesic (napr. prosinec 2010) na kazdem listu (uctu) doplnit krome mesice a cisla uctu odpovidajici data z File1 - kontingencni tabulka vygenerovana z dat na listu report, pokud nejsou data ve File1, vlozit nulovou hodnotu.

Je zadouci overit, zda Report obsahuje data pouze za konkretni mesic?
Mohou v reportu byt cisla uctu neobsazena ve File2?
Struktura na listu Report je totozna s demoukazkou File1 (hlavickovy rade, sloupce,...)? Totez pro ucty ve File2. Nazev listu ve File2 vzdy odpovida cislu uctu? Pokud ne, pripoj demo s realnou strukturou obou souboru.
Resenim muze byt procedura VBA, ktera vygeneruje kontingencni tabulku a doplni do File2 data.
Naposledy upravil(a) navstevnik dne 21 led 2011 17:42, celkem upraveno 1 x.

tomtom
nováček
Příspěvky: 4
Registrován: leden 11
Pohlaví: Nespecifikováno
Stav:
Offline

Re: Excel VBA pomoc

Příspěvekod tomtom » 21 led 2011 17:39

upresneni:
ano ve file2 je 250 a vice listu pouze pro jednotlive ucely, novy mesic se posouva vzdy na novy radek pod ten stary s nazvem mesice, cislem "uctu" a hodnotou... pokud neni ve file1, tak nulovou hodnotu a naopak, pokud neni list ucet v listu, vytvorit jej.. (ale tento pripad se stal jednou za posledni rok...)

Report obsahuje poze data za posledni mesic - data z predeslych mesicu se nemeni, pivot z reportu sice bere data i z mesicu predeslych (kdyz das filtr muzes vide, ze jsou tam data i za rijen, listopad, prosinec, ale ta se pisou jako za tento mesic)

Struktura File1 je totozna s reportem, ktery mi vyjede ze systemu - radky , sloupce sedi presne (jen radku je cca 18.000 s ruznymi cisly uctu - tady pro predstavu jsem uvedl pouze 4)

navstevnik
Level 4
Level 4
Příspěvky: 1142
Registrován: srpen 08
Pohlaví: Nespecifikováno
Stav:
Offline

Re: Excel VBA pomoc

Příspěvekod navstevnik » 21 led 2011 17:48

ze jsou tam data i za rijen, listopad, prosinec, ale ta se pisou jako za tento mesic

tedy budou zahrnuta do dat za prosinec?

tomtom
nováček
Příspěvky: 4
Registrován: leden 11
Pohlaví: Nespecifikováno
Stav:
Offline

Re: Excel VBA pomoc

Příspěvekod tomtom » 21 led 2011 18:11

ano

navstevnik
Level 4
Level 4
Příspěvky: 1142
Registrován: srpen 08
Pohlaví: Nespecifikováno
Stav:
Offline

Re: Excel VBA pomoc

Příspěvekod navstevnik » 22 led 2011 11:58

V priloze je pracovni verze souboru, který vykoná pozadovane, poznamky na listu.
Pri otevreni souboru povol makra, uprav zadani parametru podle skutecnosti, spust.
Predpokladem spravne funkce je, ze struktura realnych souboru je identicka s demo soubory File1 a File2
Pred vyzkousenim si zálohuj realne soubory "File1" a "File2".
Přílohy
PrenosDat.xlsm
(34.5 KiB) Staženo 37 x

tomtom
nováček
Příspěvky: 4
Registrován: leden 11
Pohlaví: Nespecifikováno
Stav:
Offline

Re: Excel VBA pomoc  Vyřešeno

Příspěvekod tomtom » 22 led 2011 15:14

vypadá to slibně, zkusim to v pondeli "naostro" a dam vedet.
Dekuju :-)


  • Mohlo by vás zajímat
    Odpovědi
    Zobrazení
    Poslední příspěvek
  • EXCEL -jak otevřít 2 excel sobory abych je viděla současne a samostatně
    od Ketty02 » 30 srp 2024 21:19 » v Vše ostatní (sw)
    2
    4784
    od Riviera kid Zobrazit poslední příspěvek
    02 zář 2024 16:21
  • Přechod z Excel 21 na Excel 24
    od Snekment » 29 led 2025 13:46 » v Kancelářské balíky
    2
    12194
    od Snekment Zobrazit poslední příspěvek
    29 led 2025 15:05
  • Pohoda a excel Příloha(y)
    od brownwld » 06 kvě 2025 17:28 » v Kancelářské balíky
    1
    4629
    od atari Zobrazit poslední příspěvek
    07 kvě 2025 09:41
  • Excel - výpočet nočních hodin Příloha(y)
    od Uziv00 » 17 říj 2024 11:22 » v Kancelářské balíky
    3
    3318
    od lubo. Zobrazit poslední příspěvek
    24 říj 2024 00:00
  • Tisk sloupců vedle sebe na A4 - Excel
    od atari » 24 dub 2025 10:51 » v Kancelářské balíky
    5
    3909
    od atari Zobrazit poslední příspěvek
    26 dub 2025 09:11

Zpět na “Kancelářské balíky”

Kdo je online

Uživatelé prohlížející si toto fórum: Žádní registrovaní uživatelé a 4 hosti