Dobre, kdyz je to slozite a touzis po makru, tak zde mas makro, ktere do sloupce mesiac vlozi nazev mesice podle data ve sloupci dat.vystav (jiz neni nutne vyplnovat rucne nebo pomoci funkce) a pak vykona pozadovany souhrn. Mas tam slovo soucet (je sice v jinem sloupci), dilci i celkovy soucet ve sl...

Pozadovaneho lze dosahnout bez pouziti makra. Nabidka>Data>Souhrny (snad slovenska lokalizace pouziva podobne nazvy) vykonaji vse pozadovane, vice viz napoveda nebo http://office.microsoft.com/cs-cz/excel/CH010004521029.aspx" onclick="window.open(this.href);return false; . Pokud ma byt v souhrnu naz...

Pomoci si lze malym trikem. Do pomocneho sloupce (napr.: Y:Y) vloz pro kazdy radek datum, jak nato zjistis v prilozenem sesitu, ktery jsem musel zredukovat, nebot presahoval povolenou velikost. Pak muze pouzit automaticky filtr v tomto sloupci, vyber vlastni a zadej podminky: >=pocatecni a <=koncove...

Bohuzel cela programova konstrukce je trochu tezkopadna, takze uprava se neobejde bez vetsiho zasahu. A je daleho rychlejsi, nez analyzovat a upravovat nevhodne makro, napsat makro nove. Navic chybi jakakoliv presna specifikace toho, co ma makro vykonat. V predchozim dotazu "Vyhledavani" j...

to SeTH:
Procedura byla napsana na strukturu testovaciho souboru, pokud se realny soubor svou strukturou odlisuje od testovaciho, muze dochazet k chybe pri behu procedury. Protoze neuvadis k jake chybe doslo, nemohu posoudit.
Jinak pouzij reseni, ktere Ti vice vyhovuje.

V procedure zustal neosetreny stav po predchozim prohledani bez nalezeneho vyskytu. Osetreno viz priloha.

takze upravena procedura: Option Explicit Sub VyhledatVListech() Dim wsht As Worksheet, c As Range, Podminka1 As Variant, Podminka2 As Variant Dim PoslRadek As Long, Blok As Range, firstAddress As String, i As Long, ZapsatDo As Range Set c = Worksheets("list1").Range("i3") Podmin...

Uvadis kdyz bude hodnota v bunce J3 prazdna bude vyhledávat hodnotu ktera je v bunce I3 ve sloupci c.1 a v tabulce vysledky vypise v jakem se nachazi listu a radku. ... Dále bych potřeboval aby zobrazil vysledky kdyz v I3 bude jako kriterium pro vyhledani "AB" aby zobrazil pozice bunek kte...

pouzij nasledujici: Sub Rozdelit() Dim str As String, Vyskyt As Byte, Delka As Byte, ICO As String, JmPrij As String str = " jmeno prijmeni ICO12345678" str = Trim(str) Delka = Len(str) Vyskyt = InStrRev(str, " ") JmPrij = Left(str, Vyskyt - 1) ICO = Right(str, Delka - Vyskyt) En...

to mike007: Tazatel v zadani pozadoval nalezt v mnozine cisel vsechny podmoziny shodnych cisel, respektive jedno cislo z kazde takoveto podmnoziny, ktera muze mit 1 az n cisel. V ukazce neni zadne cislo unikatni. Kdyz uz, tak v vzorec do podmineneho formatu by mel byt byt: =COUNTIF($A$1:$A$57;A1)=1...

Mozna nekoho predbehnu, ale po prelozeni do srozumitelne reci se nejspis jedna o pouziti Rozsireneho filtru z nabidky Data>Filtr>Rozsireny filtr (vice viz napoveda). V oblasti seznamu cisel vlozit hlavicku a tutez hlavicku zadat do bunky, pod kterou bude kopirovano. Vybrat Kopirovat jinam, zadat obl...

V priloze je upraveny sesit Vzorek.xls Na listu Poruchy jsou vlozena tlacitka z nabidky Ovladaci prvky (ovladaci prvky z Formularu jsou pozustakem ranych verzi Excelu, nepouzivat): pro setrideni a nove pro zobrazeni zadavaciho formulare a pro vlozeni karty vozidla. Je zajistena jednoznacnost podle R...