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

Příspěvky uživatele

Samozrejme, lebo tam máte ďalšie 2 skryté stĺpce. Čo som si ani ja nevšimol. Tak len zmente číslo 3 v týchto dvoch riadkoch kódu na číslo 5.
arrData = .Cells(2, 1).Resize(lngRows, 3).Value2
.Cells(6, 5).Value2 = arrData(i, 3)

Pr.

Samozrejme, že sa to dá, ale ten vzorec mi príde nejaký divný. Rátate priemernú spotrebu na 30 dní aj keď to nieje 30 dní? Nemalo by sa rátať priemer iba na počet dní medzi odpismi ?
=IF(B70="";"";IF(B70<B69;B70;(B70-INDEX($B$4:$B69;MAX(($B$4:$B69<>"")*(ROW($B$4:$B69)-3)))))/DATEDIF(INDEX($A$4:$A69;MAX(($B$4:$B69<>"")*(ROW($B$4:$B69)-3)));$A70;"d")*30)
=KDYŽ(B70="";"";KDYŽ(B70<B69;B70;(B70-INDEX($B$4:$B69;MAX(($B$4:$B69<>"")*(ŘÁDEK($B$4:$B69)-3)))))/DATEDIF(INDEX($A$4:$A69;MAX(($B$4:$B69<>"")*(ŘÁDEK($B$4:$B69)-3)));$A70;"d")*30)

Tak skúste maticový vzorec (Ctrl+Shif+Enter)
=INDEX($A$4:$A69;MAX(($B$4:$B69<>"")*(ROW($B$4:$B69)-3)))
=INDEX($A$4:$A69;MAX(($B$4:$B69<>"")*(ŘÁDEK($B$4:$B69)-3)))

Sub makro()
Dim wsPovod As Worksheet
Set wsPovod = ActiveSheet
With Worksheets("Hárok1")
.Activate
.Cells(1, 1).Value2 = wsPovod.Cells(1, 1).Value2
End With
Application.Wait (Now() + TimeSerial(0, 0, 2))
wsPovod.Activate
Set wsPovod = Nothing
End Sub

Inak je vhodné zakladať správne novú tému na nové otázky, ale myslím že zrovna toto je prípad, keď sa bavíme k téme a o tom istom, iba s doplňujúcou otázkou.

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

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse