Příspěvky uživatele

Bez skúšania od boku:
Namiesto
ReDim Datova_oblast(1 To UBound(Sledovana_oblast), 1 To 2)
dajte
Datova_oblast = .Range("K4:L100003").Value

With wsSouhrn 'Jméno listu
tam máte zbytočne ak ho nepožijete, takže zmeňte
Sledovana_oblast = wsSouhrn.Range("O4:O100003").Value
na
Sledovana_oblast = .Range("O4:O100003").Value
a
With wsSouhrn.Range("K4")
na
With .Range("K4")

@lubo: nefunguje to správne, ak sa niekde v texte nachádza číslo bez ohraničujúcich "[]" pred číslom v "[]", nájde to samostatné číslo, nie to v "[]".

Napr.:
Vojta 123 Pavel Miroslav Libor [12345] Marek
nájde to 123 namiesto 12345.
Ten zložitejší pattern z GPT vráti správne 12345 v oboch prípadoch.

EDIT:
Ale dá sa to skrátiť s tým /d+
=REGEXEXTRACT(E1;"(?<=\[)\d+(?=\])";0)
Presné použitie nevieme, takže to necháme na užívateľovi.

Zdravím Admina/Správcu.

Bolo by možné vrátiť na stránku vpravo zoznam posledných príspevkov, tak ako do bolo do nedávna? Prosím ...

Alebo:
=REGEXEXTRACT(E1;"(?<=\[)[0-9]+(?=\])";0)
Ale na ten regulárny výraz, som sa už musel spýtať ChatGPT

napr.
=REPLACE(LEFT(E1;FIND("]";E1)-1);1;FIND("[";E1);"")
=NAHRADIT(ZLEVA(E1;NAJÍT("]";E1)-1);1;NAJÍT("[";E1);"")

Nemôžete použiť
.Cells(MaxRadek, 1).Value = .Cells(1, 5).Value
lebo sa bodkovou notáciou vo vnútri With odkazujete na List2 (aj pred "=" a za ním). Musíte to upraviť
.Cells(MaxRadek, 1).Value = List1.Cells(1, 5).Value
alebo to dajte do jedného hromadného zápisu
.Cells(MaxRadek, 1).Resize(, 3).Value = Application.Transpose(List1.Range("E1:E3").Value)

ešte poznámka: v tomto jednoduchom makre nepoužívajte
Application.ScreenUpdating = False
bez vypínania a zapínania ScreenUpdating je makro pri hromadnom zápise rýchlejšie.

A čo použiť OnTime?

Myslím, že to bude toto:
Súbor - Možnosti a nastavenia - Možnosti dotazu - Ochrana osobných údajov - Vždy ignorovať nastavenia úrovne ochrany osobných údajov

-Môžete si doinštalovať ofiko doplnok PowerQuery? Cez ten by to bolo asi najjednoduchšie.
https://www.microsoft.com/en-us/download/details.aspx?id=39379
-Alebo požadujete riešenie pomocou vzorcov (to bude zložité), alebo pomocou makra?
-Je možné do listu pridať pomocný stĺpec/stĺpce?
-V skutočnosti sa jedná o tabuľku alebo objekt Tabuľka?
-Koľko je tých stĺpcov? Pevne 10, alebo variabilne cca od-do?
-Koľko mávate približne riadkov?
-Sú dáta zoradené, zoskupené, alebo sú mená na preskáčku?

...Ďalšie otázky ma napadnú asi neskôr.

K tej druhej časti. V štandardnom zobrazení to asi nepôjde, predsa len je to tabuľkový editor, nie grafický program. Ale ak si zobrazenie prepnete na "Rozloženie strany" tak sa šírka ukazuje v cm (prípadne v mm po nastavení mm v Súbor-Možnosti-Rozšírené-Zobrazenie-Jednotky pravítka-Milimetre) a aj to v tých jednotkách nastavujete v tom "Rozloženie strany".

lubo nerozumiem. Ako chcete týmto ovplyvniť hodnotu v inej bunke? Priznávam, že to neviem rozbehať...

Office 365 - ak vo Vašej prílohe zalomím riadky, zalomí sa aj výsledok. Ak chcete, aby sa výška riadku prispôsobila obsahu tejto bunky, tak to asi nepôjde. Ten Váš vzorec nebude fungovať s rôznym počtom riadkov v bunke. Vzorec je na 2. Píšete, že ich môže byť viac.

Veď dajte do A3 = IF(A2=5;8;inak niečo iné)
Uveďte prílohu, nech je vedno čo riešite.

Tématické kategorizovanie makier do modulov je určite vhodné pri väčšom množstve makier.
Na rýchlosť to má vplyv 0,0nič.

Najdôležitejšie pre rýchlosť je, aby bolo makro dobre navrhnuté. A keď píšete o množstve modulov, tak si myslím, že vznikli nahrávaním makier - a to je vo väčšine prípadov ten najhorší (najpomalší) scenár.

Treba priložiť prílohu s tými makrami, a môžeme sa pozrieť, či sa dajú preprogramovať aby šli rýchlejšie. Samozrejme aj s popisom, čo požadujete robiť.

Verzia Office?

B16:B35 obsahuje vzorce? Aké?
Takže B16:B35 nakopírovať vždy od C16:C35?
Čo ak tam už sú použité tie bunky? Kopírovať potom na prvý voľný stĺpec podľa riadku 16?
Táto nová oblasť má byť potom zdrojom napr. pre KT? Treba upraviť aj zdroj KT.
Jedná sa o tabuľku alebo objekt Tabuľka?
Príloha?

Příspěvky uživatele

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje