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?
Záleží na logike tých makier, či je možné ich vykonať po sebe, ktoré sa má vykonať prvé, alebo či ich treba preprogramovať, aby bolo iba jedno makro.
napr.:
Private Sub Workbook_Open()
Call spustimakro1
Call spustimakro2
End Sub
alebo na konci makra spustimakro1 sa zavolá spustimakro2
Private Sub Workbook_Open()
Call spustimakro1
End Sub
Sub spustimakro1()
...
Call spustimakro2
End Sub
Do PF dajte:
=COUNTIFS($A$2:$A$10;$A2;$B$2:$B$10;$B2)>1
Oblíbený formulář Faktura byl vylepšen a rozšířen.

Více se dočtete zde.
Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.