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

Příspěvky uživatele

Nieje to vôbec dokonalé, ale skúste niečo takéto. Bolo by vhodné list Log schovať, zabezpečiť ho aj makro heslom. Aspoň tak.

O riadok pod kurzorom ? Hodnotu z H do N3 ? Tak takto, ale načo Vám toto bude...
Inak mali ste v názve " POKLADNÍ DOKLAD" na začiatku medzeru. Pozor na to, spôsobuje to nemalé problémy.

Tu môže byť tiež veľa riešení, záleží na bližšej špecifikácii problému. Napr. o koľko pôjde buniek, musia byť tie zošity otvorené, čo bude potom ďalej s dátami...
Niečo si vyberte, alebo upresnite čo ďalej, možno pomôžeme...
Tu máte ďalšie dve riešenia, aj s príkladom použitia. Návrh od xlnc a metóda Case s overením existencie listu.

Jedno z možných riešení Vášho problému.

Už vidím tú personalistku, ktorá "dekóduje" v životopise:
Úroveň znalostí:
Excel - hotový
...

Jedna vec je, že hneď na začiatku nemáte dávať INDEX(AB3:AB33... ale INDEX(AB:AB...
Druhá vec je otázka, či to zadávate ako maticový vzorec, čiže Ctrl+Shift+ENTER.
Tretia vec je, že nevidíme Vašu reálnu prílohu, ako presne vyzerajú tie dátumové rozsahy, či nieje treba upraviť vzorec, aby bol prichystaný na nejaké "neštandardnosti".

Vyskúšajte body 1 a 2, ak neuspejete, pošlite reálnu prílohu.

Google - "cz en excel" - http://office.lasakovi.com/excel/funkce/ms-excel-funkce-cz-en/ - Ctrl+F - "Left" - prvé sa mi ukázalo VLEVO ale tiež sa mi to nepozdávalo. Tak oprava+omluva, ale myslim, že som k tomu prišiel korektne.

Prečo máte 2 rôzne preklady ? Čo robí potom ten druhý ? Nemám ako vyskúšať.

@Hokuston:
Dalo by sa to zmeniť tak, že mu to tam môže ostať:
SK/EN
=SUMIFS(List2!$D$2:$D$100;List2!$A$2:$A$100;List1!$A2;List2!$C$2:$C$100;VALUE(LEFT(List1!C$1;FIND(" ";List1!C$1)-1)))
CZ
=SUMIFS(List2!$D$2:$D$100;List2!$A$2:$A$100;List1!$A2;List2!$C$2:$C$100;HODNOTA(ZLEVA(List1!C$1;NAJÍT(" ";List1!C$1)-1)))

Nebol tu už náhodou takýto istý problém prednedávnom riešený ?

A nemohli by ste poskytnúť prílohu na vyskúšanie a prezretie makro procedúr ?

OT: Akékoľvek upozornenie na chybu, by mal človek brať ako pomoc/radu. Možno sa to niekedy zle počúva (číta), ale s odstupom času, si (snáď) každý uvedomí, že mu aj keď možno nešťastnejšími slovami podaná rada/pomoc/výtka/upozornenie, niečo priniesla. Tak to beriem. Tak sa predsa učíme celý život:

V škole : Ferko, 2+2 nieje 5, ale 4.
V puberte : Fero nelez na plot, lebo si nabiješ držku.
V práci : Fero, Ty d..l, nestláčaj to červené tlačítko!
V domove dôchodcov : Pán František, pomaličky po tých schodoch, chcete sa nám tu dolámať?
V márnici : No vidíš Ferko, bolo ti treba prechádzať cez tú cestu...

PS: Keď tu vidím niektoré EXCELentné riešenia od skúsených borcov, a ja som si stým lámal makovicu, tak si pripadám ako úplný blb. Tomu verte. Ale to vôbec nevadí, ja mám Excel iba ako príležitostné hobby.

Takže v pohode, ale kto toto tu bude čítať ...

Niekedy sú odpovede dosť narýchlo, a keď človek raz za mesiac či dva skúšobne použije Select, okamžite ho kameňujú. Au.
Nikto niesme (chvalabohu) neomylný.
Sub SkocNaDatum3()
Dim V
On Error Resume Next
With Worksheets("List1")
V = WorksheetFunction.Match(Format(Date, "d.m.yyyy"), .Rows(1).Value, 0)
If Err Then MsgBox ("Dátum " & Date & " sa na List1 nenachádza.") Else Application.Goto .Cells(1, V)
End With
End Sub
Aby niekto nepovedal, že Application.Match je pomalšia ako WorksheetFunction.Match, tak som to vymenil a adekvátne zmenil odchyt chyby. Pridané zjednodušenie With a samozrejme podnet na opravu od xlnc.

Nieje nič zlé na tom, ak užívateľ chce tlačítko namiesto aktívneho textu. Naozaj nič. Tlačítko je oproti aktívnemu Shape do očí bijúce, a každý okamžite očakáva udalosť. To že tlačítka vyzerajú predpotopne, no kvôli tomu novú Class vytvárať nebudem. Ak chce niekto GlassButton, nech si vloží obrázok z netu, či vytvorí v PS, a aktivuje.

OT: Či sa bude v dnešnej dobe pýtajúci sa snažiť prísť veci na kĺb? Máte opäť pravdu, je to naivná idea. Teraz nemám na mysli konkrétne užívateľa Merlin99. Dnes, keď má každý možnosť napísať dotaz na 10 fór, kde mu dobrovoľníci zadara tŕn z päty vytrhnú, tak v 50% prípadov to dopadne tak, že sa ani neunúva odpovedať, nieto ešte študovať riešenie.
Kde sú tie časy keď som sa učil Basic z časopisu Elektrón, a keď som úplne sám naprogramoval v Assemblery na PMD-85-3 môj prvý skutočný program, obrovské digitálne hodiny, pamätám si aký som bol šťastný, pyšný, a áno aj "obdivovaný". Dnes je to iné ... Neviem, či prichádzate do styku s mladou dženerejšn, ak nie, tak verte, že by ste sa divili, aké sú predstavy mladých o tom, čo všetko musia dostať, okamžite, zadara, všade, vždy, a čo oni nemusia (učiť sa už vôbec nie). Asi do smrti budem spomínať na mladého administrátora, ktorý za svet nevedel dostať pár mailov z jedného do druhého PC.
Nikto z neba múdry nespadol, ale nie každý by musel do neba aj hlúpy znova vystúpať. Takže, ak je aspoň nejaká odozva od užívateľa, hneď to beriem pozitívne.

To je presne to čo mi nešlo, transponovať vnútorné vzorce. Treba na to ísť len inak, a ono to ide krásne. Palec hore.

To čo som Vám minule poslal funguje či nie ? Teraz som to doplnil o roslišovanie, či sa jedná o prázdnu bunku H alebo 0, previedol na ExcelTable. Pridávanie vzorca v G funguje automaticky, vyhodnocuje to správne, tak neviem, podľa mňa OK.
Tým makrom si môžete naformátovať aj ExcelTable, nemusí byť farebná, zvýraznená ob-riadok, ani mať filtrovacie tlačidlá, ani orámovanie..., stĺpce môžu mať inú šírku alebo rez písma.

Ak ExcelTable nechcete, a chcete mať dynamické pridávanie toho vzorca, tak jedine použitím Worksheet_Change metódy, v ktorej si podľa toho ktorý riadok bol pridaný vyplníte vzorec. Chcete aj toto predviesť ?

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse