Příspěvky uživatele

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.

SK/EN
=IF(SUM(A1:C1)<0;"";SUM(A1:C1))

CZ
=KDYŽ(SUMA(A1:C1)<0;"";SUMA(A1:C1))

Mrkol som na to, čo popísal Alfan, ale narazil som na problémy, napr.:
-Jazyková verzia - každý export do CSV, exportuje rovno lokalizované názvy položiek. Čiže v CZ/SK/EN Office budú CSV iné. Ale ak si poradí Google Import s CZ, ako vraví Alfan, tak si určite "preberie" aj iné lokalizácie. Názvy položiek som vyriešil pre CZ a SK vzorcom. Prehadzovanie samotných stĺpcov s dátami pri prepnutí verzie Office by sa dalo poriešiť makrom. Možno pri importe je možnosť priradenia polí...
-Horšie je, že položky sú v rôznych verziách Office iné. Alfan poslal CSV tipujem z v.2010/2007, ak to porovnávam z CSV z v.2013, tak sú položky 16,17,18,19 (Miesto konania,Popis,Priorita,Súkromné) navzájom poprehadzované. To som ľahko vyriešil pomocou vzorcov.
-Ďalšia vec je, že treba zistiť (možno metódou pokusov), ako sa vlastne presne volajú v každej lokalizácii, konkrétne voľby niektorých položiek (Priorita, Súkromné, Utajenie) aby bolo možné pri zadať správne údaje.

Každopádne, tu som vytvoril, taký návrh, v ktorom mám ošetrené čiastočne prepínanie medzi verziami, mení to aj celé stĺpce 16,17,18,19 tak ako majú byť, poskladanie dát, uloženie CSV. Prehadzuje aj SK/CZ lokalizáciu, ale nieje doriešený práve posledný bod, to ale bez znalosti tých volieb nepôjde. Snáď nepíšem nezrozumiteľne...

Ešte raz opakujem, že to NIEJE hotové!

Příspěvky uživatele

Uživatelské menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje