• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

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. :)

Zaslat odpověď >

---

marjankaj(29.7.2015 20:44)#026017

Skús rozšírený filter

Range("A1:A17").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("D1"), Unique:=Truecitovat

elninoslov(29.7.2015 23:46)#026018

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.

Příloha: 26018_sucet-z-listov.rar (49kB, staženo 18x)

citovat

lubo(30.7.2015 1:05)#026021

Proč nelze jednoduše použít kont. tabulku_citovat

vasekp(30.7.2015 9:55)#026023

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

elninoslov(30.7.2015 11:20)#026024

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

vasekp(30.7.2015 12:14)#026025

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)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse