Skús rozšírený filter
Range("A1:A17").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("D1"), Unique:=Truecitovat
Range("A1:A17").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("D1"), Unique:=Truecitovat
excel, návod, tipy, funkce, makra, vba, tabulky, šablony
Váš průvodce programem Microsoft Excel a programováním maker ve VBA
< návrat zpět
Téma: VBA vypiš najdi přiřaď
Máte to tam :)citovat
MS Excel
Téma: VBA vypiš najdi přiřaď 
Zaslal/a vasekp 29.7.2015 16:25
potřeboval bych udělat makro které mi na základě textu vysčítá příslušné číselné hodnoty a toto na více listech.
zjednodušeně:
sloupec A - číselné hodnoty
sloupec B - text (okna, dveře, podlahy ...)
nyní potřebuju aby mi makro do prvního listu vypsalo všechny textové řetězce (každý samozřejmě jen jednou) a pak mi to pro tyto texty vysčítalo jednotlivé listy. To vysčítání kdyžtak umím. Hlavně by mě zajímalo jak na to aby mi to z těch všech listů napsalo hezky pod sebe všechny textové řetězce, abych podle toho pak mohl nasčítat ony hodnoty. :)
Tu máte 2 verzie. Jedna pre celkový súčet, druhá pre súčty jednotlivých listov.Jednoduché to zrovna nieje. Neznámy počet listov o neznámych názvoch, s neznámym počtom položiek, s neznámymi unikátmi, spojiť z nich všetky hodnoty do jedného poľa čo najrýchlejšie bez cyklov, vyzrieť na Rozšírený filter (ten obsahuje zákernosť, ktorá sa rieši krkolomne) ...
Nechcelo sa mi už ďalej s tým paprať a vymýšľať ako vypísať iba pre každý list iba jeho jedinečné položky, tak som si pomohol z príkladu spoločného súčtu, a v tabuľke všetkých jedinečných z všetkých listov, je proste 0 pri liste kde sa táto hodnota nenachádza. Neviem, či to takto môže byť.
Snáď aspoň niečo pomôže.
Nechcelo sa mi už ďalej s tým paprať a vymýšľať ako vypísať iba pre každý list iba jeho jedinečné položky, tak som si pomohol z príkladu spoločného súčtu, a v tabuľke všetkých jedinečných z všetkých listov, je proste 0 pri liste kde sa táto hodnota nenachádza. Neviem, či to takto môže byť.
Snáď aspoň niečo pomôže.
Příloha: 
26018_sucet-z-listov.rar (49kB, staženo 18x)
citovat26018_sucet-z-listov.rar (49kB, staženo 18x)děkuji elninoslov, ale hází mi to chybku:
Run-time error '1004':
Application-defined or object-defined error
a problém to hází na řádek:
Set rng = Union(.Cells(2, 1).Resize(.Cells(Rows.Count, 1).End(xlUp).Row, .Cells(1, Columns.Count).End(xlToLeft).Column), .Cells(1, 3).Resize(, .Cells(1, Columns.Count).End(xlToLeft).Column - 2))
ten svuj excel jsem upravil tak aby měl první sloupce stejný jako v excelu Vašem.
(v nejhorším případě, když se mi na to nepodaří přijít tak si všechny hodnoty budu muset vypsat ručně a pak to napsat přes for cykly)citovat
Run-time error '1004':
Application-defined or object-defined error
a problém to hází na řádek:
Set rng = Union(.Cells(2, 1).Resize(.Cells(Rows.Count, 1).End(xlUp).Row, .Cells(1, Columns.Count).End(xlToLeft).Column), .Cells(1, 3).Resize(, .Cells(1, Columns.Count).End(xlToLeft).Column - 2))
ten svuj excel jsem upravil tak aby měl první sloupce stejný jako v excelu Vašem.
(v nejhorším případě, když se mi na to nepodaří přijít tak si všechny hodnoty budu muset vypsat ručně a pak to napsat přes for cykly)citovat
Chýba Vám nadpis v skrytom stĺpci A. Je potrebný aj kvôli Rozšírenému filtru, aj kvôli zisťovaniu posledného riadku.
Ak chcete, pošlite mi na mail reálne súbory, pozriem sa Vám na to a sprevádzkujem. Ale priložte mi tam aj ručne urobený vzhľad ako to má vyzerať. Stačí s kúska údajov. Ak teda chcete. Zneužitie Vašich dát je vylúčené.citovat
Ak chcete, pošlite mi na mail reálne súbory, pozriem sa Vám na to a sprevádzkujem. Ale priložte mi tam aj ručne urobený vzhľad ako to má vyzerať. Stačí s kúska údajov. Ak teda chcete. Zneužitie Vašich dát je vylúčené.citovat
elninoslov napsal/a:
Ak chcete, pošlite mi na mail reálne súbory, pozriem sa Vám na to a sprevádzkujem. Ale priložte mi tam aj ručne urobený vzhľad ako to má vyzerať. Stačí s kúska údajov. Ak teda chcete. Zneužitie Vašich dát je vylúčené.
Máte to tam :)citovat
Uživatelské menu
Nejste přihlášen(a)
\n
\nMenu
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
Helios iNuvio
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.
RSS nejnovější články