Příspěvky uživatele

No tam je na úpravu vhodného podstatne viac. Ten formulár má slúžiť aj na zmenu už existujúceho záznamu? Alebo len pridanie nového? Akonáhle vidím, že máte filtrovacie tlačítka, nebude fungovať xlUp nájdenie posledného záznamu. Na to pozor, môžete si znehodnotiť dáta. MS postupne verziami zmenil a zneistil nájdenie posl. bunky cez xlUp, xlDown, aj pomocou Find metódy, ak sú filtrované riadky. Ešte ostáva UsedRange, ale tá u Vás dáva >1000 riadkov, čo nevadí, pretože môžete načítať komplet dáta listu do poľa a neskôr ich rýchlo načítať (namiesto načítania z jednotlivých buniek). Pole sa dá na začiatku zmenšiť. Prečo používať Me.Controls("lblmonth") a nie lblmonth??? Rovnako zbytočné je VBA.Day(), stačí Day().
Trochu sa Vám v tom pokutrem, a uvidím čo (a či) stihnem poslať...
Len dajte vedieť o tej úprave.

!!! Skúšajte to VÝHRADNE NA KÓPII nejakej časti z tých súborov !!!

Nakopírujte si ich do nejakého skúšobného adresára.
Loguje a ošetruje to spústu stavov. Použil som novú inštanciu Excelu, a je to oveľa rýchlejšie, ale pozor, ak by ste pri debugovaní ukončil makro, ostane inštancia visieť, a treba ju manuálne ukončiť v správcovi procesov.
Dajte vedieť.

Ak to vydrží do poobedia, spravím. Už to mám zväčša premyslené. Ešte domyslím logovanie (ide o úpravu súborov, log je dôležitý). Len čakám servisáka a musím si robiť nejakú prípravu tak nie je čas ...
Môže sa ten hľadaný text nachádzať v liste viackrát? Ak áno, treba kontrolovať/nahradiť všetky výskyty?

Do modulu ThisWorkbook (Tento_zošit) vložte:
Private Sub Workbook_BeforePrint(Cancel As Boolean)
With Worksheets("Hárok1")
.PageSetup.RightFooter = .Range("A3").Value
End With
End Sub
Ale v náhľadovom okne to ešte neuvidíte, až keď dáte tlačiť, tak sa kód vykoná.

Bezpečnejšie bude použiť Intersect, aby to odchytilo aj viacbunkovú zmenu.
If Not Intersect(Target, Range("A3")) Is Nothing Then Call tvojeMakro

Cez Custom UI Editor.

A čo to má robiť?

Ak globálna karta pre všetky súbory, tak vytvoriť vlastný doplnok XLAM. Cieľový súbor akcií bude ktorýkoľvek aktívny, a nemusí byť XLSM.

Ak lokálne iba pre daný súbor, tak iba ten upraviť v Custom UI. Cieľový súbor bude len ten s úpravou. Musí byť XLSM.

Musíte bližšie vysvetliť, čo chcete checkboxovať, a čo prepínať. Lebo musíte riešiť aj uchovávanie hodnoty (true/false checkbox-ov, prípadne index OptionButton-ov).

Pr.

Na akej verzii Office sa to bude prevádzkovať (kvôli pokročilým funkciám v novších verziách) ?
Mám muster s pomocou obyč funkcií, ale kvôli zložitosti nepokračujem, ak máte novší Office, použijem iné fnc.
Takže verzia?

A ešte upresnenie:
Vy hľadáte vždy jeden z 3 možných basic textov (nepoužívajme "slov", lebo "servisní paušál" nie je slovo) "oprava","opr.","servisní paušál" ?
Následne hľadáte, čo nastane skôr, či nejaké číslo, alebo 2. medzera?
Môže nastať situácia, keď bude nájdený basic text, ale nebude nájdená 2. medzera ani číslo na ním ? (teda výsledok pokračuje do konca obsahu)

Skúste skontrolovať systém, cez CMD:
DISM.exe /Online /Cleanup-image /Restorehealtha
sfc /scannow

Ešte chýba 2016 a 2010, nemám ... Pridal som čudlík, čo to všetko zistí, ale na položku "Produkt" sa nedá spoľahnúť (fnc som si našiel rýchlo na nete), lebo do toho vstupuje druh licencie a aktualizačného kanála ... to je fuk, to si každý prečíta v "Súbor - Konto - informácie o produkte".
Inak ak mám okno iba na polke obrazovky, sú niektoré hodnoty o 1 menšie.

Sakriš, u mňa na O365 normálne fungujú aj Vaše aj nové. Nemôžete ten O2019 preinštalovať?

A ak vytvoríte nový SpinButton, ten funguje OK?
Jedná sa ActiveX alebo formulárový SpinButton?

??? Chcete povedať, že slovo "Přechod" kvôli "ř" nenájde? Mne to normálne funguje. Aký je to Office? Verzia, jazyková mutácia, jazyk systému?
V prílohe výsledok:

Pr.

Nejaké príklady. Sú potrebné upresnenia:
-mení sa počet stĺpcov?
-menia sa názvy stĺpcov?
-majú stĺpce hlavičky?
-sú to jednoliate dáta, alebo s medzerami?
-ktorý stĺpec je smerodajný pre počet riadkov?
-výstup má byť tabuľka alebo Tabuľka (objekt)?
...

Příspěvky uživatele

Uživatelské menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje