a) fitrovat vzorcem jde, zatím hodně složitě, zůstaň u makra a počkej, až ms funkce sort, případně sortby uvolní pro běžné uživatele. b) čísla řádků - snadné, použij subtotal nebo aggregate - číslem řádku pak m§že být počet viditelných řádků. Dodatečně přidáno po 22 vteřinách: a) fitrovat vzorcem jd...

Čtení s porozuměním je těžká úloha. Zkusím příklad. Máme dvě makra. MakroVOM je zjednodušená ukázka zaslaného makra, tj. upravuje blok po jednotlivých buňkách. MakroSTD dělá totéž standardním postupem, tj. upraví blok najednou. Pusť si obě a porovnej dobu (i třeba čitelnost kódu). Sub MakroVOM(&...

Tohle je prkotina. Existuje notace R1C1. Stačí vzorce vytvořit jednou. Někde je to i použito. Add. podrobněji: Nemohu, kód je hodně nečitelný, velká část kódu je zakomentována něco se ale zřejmě zalomilo na nový řádek a luštit, co to má dělat se mi nechce. Nicméně, odkazovat se na buňku celou cestou...

Makro se mi psát nechce. Proč ručně mažete jeden list po druhém a ne všechny najednou?

Šípkami v levém dolním rohu skoučíte na konec seznamu listů a vyberete poslední list, pak skočíte na začátek seznamu, stisknete shift a vyberete třetí list. Pak pravý klik na ouško listu, odstranit, ...

Krátká odpověď : Celé to předělej.

Pracuješ s větší oblastí po jednotlivých buňkách. V každém kroku vkládáš do buněk vzorce a excel to musí několikrát přepočítat. Ty vzorce se počítají dost dlouho. Volání vzorců z vba také není nejrychlejší.

Je to jesnoduché. Dim rCil2 As Range Dim rZdroj As Range Set rCil2 = Sheets("STYLISH").Range("f7") If Not IsEmpty(rCil2) Then If Not IsEmpty(rCil2.Offset(1, 0)) Then Set rCil2 = rCil2.End(xlDown) End If Set rCil2 = rCil2.Offset(1, 0) End If Set rZdroj = Sheets("STYLISH"...

Pokud budete tento problém ještě někdy řešit, napište si do buňky vzorec jak jste zvyklý, přepněte zobrazení vzorců nas R1C1 a podívejte se do buňky, jak to má vypadat.

Bez ošetření možných problémů (první řádky, texty, ...)

Tabulka je Tabulka1, sloupec je A:

=SUMA(POSUN(Tabulka1[[#Záhlaví];[A]];POČET(Tabulka1[A]);;-3))

Tady je to i pro malý počet řádků a texty

=SUMA(POSUN(Tabulka1[[#Záhlaví];[A]];POČET2(Tabulka1[A]);;MAX(-3;-POČET2(Tabulka1[A]))))

V některých případech DATEDIF opravdu počítá špatně (nebo lépe - dává nečekané výsledky).

@ elninoslov

Lze to snadno zjednodušit:



(Funkce REPLACE umí také vkládat.)

Data -> ověření dat.

Kriterium vlastní, vzorec : =SUMA($A$1:$D$1) <=3

Vhodně upravte zprávu při porušení pravidla.

SUMIFS? Snadné:


Funkci den nepotřebuji.