Příspěvky uživatele

To ste mohol napísať aj do predošlej témy.
Čo znamená "Štartovať z hárku" ? Na každom hárku máte tlačítko ? Alebo napr. formulárom vyberáte z ktorého listu sa má kopírovať ? To "Štartovať z hárku" je veľmi dôležité, lebo práve tam sa dozvieme názov listu. Takže ? ...

Čo myslíte tým "zotrvať" ? Proste iba čakať a nič nerobiť ? Tak napríklad:
Sub makro()
With Worksheets("Hárok1")
.Activate
.Cells(1, 1).Value2 = Worksheets("Hárok2").Cells(1, 1).Value2
End With
Application.Wait (Now() + TimeSerial(0, 0, 2))
Worksheets("Hárok2").Activate
End Sub

Akurát ešte treba domyslieť, ako do toho narvať ten počet v každej vekovej skupine, najlepšie aby to nezneprehľadňovalo KT, teda nejaký stĺpec medzi "Věková skupina" a "Jméno", kde by bol skupinový Počet.

Pridal som ešte jeden list s ExcelTable a KT. Záleží na tom, koľko máte dát, či sa prelínajú roky, či je viac rokov, či máte nemenný zoznam tých "mien" alebo meniaci sa, atď ... To maticovo-vzorcové riešenie reaguje hneď ale použiť ho na veľa záznamov nieje vhodné - bude pomalé. KT je zase rýchla, ale nereaguje okamžite, treba dať Obnoviť (navyše v tomto prípade aj ten rok zmeniť, ak treba).

Vzorco-pokus č.1

Nie, problém je myslím inde. Vy robíte novú inštanciu Excelu, teda nemôžete použiť z Vašej hlavnej inštancie Application.Run "'" + poleNazvu(c) + "'" + "!makro25"
do druhej inštancie xlApp. Musíte dať
xlApp.Run "'" + poleNazvu(c) + "'" + "!makro25"

Ja som sa pýtal na slovný dodatočný popis problému preto, aby sme vedeli, čo konkrétne chcete urobiť a čo konkrétne chcete vidieť na obrazovke, či si potrebujete odkontrolovávať mená tých súborov očami a napr. nespúšťať premiestňovanie súborov ak sa Vám niečo nezdá a pod. Alebo sa môže vykonať všetko v jednom kroku, skryto, iba s prípadným upozornením, že tento a tento súbor premiestniť nejde a pod. To je potom rozdielne makro, inak koncipované, inak fungujúce a inak rýchle. Teraz večer keď bude čas, skúsim použiť namiesto kontroly duplicity EVALUATE s COUNTIF, alebo Collection, aby sa aspoň z časti odbúrala zložitosť úpravy poľa a pod.
Ďalej nerozumiem čo presne má zobrazovať ten ListBox, preto som žiadal o vzorový CSV.
V SelectionChange chcete pri kliknutí na meno súboru, zobraziť jeho (iba vybraný) obsah v listboxe? To platí aj na staré aj na nové súbory ?
...

Nemyslím, že to funguje. Na mojom novom, aktualizovanom Office 2016 Pro SK x64, Win10 x64 SK, sa OnTime spúšťa absolútne divoko a netypicky. Excel si akoby prestal pamätať, kedy načasoval akciu. Vyvolá ju, aj keď ju zruším (presne daný uchovaný čas a Schedule:=False), aj keď zavriem súbor, otvorí ho. Děs-běs... Skúsil som dokonca nie nadeklarovať Dim alebo Public globálnu premennú, ale keďže sa mi zdalo, že zabúda pri BeforeClose danú premennú, tak som vytvoril aj Triedu, kde to bolo uchované. Aj tak ale keď nechám zošit dlhšie otvorený, tak spustí OnTime 2x. Akoby makro po nejakej dobre pokračovalo za MsgBox-om, bez potvrdenia MsgBoxu. ako vravím - Děs-běs...

Aby to išlo rýchlo, s tou funkcionalitou čo tam máte načrtnutú, tak to treba celé prekopať. Tie makrá nie sú vhodné. Nemám viac času, ale nezmenené Vaše makrá sú pod hrubou čiarou. Ostatné som prerobil, zmenil, pridal, ubral.
Dalo by sa to urobiť ešte v menej krokoch, ak by sme mali popis. A čas samozrejme.
Pridajte sem aj jeden vzorový súbor CSV.

No a ešte nejaký slovný popis, toho čo chcete dosiahnuť ?
Nechce sa mi príliš skúmať celý kvázi-kód a hľadať logiku. Možno totiž urobiť nové riešenie bude kratšie ako preskúmať a zmeniť kód (ktorý z toho čo vravíte, nemusí byť 100%-ný). Ale len možno...

Iný príklad. Dynamický počet rokov, údajov pre každý rok, a kontrola pomocou PF.

...LookAt:=xlPart...
zmente na
...LookAt:=xlWhole...

+- autobus ...

EDIT 2 (19:41): Opäť vymenená príloha. To snáď nieje možné :)

Skúsim to vysvetliť:
-Skopírujte si zlúčenú bunku z F8 dočasne do AP8 (Ctrl+C, Ctrl+V)
-Označte všetky bunky F8:G39, a dajte zrušiť zlúčenie.
-Onačte dočasnú zlúčenú bunku AP8, dajte Ctrl+C
-Označte všetky bunky F8:G39, a dajte pravý klik a Možnosti prilepenie - Formátovanie
-Dočasnú AP8 zrušte tak, že ju označíte a Domov - Úpravy - Vymazať - Vymazať všetko.

Teraz Vám pôjde zoraďovanie. Filter ale nie, lebo máte zase časť hlavičiek zlúčené riadky, to si ale môžete urobiť inak.

EDIT: Toto funguje len ak chcete zoraďovať podľa Štátu.

EDIT2 :
Urobil som pokus a všetky bunky som zduplikoval a zlúčil (spôsobom vyššie), aby nebola jediná, ktorá by mala inú veľkosť. Takže ste tam mal 2 zlúčené stĺpce, a teraz sú všetky. Pridal som aj filter s malou zmenou hlavičiek. Filtrovanie ide asi normálne. Zoraďovanie ale nefunguje cez filter, ale musí sa označiť oblasť A8:Z39, Údaje - Zoradiť, vybrať polia, ich poradie a smer. Potom to ide.

Za mňa osobne, ak tam to zlúčenie je len kvôli estetike, tak sa na to vykašlite, bunky urobte normálne (ak sú štáty široké, skúste skratky), a nebudú takéto nevyspytateľné problémy. Veď spodná tabuľka ZÁLOHY bude vpravo vytŕčať len o 2 bunky (o jednu ak nebude medzi nimi pauza).

A keby boli zlúčené iba naoko ?
Zarovnanie na stred výberu
Funguje to dobre.

Příspěvky uživatele

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje