Formulář v Excelu rozevírací pole

Takže takto:

Keďže je tam aj rodné číslo, autor odvodil pohlavie (aj keď nie celkom presne) z tohto čísla.
Takže neviem, načo potrebujete rozovierací zoznam pre pohlavie...

Je tam ale chyba: vo vzorci pre odvodenie pohlavia dajte :

=IF([@[Rodné číslo]]<>"";IF(OR(MID([@[Rodné číslo]];3;1)="5";MID([@[Rodné číslo]];3;1)="6");"Žena";IF(OR(MID([@[Rodné číslo]];3;1)="0";MID([@[Rodné číslo]];3;1)="1");"Muž";"chyba"));"")

P.S. Aj tak je to len čiastočná oprava (nekontroluje korektnosť druhej číslice mesiaca a dní už vôbec nie), ale ak v rodnom čísle nespravíte preklep, do chyby sa nedostanete.
Voči pôvodnému vzorcu opravuje chybu LEN a LEN rozlišujúceho prvku rodného čísla pre pohlavie (t.j. 3. pozíciu) ... z čoho vyplýva, že ak nespravíte preklep v tejto číslici, bude pohlavie odvodené správne aj keď bude zvyšok rodného čísla chybný.

Bohužel nemá to byt do toho Formuláře co uvádíte ale jinam.

Posílám vzor datového formuláře

Děkuji

Tak tu postrádam akýkoľvek zmysel vpisovať hodnoty cez formulár.
Čo Vám to prinesie?

Výberové zoznamy pre relevantné stĺpce som Vám prednastavil (cez Overovanie údajov) priamo vo Vašom hárku...

Ďalší dotaz?

Tak to umím také.
1) Ale chtěla jsem to v tom datovém formulářu když se zobrazí datový formulář, aby se to dalo vybrat přímo v tom.

2) A by se ten datový formulář otevřel pravím kliknutím myši a ne jen když daný sešit otevřu.

Jelikož jsem Vám to ukázala jen vzor. Původně to obsahuje cca 450 osob a 10 řad.

Ale i tak děkuji

Děkuji Vám moc za Vaši ochotu

ad 1) Jak už jsem Ti psal v SZ tento formulář je součástí excelu a NELZE upravovat !
ad 2) Zatím Jsi vůbec neprozradila jaku verzi excelu vlastně používáš. Je možnost si tlačítko vyvolávající tento formulář přidat do panelu rychlého spuštění (od verze 2007 ->). Pro Tvé potřeby naprosto dostačující variata bez potřeby vytvářet nějaký kód.
Pokud budeš trvat na zobrazení formuláře PTM, vlož tento kód do příslušného modulu listu.

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
  If Not Intersect(Target, Columns("A:I")) Is Nothing Then
    Cancel = True
    ShowDataForm
  End If
End Sub

Office 365

Hledala jsem na webu nějaký formulář, který by byl podobný, abych to mohla vybrat.
Jenomže sem nic nenašla takého.

Moc bych Vás chtěla poprosit zda by mě ho někdo udělal ten kód.

Předem Vám moc děkuji za Vaši ochotu a pomoc.

Pišťáčková

Vieš, to je tak, že s užívateľským formulárom je už kus práce a keďže u Teba človek netuší, či nasledujúca otázka nenabúra VŠETKO, čo sa doteraz riešilo, neviem, čo Ti na to povedať...
Občas mám pocit, že si agent - provokatér...
Zadávať niekomu hodiny práce kvôli max 4 písmenovej položke pohlavia (dva možné stavy), keď sú tam dlhšie ručne písané položky, na ktoré rozbaľovacie zoznamy nechceš a môžu obsahovať viac stavov?
Zdá sa Ti to normálne?
Alebo to bude až v ďalšej požiadavke, keď už bude všetko hotové a nová požiadavka celú vynaloženú prácu zmarí?
Ďakujem, neprosím

Něco málo jsem udělala, ale dál už nevím.
Jsem bezradná.

Do toho rozevíracího okna patří jen Funkce, Pohlaví a kategorie.

Jen prosím zda je možné, aby se ta šipka u toho rozevíracího okna zobrazila až na ni najedu myší.

To je všechno nic víc nepotřebuji.

Moc prosím o pomoc. Děkuji
Pišťáčková

Mrkni na nejlepší český výukový web pro Excel - je tam článek o formulářích, který se Ti bude určitě hodit.

Z toho jsem to udělala, ale nemohu dál.
To je ten vzor co jsem poslala v příloze.Nemůžu stím pohnout dál.
Pišťáčková

Byla bych moc ráda, kdyby jste mě pomohly.
Moc Vám všem děkuji.

Můj email: pistackova@post.cz

Pišťáčková

Najde se tu někdo, aby mě stým pomohl.

Předem děkuji

Pišťáčková

Testuj...

A dobre si rozmysli prípadnú ďalšiu požiadavku!!!

Děkuji moc to je vše.

Ha! Taký rázny záver som teda nečakal...

Ještě bych tě prosila jak jsou názvy okresů jak tam můžu přidat (vložit další) rozevírací pole.
Je to v skrytém listu Most, ale jak dat další rozevírací pole.

V tom kódu to nemůžu najít jak to tam dostals?

Ani tam nelze připsat další k tomu kraji v sešitě Most.

Dám si tam seznam měst jen nevím jak je tam dopsat.

Děkuji ti moc

Podívej se do vlastností toho ComboBoxu na položku - RowSource

Ještě jak to přidám do toho formuláře místo abych to dopsal tak to jen vyberu v rozevíracím okénku.

Je tam kod:

.txtMesto.ControlSource = "Seznam!H" & i
.cobKraj.ControlSource = "Seznam!I" & i

A potřebuji místo toho udělat rozevírací tak jak je ten druhý, aby to vložilo do pole Město.

Stačí mě kde to mám upravit

Ještě jednou moc děkuji.

Pišťáčková

A ešte ak si do kódu Formulára doplníš:

Private Sub txtPrijmeni_Afterupdate()
    Sheets("Seznam").Range("C" & spbPorC + 1) = UCase(txtPrijmeni)
End Sub

tak Příjmení môžeš písať malými písmenami, po zadaní příjmení sa to samé skonvertuje na veľké písmená.

P.S. a nauč sa, že údaje sa nezadávajú s medzerami na konci!

Děkuji už to funguje.
Jen to příjmení píše celé velkým písmem nedá se to udělat tak, aby to psalo jen začáteční písmeno velkým?
A to i u jména a příjmení.

A dotaz jak mám nastavit v tabulce

Nový Odstranit a Konec tedy by se měl formulář zavřít jak to mám prosím nastavit.

A teď mě nejdou ani ty v listě zálohy

Moc ti děkuji
Pišťáčková

Řešit velká počáteční písmena u jména a příjmení není 2x rozumné.
Co až v databázi bude Paul McCartney, Robert O'Hara či Jop van der Linden?

Presne

Jak mám nastavit když zadám město: Praha aby se to automaticky v Kraj: nastavilo Hlavní město Praha. V tom formuláři.
Nato nemůžu přijít.

Jinak vše mám nastavené

Děkuji

PS: Vím, že jsem asi otravná, ale moc ti děkuji za pomoc.

Tak, ako som už písal vyššie:

V takom prípade musí byť v hárku Most zoznam miest (okresov) s pridelením krajov (t.j. dvojice mesto-kraj), alebo pomocným kódom (napr. mesto - č. 1 ÷13, ktorým si mesto privolá správny kraj z nezávislej tabuľky)

Mužů tě prosím poprosit o vzor.

jen třeba 3 na skoušku

Měst: Kraj
Praha Hlavní město Praha

Hodonín Jihomoravský kraj

Kroměříž Zlínský kraj

Nechápu jak to mám ten kod dat.

V souboru ti posílám moji už hotový formulář jen aby to přiřazovalo Město: Hodonín Kraj: Jihomoravský.

Ještě jednou děkuji.
PB

Prikladám obe verzie riešení (nezasahoval som do ničoho iného, Tvoje modifikácie nechávam bez povšimnutia.)
V hárku Data máš znázornené princípy.

Prvá verzia (kód je momentálne deaktivovaný "spoznámkovaním")
je v tom, že ku každému mestu musíš napísať jeho kraj.
Potom sa na základe výberu mesta proste vyberie obsah napravo ležiacej bunky.

Druhá verzia (funkčný kód)
je v tom, že ku každému mestu nemusíš vypisovať názov kraja ale priradíš kód (číslo), ktorým je označený kraj, v ktorom mesto leží
Na základe výberu mesta sa odčíta kód ležiaci napravo od vybraného mesta a vyhľadá sa kraj podľa čísla kódu v pomocnej tabuľke (ktorá je zároveň zoznamom pre kraje)

Realitou som sa nezaoberal, t.j. dvojice som vytvoril zbrucha a nezmyselne, neviem ktoré mesto leží v ktorom kraji. To už je úloha na Teba

Pre kraj som naďalej ponechal rozbaľovacie pole pre prípad, že mesto nebude mať priradený kraj, v tom prípade si môžeš rozbaľovacím poľom kraja príslušný kraj doplniť výberom zo zoznamu.

P.S. Funkčný je kód s funkciou Vlookup.
Pre vyskúšanie prvej verzie musíš tento kód deaktivovať a aktivovať ten nad ním, ktorý je momentálne zelenou. To už hádam vieš ako...

Děkuji moc

Mimochodom, okrem toho, že si tým chybným spúšťaním (pravým myšoklikom) volala štandardný excelovský formulár a nie náš užívateľský,
je i po oprave ešte potrebné doplnenie procedúry do modulu Formulára:

Private Sub UserForm_Activate()
    frmFormular.spbPorC.Max = Sheets("Seznam").Range("A1").End(xlDown).Row - 1
    Naplnenie (frmFormular.spbPorC.Value + 1)
End Sub

Bez toho sa síce užívateľský formulár zobrazí, ale nerozbehne... (nenaviaže sa na tabuľku)

Ještě bych tě chtěla poprosit upravila jsem tabulku a všechno funguje.
Jen to nechce vyhledávat Okres.

Zadám město a mělo by to najít Okres což neudělá a nemůžu najít chybu.

A dále jak a kde mám zadat kód například

Kód: Město: Okres:
1 Abertamy Karlovarský

Moc děkuji.

V příloze zasílám soubor.

Ještě jednou děkuji

Tak neviem, akosi som nepochopil, akú kombináciu riešení si si zvolila...
Asi netušíš, ako tie veci, čo som Ti navrhol, pracujú...

Za prvé, nejak nám vypadol kraj.
Tak ako, bude tam alebo nie?
Vyzerá to, že nie, tak ok...

Za druhé, prvá verzia predpokladá, že vedľa každého mesta budeš mať napísaný okres. Nič iného, žiadny kód, nič.
Chceš povedať že máte 4 mestá, ktoré sa nazývajú Adamov a pritom každé je v inom okrese?
Že máte 7 Albrechtíc a pritom každé v inom okrese?
No ty brďo!!!
Tak to je proste beznádejné, aby počítač vedel, o ktoré napr. Albrechtice (v ktorom okrese) Ti ide...
Pripadá mi to šialené, to snáď nemyslíš vážne!!!

Za tretie, ak si zvolíš verziu s vyhľadávaním kódom, musí byť mesto v prvom stĺpci a kód v druhom. Tam žiadny ďalší stĺpec s názvom okresu nebude.
Následne musí existovať tabuľka: Kód - okres,(t.j. kód v prvom stĺpci, okres v druhom) kde podľa kódu, ktorý patrí vybranému mestu z prvej tabuľky, nájdeš v druhej tabuľke príslušný okres.
Aby si toto pochopila, naštuduj si funkciu VLOOKUP.

Za štvrté, keď sa rozhodneš využiť prvú verziu, nepoužívaj procedúru, ktorá je určená pre druhú verziu...

Takže sa najprv vyjasni toto a potom sa ozvi...
Zatiaľ nemá význam riešiť žiadne ďalšie dotazy...

Dobrý den,
bohužel jsem to špatně pochopila.
Kraj nevypadl jen jsem ho přejmenovala na Okres.
Takže je tam Město Černý most a Okres Hlavní město Praha.

Ano je to tak 4 města Adamov v každém jiném okrese.
Bohužel já sem je nevymyslela.
Je to seznam měst a Okresů.

Jinak je vše v pořádku jen potřebuji, aby to vyhledávalo.

Ještě bych Vás chtěla poprosit o přidání tlačítka Vložit.

Např:

Albrechtice

Název Albrechtice má více obcí:
Albrechtice (okres Karviná) (Albrechtice u Českého Těšína) – obec v okrese Karviná
Albrechtice (okres Ústí nad Orlicí) – obec v okrese Ústí nad Orlicí
Albrechtice (Horní Jiřetín) – zaniklá obec, zhruba 11 km jihozápadně od Litvínova
… nebo částí obcí:
Albrechtice (Drahonice) – vesnice v obci Drahonice v okrese Strakonice
Albrechtice (Pěnčín) – vesnice v obci Pěnčín v okrese Liberec
Albrechtice (Rozsochy) – vesnice v obci Rozsochy v okrese Žďár nad Sázavou
Albrechtice (Sušice) – část města Sušice v okrese Klatovy
Albrechtice (Malešov) – vesnice v obci Malešov v okrese Kutná Hora
Slovo Albrechtice se objevuje také v názvech obcí:
Albrechtice nad Orlicí – obec v okrese Rychnov nad Kněžnou
Albrechtice nad Vltavou – obec v okrese Písek
Albrechtice v Jizerských horách – obec v okrese Jablonec nad Nisou
Město Albrechtice – město v okrese Bruntál

Apod....

Děkuji Vám za úpravu.

Ešte som upravil dve veci:

- zmenu udalosti pre prvok cobMesto z AfterUpdate na Change (okamžité preberanie hodnoty)
- možnosť editácie textového poľa txtPorC kvôli prípadnej potrebe priameho prístupu (bez narolovávania) ku konkrétnemu číslu (vrátane kontroly vstupnej hodnoty)

Díky moc
Vše je OK

Chváľme Pána na nebesiach

Či...?

Hosi mate moj respekt...za tu svatu trpezlivost.