Příspěvky uživatele

Čo znamená "stejně nic"?
Nespustí sa naplánované makro? Mne áno.
Spustí ale neaktualizuje sa? Mne áno.
Neotvorí MAKRO1? Mne áno.
Otvorí ale nezavrie - tu nastáva chyba. Workbooks() potrebuje názov súboru, teda "MAKRO1.xlsm", nie iba "MAKRO1".
Vyhodí nejakú chybu? Mne áno, viď vyššie.
Skúste nepoužiť ActiveWorkbook ale použite to čo ja teda ThisWorkbook. Pretože nie je zaručené, že v momente naplánovaného spustenia makra, bude aktívny zrovna zošit s makrami.
Skúste dať pred Close ešte Save
Sub mojemakro()
With Workbooks.Open(ThisWorkbook.Path & "\" & "MAKRO1.xlsm")
.Save
.Close True
End With
End Sub

A kde máte Application.OnTime s nejakým Vašim volaným makrom? Ja tam vidím iba moje "Aktualizacia_Dat". Také makro Vy neuvádzate. Ak je namiesto môjho "Aktualizacia_Dat" Vaše makro UpdateCell, potom ho musíte volať/nastaviť v Application.OnTime
Application.OnTime TimeValue("10:28:00"), "UpdateCell"

Na prianie pridávam oba varianty pre Rayfilm Office 38x21,2 0102.

V tom prípade je to ešte jednoduchšie
=SUBSTITUTE(B1;"??/??";C1)&" "&A1
=DOSADIT(B1;"??/??";C1)&" "&A1
Akurát, že ozaj 20/2022 ??? To je čo za mesiac?

A ak opäť nesedí ani upresnený popis, a otázniky tam nie sú, tak:
=LEFT(B1;SEARCH("Expirace: (";B1)+10)&C1&")</p> "&A1
=ZLEVA(B1;HLEDAT("Expirace: (";B1)+10)&C1&")</p> "&A1
a to ešte čakám, že doupresníte, že raz tam "Expirace : (" je, inokedy nie, alebo, že to nemusí končiť na ")</p>"

Pokus ???:
=A1&" "&LEFT(B1;IFERROR(SEARCH("expirace (";B1)-1;LEN(B1)))&"expirace ("&C1&")"
=A1&" "&ZLEVA(B1;IFERROR(HLEDAT("expirace (";B1)-1;DÉLKA(B1)))&"expirace ("&C1&")"

Čo si Vy predstavujete pod pojmom "proměnné" (nie, nenarážam na Kefalína

) ??? Premenné sú v makre, v tomto prípade by sa dala použiť kolekcia či pole. V Exceli sú vzorce a bunky. Tak ako? Chcete výpis dní do nejakých buniek? Kam? Aký je rozsah skúmaných buniek? Obrázok je super, ale to si máme pre odladenie vzorcov/makier opäť vyrábať prílohu my? Šup sem anonymizovanú prílohu - súbor Excelu, so zachovaným rozložením a formátom dát. A s príkladom požadovaného výsledku (umiestnenie, forma, ...)

EDIT:
Naschvál nedám Excel prílohu, ale len vzorec, a aj to naschvál len v SK, a bez návodu, aby ste to mal ťažšie, aby ste sa snažil a nabudúce polepšil s prílohou

=IFERROR(INDEX({"pondelok";"utorok";"streda";"štvrtok";"piatok";"sobota";"nedeľa"};SMALL(IF(COUNTIFS(OBLAST;$G$2&"*";OBLAST;"*"&{"pondelok";"utorok";"streda";"štvrtok";"piatok";"sobota";"nedeľa"}&"*")>0;{1;2;3;4;5;6;7};FALSE);ROW(A1)));"")

Tu máte Excel Only riešenie vzorcami. Treba vyskúšať, najskôr vytlačiť na obyčajný papier, porovnať so štítkovým, či to sedí. Lebo Excel nie je možné nastaviť tak presne. Pozor, radenie zložitejšími vzorcami v Definovaných názvoch. Bez pochopenia nemeniť ani vzorce ani rozloženie tabuliek.

Word má na etikety Avery Zweckform 3650 vstavanú šablónu pre Hromadnú korešpondenciu. Dá sa to cez neho robiť tak, že si upravíte Excel, uložíte a zatvoríte. Otvoríte Word, ten bude chcieť hneď aktualizovať, a potom tlačíte, ale po 1 strane. Neviem, či Vám dovolí tlačiareň podávať viac tých štítkových strán za sebou z podávača automaticky. Prípadne všetky strany na tlačenie si viete zobraziť v novom dokumente cez Dokončiť a zlúčiť - Upraviť jednotlivé dokumenty. Viete si to nastaviť (Korešpondencia - Spustiť hromadnú korešpondenciu - Sprievodca krokmi hromadnej korešpondencie) ? Tam si nastavíte aj filter na prázdne aj zoradenie, aby šli po sebe rovnaké. Toto by malo byť presné. Lebo Excel nie je grafický SW, takže ak to budeme robiť cez Excel, tak jedine spôsobom odhadu, pokus omyl, a nastavenie približných výšok riadkov, aby sme trafili štítky na stránke.

Nejde mi vložiť príloha, tak teda Google Drive

Moje nervy. Samozrejme, že okraje a rozmer ROZHODUJE, ak máte štítkový papier - taký na ktorom sú štítky predperforované/rozdelené ! A ak máte iba nerozdelený papier, iba vtedy nie ste limitovaný rozmermi. Na to som sa pýtal.
A ak je to ten druhý prípad (nerozdelený papier, nerozštítkovaný papier od výrobcu), tak aj vtedy treba brať trošku ohľad na veľkosť plochy boxu s jedlom. Včera som zrovna vyhadzoval 2 diametrálne rozličné jednorazové baliace boxy na jedlo, a to mávam ešte tretí druh, ktorý je zase úplne iný a menší, a na ten rozhodne štítok o šírke A4 nenalepíte.

70x20 - teda vľavo a vpravo bezokrajová tlač? Určite? Ak nie, treba myslieť na odsadenie textu od okrajov.
Takže 3 stĺpce - odpovedám si sám.
Hore a dole bezokrajová tlač? Určite? Často to je tak, že hore cca 5 mm a dole cca 12 mm tlačka nevytlačí. Áno aj laserovky.

Filter jedla - odpoviem si sám - netreba.

Makro - to si radšej počkám na odpoveď, aj keď by to šlo navzorcovaním s vypočítavanou oblasťou tlače.

Ale veď porozprávam sa aj sám...

Meno a jedlo vedľa seba? Teda to budú úzke pásiky? Alebo meno a jedlo pod seba (teda 2 riadky na štítok) a 2 stĺpce štítkov na stranu? To máte samolepkovú A4 alebo štítkovú A4? Ak štítkovú, treba uviesť presné rozmery okrajov aj štítkov. A predpokladám, že bez makra to chcete.

Inak na čo je tam ten filter jedla??? Veď musíte vytlačiť všetky jedlá za vybraný deň, a jedlo je pri mene uvedené. Filtrovať jedlo je zbytočné.

A ako má ten štítok vyzerať?

Na to je predsa Kontingenčná Tabuľka. A áno, tú KT napojíte priamo na PowerQuery dotaz, ktorý tam mimochodom nie je. A pochybujem aj o reálnosti toho výstupu v Zdroj. Bez názvov stĺpcov ??? A ten "dátum" nie je dátum, to treba previesť už v tom PQ na 1.X.rok alebo rozdeliť na 2 čísla vyjadrujúce mesiac a rok.

=IF(List1!A1="";"";"TEXTPŘED"&List1!A1)
=KDYŽ(List1!A1="";"";"TEXTPŘED"&List1!A1)

Vyskúšajte to s Vašim súborom a nejakým skorším časom, aby ste nečakal do rána :)
Možno bude treba aktualizovať Connections, PivotTables, Queries aktualizovať samostatne po jednom, s vypnutím BackgroundQuery, aby to čakalo na dokončenie. Neviem, čo tam máte.
Pri pokusoch nezabudnite potom pokusný čas z naplánovaných zmazať pomocou SERVICE_PROC_STOP.
Sub Aktualizacia_Dat()
Dim Cesta As String

With ThisWorkbook
.RefreshAll
Cesta = .Path & "\"
.Save
End With

With Workbooks.Open(Cesta & "MAKRO1.xlsm", True)
.RefreshAll
.Close True
End With

Application.OnTime TimeValue("04:00:00"), "Aktualizacia_Dat"
End Sub
Sub SERVICE_PROC_STOP()
On Error Resume Next
Application.OnTime TimeValue("04:00:00"), "Aktualizacia_Dat", Schedule:=False
End Sub

Takže v súbore "MAKRO.xlsm" bude makro, ktoré naplánuje v udalosti Application.OnTime (na najbližší čas 04:00 v noci) spustenie druhého makra v tomto súbore "MAKRO.xlsm". To druhé makro spustí aktualizáciu všetkých dát v tomto súbore "MAKRO.xlsm", uloží tento súbor. Stále sme v tom istom súbore "MAKRO.xlsm".
A teraz, načo sa má otvárať súbor "MAKRO 1.xlsx" (.xlsm ?), ukladať a zatvárať? Pri jeho otváraní dôjde k nejakej udalosti jeho vlastného makra Workbook_Open či aktualizácii dotazov? Ak nie, tak je popisovaná manipulácia zbytočná.

Příspěvky uživatele

Uživatelské menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje