Příspěvky uživatele

Urobil som Vám tam teda aj dynamické adresovanie zaplnenej oblasti (skôr ako sa opýtate

). Inak je naozaj dobré si otázku/y premyslieť trošku lepšie, ale tiež chápem, že to nieje vždy úplne možné.

OT @xlnc: To je ešte vcelku v pohode. To že Lubošovy zatiaľ nejde moc Excel alebo komunikácia na fóre ... no niekto vie zasa niečo iné. Manželka by napr. rada aby som vedel variť, ja tiež (a že som sa iniciatívne pokúšal), ale "štipka" ? "trochu povariť" ? "tak akurát na zub" ? Čo to je za výrazy ??? No proste na to niesom.

Stále to beriem z tej lepšej stránky. Zatiaľ Peace.

Konečne som sa po čase dobre zasmial. A to nieje sarkazmus, tá konštrukcia
If blnNalezeno = True Then Ponozky.Navlect
, no akoby som to ... skoro som sa ...

No ale chudák pýtajúci sa, si môže myslieť, že si tu z neho robíme srandu, ale tak to nieje. Tak snáď nieje suchár a chápe to. Aby sa neurazil, pretože nie každý vôbec odpovedá ako problém vyriešil, a už vôbec nie každý sa ho snaží aj sám riešiť.
Palec hore za ten frk.

EDIT: A ak by ste mali tie názvy dní naformátované ako dátum vo formáte "dddd", tak napr (maticovým vzorcom - Ctrl+Shift+Enter) :
SK
=SUM((WEEKDAY(POKLADNA!E2:E1253;2)=1)*(POKLADNA!H2:H1253))
CZ
=SUMA((DENTÝDNE(POKLADNA!E2:E1253;2)=1)*(POKLADNA!H2:H1253))

Takto. A ešte som Vám tam doplnil výber druhu firmy cez Overenie dát, je to bezpečnejšie. Dodávam, že to Overenie máte iba v B2 zatiaľ.

No ešte tú tabuľku poprosíme...
a) buď je väčší súbor ako 256 KB
b) alebo ste ju nezabalil cez WinRAR, WinZIP, 7-ZIP, TC, ...

Priznávam farbu, ani ja som to veru poriadne nepreštudoval, pritom stačil 1 klik.
Zjednodušená verzia, ale ak niekto chce môže si tam elementy dopísať. Preklad je tam len pre prípad, že niekto tých pár fráz po EN neovláda.

Napr takto, a nezostane Vám tam tá tabuľka po exporte.

EDIT: Príloha aktualizovaná (16:28).

No tak si počkáme na tie EN názvy od niekoho ochotného...

Ak viete, že v liste 1 sa nevyskytuje viac strán ako 1, tak takto:
Sub PDF()
Dim a As String, FDoklad as String
a = "K:\1\"
FDoklad = "dokladXY"
Sheets(Array("test1", "test2")).Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
a & FDoklad & Format(Now, "yyyymmdd"), Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, From:=1, To:=2, _
OpenAfterPublish:=False
Sheets("test1").Select
End Sub
Ak ale v liste 1 je viac strán, a Vy potrebujete exportovať iba prvú + prvá z listu 2, tak ma napadá jedine zlúčenie oboch prvých strán do jedného dočasného listu,a ten exportovať.

Ak máte Excel 2013, AVERAGEIFS ste skúšala ? (CZ ekvivalent neviem.)

EDIT: Prikladám aj pár príkladov riešení. Dobré by bolo poslať prílohu.

Takže tu je súhrn navrhnutých metód (+ jedna, čo ma napadla teraz) a ich časy.
http://uloz.to/xqWXAGZa/presun-sloupcu2-rar
U posledných od Vovky aj mňa je potrebné ešte zmazať tlačítko (premenoval som ho na btnTest) a list "List2" namiesto ktorého bude list Test/Test2. To TXT pole a zoznam metód tam nebude, tak netreba riešiť.
Proste mi najlepšie vychádza stále ten vzorec, ktorý som teraz nakopíroval s rezervou na 30000 riadkov.

Stále ale žiaľ nerozumiem presne ktorý stĺpec kam. Mätie ma tam to slovné spojenie
"Do listu 2 vložit sloupce v tomto pořadí:"
čo znamená, že idem po stĺpcoch v poradí (1,2,3,...) ukladám požadované stĺpce = napr. stĺpec G bude zaplnený stĺpcom H atď.
Ak by bolo napísané "s týmto priradením", evokovalo by to už niečo úplne iné, a to že do stĺpca A daj A, do M daj O = nap. G bude prázdny.
Neznášam slovné úlohy, vždy v nich nájdem (pre mňa) niečo nejasné.

Každopádne treba tomu prispôsobiť makro.

Podľa mňa technicky nieje problém v ničom. Máme tu riešenie na "pár" stoviek riadkov pomocou "dlhších" vzorcov. Máme tu 2 makro riešenia (s Vašim už 3). Po tom čo bolo upresnené, že pôjde o desaťtisíce riadkov, som upravil vzorec na kratší, a u mňa je to v pohodičke na 23000 riadkov. Vaša metóda Copy je u mňa príliš pomalá, a nemaže data pred vložením. U mňa to hroózne laguje.
Tu posielam tie upravené vzorce na 23000 riadkoch, dokonca s vytváraním Hyperlinkov.
Stále ale neviem, ktorý stĺpec z tých posledných kam patrí...
Na kvalitné posúdenie, budeme potrebovať aj vzorku tých pomalých vzorcov.
http://uloz.to/xNW2sGZa/presun-sloupcu1-rar

To možné asi nebude. Viď súčasná debata o probléme.

Tu máte na skúšku 2 verzie kopírovania. Nestopoval som to, ale ani jedna možnosť sa nedá použiť napr. pri aktivácii Listu2, lebo na 23281 riadkoch makro trvá cca 1,5 s. Tak som Vám tam dal aj tlačítko. Tlačítku priradte makro Kopiruj1 alebo Kopiruj2. Potom skúste aj v Worksheet_Activate odstrániť apostrof pred Call, a rovnako navoľte Kopiruj1 alebo Kopiruj2. Vyskúšajte. Ak sa budete chcieť vrátiť k tlačítku musíte opäť odstaviť volanie v Worksheet_Activate pridaním apostrofu.
Potom treba ešte raz úplne presne najlepšie príkladom v prílohe, vysvetliť ktorý stĺpec kam má isť. Nenapísal ste to teda vôbec zrozumiteľne. Neviem či korešpondujú hlavičky v List1 a List2, ale v prvom poste spomínate úplne iné stĺpce ako sú napísane v prílohe, navyše v tom popise absolútne nerozumiem tomu N a P. Normálne skopírujte 1 riadok dát ktoré kam chcete a pošlite, lebo takéto slovné hračky moc nemusím.

Zatiaľ bez makra. Vzorce máte po riadok 1001. Podmienka je aby v stĺpci A neboli prázdne bunky.
PS: Viete o tom, že za riadkom 12294 Vám začínajú nejaké data ?
Ak chcete aj makro, napíšte.

Použil som INDEX. To bude lepšie ako OFFSET(POSUN). Skúste.

Příspěvky uživatele

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje