Příspěvky uživatele

Tak aj ja pridám príklad

Výpis položky "pod seba" vo filtrovacom formulári:
?!? Nečítate čo píšem, veď som písal, že tú chybu s výpisom jedinej položky "pod seba" som opravil a poslal opravenú verziu, a Vy naďalej používate starú a upozorníte na tú chybu.

Tlačítka "Hľadať predo" ... :
To nie ste ochotný urobiť jednoduchú logickú dedukciu, a jednoduchý pokus, že by ste stlačil a vyskúšal rovnaké tlačítko na rovnakom mieste a obdobne znejúcim názvom ? Je to len otázka prekladu SK a CZ Excelu.
"Hľadať predo" = "Předchozí"
"Hľadať ďalej" = "Další"

Tlačítko Uložiť:
Zabudnite na tlačítko Uložiť. Tiež som Vám to už písal. Okrem tohto sa už k tomu fakt opäť vyjadrovať nemienim. Ten formulár na liste Data, NIEJE opakujem NIEJE upraviteľný ! Tak ho naprogramoval výrobca Excelu, a tak ho Vy môžete alebo nemusíte používať. Žiadne tlačítko Zavrieť na Uložiť nezmeníte ! Pre to aby ste pridali záznam do Tabuľky urobíte:
-pravý klik na liste Data niekde v stĺpcoch A:O
-stlačiť na formulári "Nové"
-Vyplniť údaje
-ak chcete, pridať ďalší záznam, tak ešte raz stlačíte "Nové", predošlý nový záznam od tejto chvíle už JE (opakujem JE v Tabuľke). Teda nezatvárate formulár. Ak ale nechcete pridávať ďalšie záznamy, stlačíte "Zavrieť", a od tejto chvíle záznam JE (opakujem JE) v Tabuľke.
-možnosť, aby ste mali tento formulár otvorený neustále (ako píšete, aby ste ho nezatváral) - NEEXISTUJE.

2 dvojbodby (dvojtečky "::")
To je jednoduché, mali ste ich v hlavičkách stĺpcov, ktoré ste dodal, tak som ich zmazal. Tie druhé tam samozrejme dopĺňa (iba vo formulári) samotný Excel.

Teraz bez urážky, ale to si snáď robíte srandu ? V jednom príspevku napíšete, že tam nesmie byť tlačítko Vložiť. V druhom príspevku napíšete, že tam musí byť namiesto Zavrieť, tlačítko Vložiť. Pritom toto NIEJE makrom generovaný formulár, ale natívna formulárová funkcionalita samotného Excelu - čiže nejde zmeniť.

V inom príspevku napíšete, že to nechcete na pravý klik, ale na tlačítko, a v ďalšom príspevku napíšete, že to chcete na pravý klik.

Kritériá : Keď zobrazím ten natívny formulár na zadávanie nových dát, napr. tlačítkom na liste, tam kliknem na Kritériá, a zobrazí sa mi toto, kde si môžem zadať filter niektorého poľa, a vpravo vidím tlačidlá "Hľadať predo" a "Hľadať ďalej".

Píšte, prosím, do viet bodky a čiarky, a vždy popisujte presne ktorý máte na mysli formulár. Fakt sa to zle lúšti.

Alebo takto Vám, bude objekt Tabuľka počítať zvyšné veci.
Samozrejme tie výpočty môže robiť aj makro, a vloží tak výsledky (deň, mesiac, rok), ale vek by som určite riešil vloženým vzorcom (nie hodnotou), alebo ho počítať až vo finále, kde budete s dátami pracovať. Na výstupe. Vek, ako je známo, sa časom (žiaľ) mení :)

Všetky ostatné makrá som odstránil.

Kritériá : Veď to skúste, je to filter vyhľadávania. Stlačíte Kritériá, vypíšete nejaké hľadané kritérium, a dáte Hľadať predo, alebo Hľadať ďalej.

Aké tlačítko "Vložiť" ??? Myslíte tým tlačítko "Nové" (prvé tlačítko, možný rozdiel verzie a lokalizácie Excelu) ? Prečo by ste mali zatvárať ten formulár ? Stlačím Nové, vypíšem, stlačím Nové vypíšem, zase stlačím Nové a vypíšem ... koľko chcem, potom stlačím Zavrieť, a mám tam všetko.

Len poupravený vzorec od Pavlus. Nemusí byť nikde v bunke uložené písmeno ("A", "B"...), len prvý znak názvu súboru stačí vytiahnuť, trošku kratším vzorcom ako hore uvedený.
=HLOOKUP(MID(CELL("filename";A1);FIND("[";CELL("filename";A1))+1;1);'Z:\kopirovani_dat\[Zdroj.xlsm]List1'!$1:$2;2;FALSE)
=VVYHLEDAT(ČÁST(POLÍČKO("filename";A1);NAJÍT("[";POLÍČKO("filename";A1))+1;1);'Z:\kopirovani_dat\[Zdroj.xlsm]List1'!$1:$2;2;NEPRAVDA)

Príloha by to snáď objasnila...

Líšia sa len (ne)zatvorením formulára po kliku na položku.
Ten vstupný formulár vloží nové dáta, keď kliknete na tlačítko "Zavrieť", nie na krížik.

Je to len slovíčkarenie, samozrejme, predpokladáme všetci to isté, že chcete nájsť nasledujúci riadok pod posledným záznamom. Ak sa tam nevyskytujú prázdne tak môže byť xlDown, ak áno tak xlUp. Inak clUp upravené na xlUp, to viete mobil a nočná hodina ...

Určite nehľadáte posledný prázdny, ale prvý prazdny

Robíte to cyklom, a prečo nie takto
PrazdnyBlg = Worksheets("Db").Cells(Rows.Count, 1).End(xlUp).Row + 1
A potom napr.
Worksheets("Db").Cells(PrazdnyBlg, 1).Value = neviem čo

PS: Z brucha z tabletu, tak snáď bez chyby.

Mne táto funkcia Excelu nevonia. Nedá sa nastaviť riadok, ktorý načíta pri otvorení. To môže viesť k fatálnym chybám, napr. pri odstraňovaní riadku. Každopádne asi myslíte toto. Opäť je to cez pravé myšítko, ale to sa dá zmeniť na tlačítko.

A posielam aj upravenú MAKROVÚ verziu. Pridal som zobrazenie počtu výsledkov, ale hlavne opravil nezmyselné priraďovanie poľa výsledkov do ListBoxu, ak je výsledkom iba jediný riadok - opravené. Formulár som zmenil na "plávajúci", teda je stále zobrazený (po pravom kliku), a len filtrujete a označujete kam sa má vložiť záznam. Dá sa to upraviť tak, že bude nový záznam vkladať vždy na prvý voľný riadok. Testované na 21300 úplne zaplnených dát, všetky riadky a stĺpce. Na mojom PC je to dostatočne rýchle.

A teraz hovoríte o čom ??? Aspoň povedzte o ktorej verzii hovoríte. Máte určite na mysli VZORCOVÚ verziu. To som tak nechal naschvál, lebo nepredpokladám, že sa niekto "nenarodí" :) Iba zmente formát stĺpca Tabuľky (nie celého stĺpca listu) na
General;;
Vek je počítaný vzorcom, a to že je 0, je iba následkom nezadaného dátumu narodenia, ktorý teda určite máte 0.1.1900. A ten nevadí ? Tiež zmente formát na
d.m.yyyy;;
Ešte som zmenil teda vzorec pre vek v liste Data.
Posielam upravenú VZORCOVÚ metódu.

Příspěvky uživatele

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje