Příspěvky uživatele
< návrat zpět
Radšej si ten obrázok premenujte. Pri spustení kódu na inej jazykovej verzii Excelu to rado robí problémy ak sa ponechá predvolený názov. Napr. takto:
Sub Rename()
Dim old As String
On Error GoTo CHYBA
old = Selection.ShapeRange.Name
Selection.ShapeRange.Name = "pic1"
MsgBox ("Premenovaný objekt " & old & " na " & Selection.ShapeRange.Name)
Exit Sub
CHYBA:
MsgBox ("Chyba !")
End Sub
Myslíte takto ? Je tam potom vypnutá chybová hláška v overovaní dát, aby ste mohli zadať aj neexistujúci text, viď ukážka.
Tak ?
Marekkoc napsal/a:
V tom test1 zůstane tabulka z test2. Mě jde o toto: nech se jen přilepí první strana z test2 k první straně test1, ale pouze ve výsledném pdf klidně jako obrázek. Bylo by fajn kdyby to bylo v rámci jedné stránky pdf, protože tabulky jak z test1 tak test2 mají max 25 řádků.
Prvou vetou odporujete druhej. Ja som Vám to urobil tak, že sa druhá tbl prilepí k prvej, vyexportuje sa to spolu na jednej stránke, a prilepená tbl sa znovu "odlepí". Pričom to prilepenie berie do úvahy vždy aktuálne veľkosti tabuliek.
Ale snaha vyriešiť to sám sa cení. Chválim.
Ak poodpovedáte na otázky od xlnc, tak pošlite prílohu, pretože nemáme na čom to želané makro postaviť. Ale tiež si myslím, že ak nepotrebujete data uchovávať, tak prečo nepoužiť nachystanú čistú šablónu ? Ale nieje problém makro napísať. Len tú prílohu, aby sme videli štruktúru tej tbl, prípadné formáty, orámovania, vzorce, prepojenia, okolité bunky ... . Citlivé info zmente.
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.
Uživatelské menu
\nMenu
On-line nástroje
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
RSS nejnovější články