Příspěvky uživatele

Dajme tomu, že je 12:30:00. Aký čas nastavujete v makre? Napr. 12:32:00? Musí sa spustiť o 12:32:00. Potom ako sa vykoná, je opäť naplánované na 12:32:00 ale nie dnes.
Urobte pokus, nastavte v tomto pokusnom makre čas teraz + 2 min, aby ste mal čas. V makre UpdateCell nastavte čas teraz + 4 min. Spustite toto makro Pokus. O 2 min sa spustí makro UpdateCell, to prebehne a svoje ďalšie spustenie nastaví o ďalšie 2 min. Teda behom 4 min, uvidíte 2x spustenie makra UpdateCell. A ďalšieho sa dočkáte až zajtra (teda to je predpoklad, že to tak funguje, nikdy som neskúšal čakať deň).
Sub Pokus()
Application.OnTime TimeValue("12:32:00"), "UpdateCell"
End Sub
Sub UpdateCell()
Application.OnTime TimeValue("12:34:00"), "UpdateCell"
ThisWorkbook.RefreshAll
Call mojemakro
End Sub

Sub SaveSheet()
ThisWorkbook.Worksheets("Hárok3").Copy
With ActiveWorkbook
With .Worksheets(1).UsedRange
.Value = .Value
End With
Application.DisplayAlerts = False
.SaveAs "e:\Download\novy.xlsx", xlOpenXMLWorkbook
Application.DisplayAlerts = True
.Close False
End With
End Sub

Č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)

Příspěvky uživatele

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje