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.

Jen drobná poznámka:
Pokud už chceš vybírat sídlo z nějakýho seznamu, dělá se to většinou opačně - vybereš kraj -> (pak případně okres) -> vyfiltruje to odpovídající seznam míst. Pokud chceš zachovat současný způsob výběru, musíš mít ten seznam zapsaný i s okresem. A úplně scestné jsou položky s označením "část" - copak víš, část čeho (tj. jaké obce) to je? A přímo lahůdka je vícenásobný výskyt stejně pojmenovaných částí...

Osobně bych se na výběr ze seznamu sídel vybodl, nechal bych to na ručním zápisu, eventuálně s ověřením, že napsané sídlo je v nějakém seznamu (a případně umožnil zápis nového sídla do toho seznamu). Myslím, že by to bylo rychlejší. Konečně, něco podobného už Ti naznačili na fóru Wall.cz, včetně dalších věcí, co potřebuješ ošetřit.

Poznámka č. 2: než se pustíš do takového poměrně složité úlohy:
1. udělej si analýzu, co, jak a odkud budeš zadávat, jaké přípustné hodnoty budou mít jednotlivé položky, jaké budou logické vazby mezi položkami, jestli bude rychlejší výběr z comboboxu, nebo přepínače, nebo ručním zadáním, jaké budeš potřebovat číselníky, jestli budou editovatelné, jaká bude logika ovládání formuláře, atd. atd. Pak i Tvoje případné dotazy budou logičtější a případní rádci z nich rychleji poznají, v čem potřebuješ poradit.
2. nastuduj si základy Excelu (přesněji Excel na úrovni "mírně pokročilý uživatel" + základy VBA).

Dotazovateľka má, žiaľ, svoje tvrdohlavé názory (vyberať dvojpoložkové údaje Pohlavie, Kategória a Funkcia ComboBox-om)... čo už...
Nech si robí, ako chce, ale keby nerobila svojrázne úpravy bez hlbšej znalosti, čo tým spôsobí...
Ak sa takýmito úlohami chce zaoberať, nemôže začať v strede a čakať, že niekto jej to dorobí.
Skôr to však nevyzerá na vážny záujem, len sa jej to páči a chce to... A tak to zadá...

Tip na výber kraja, až následne mesta ma nenapadol... Je to výborný návrh, ale vyžadovalo by to ďalšie hodiny a ja sa s tým nemienim viac zaoberať, aj tak už aj toto je navyše, čo pôvodne neriešila a pred čím vystríhal Čitateľ
Ak to pani bude chcieť takým spôsobom (rozhodne lepšie riešenie) tak už si to bude musieť doštudovať a upraviť (v čo pochybujem)

Je mi to jasný, jen obdivuji Tvoji trpělivost!

On ten seznam obcí je dost divný, jak už jsem psal - obsahuje asi i ty nejmenší vesničky (resp. skoro-samoty), a takové chuťovky jako "Albrechtice (Horní Jiřetín) – zaniklá obec, zhruba 11 km jihozápadně od Litvínova" - co tam dělá, když jde o zaniklou obec??
Zajímavě se bude vybírat třeba i z tohohle:
Rakovník I
Rakovník II (část)
Rakovník II (část)
atd...

Za času na čas tu občerstvujem informácie vo svojich závitoch a tak využívam reálne úlohy na vyskúšanie novozískaných tipov a trikov
Z toho plynie moja "trpezlivosť"

Hm, tak to máte veselé (aj keď nevylučujem, že pri podobnej analýze by sa vyskytlo čosi aj u nás ale aby bolo 7 miest s rovnakým názvom, každé v inom okrese (kraji) to je šialenstvo.
Každopádne aj keby to Excel priradiť (pod podmienkou, že vieš, že zo zoznamu 7 totožných Albrechtíc vieš, koľkáte máš vybrať ale je to šialené) jednoznačne odporúčam dať do názvu mesta ešte nejaký rozlišovací znak. Proste neexistuje, aby tam boli 2 rovnaké mestá. T.j. v rozbaľovacom zozname musí byť každý názov mesta iný! U Adamova som Ti naznačil cestu, prvých pár ďalších, ktoré treba rozlíšiť, som Ti označil červenou...
A dopúšťaš sa ďalšej nepresnosti - tvrdíš, že sa jedná o zoznam miest a okresov.
Ako sa tak na to pozerám, nejde náhodou o zoznam miest a krajov? Jedná sa o kraje, len Ty si si ich premenovala na okresy???
To akože Ti za to množstvo času, ktoré Ti venujem, nestojí za to byť dôsledná? Vnášaš chaos do chápania, čo vlastne chceš!!!

Za ďalšie:
Na kieho riť je tam stĺpec G s hlavičkou "Vek" ?!?!
To nemyslíš vážne, že ešte aj ročník chceš vyhľadávať rozbaľovacím zoznamom?!?!?!

Za ďalšie: Očividne si si zvolila cestu verzie 1. Ja uprednostňujem verziu 2, ktorou sa uberám. V tom zmysle som Ti upravil priraďovanie miest ku kraju kódom. Ty si ako zdroj pre rozbaľovací zoznam kraja použila kompletný rozsah pridelených (pôvodných) názvov krajov?!?! S miliónmi duplicít v zozname?!?! Na to je tá druhá - pomocná tabuľka: Kód kraja - Kraj

Takže: Vyhadzujem zbytočný stĺpec "A", následne prvé dva stĺpce budú predstavovať Mesto a Kód kraja. Ďalšia dvojica stĺpcov je Kód kraja a Kraj a nasleduje trojica stĺpcov Pohlavie, Funkcia, Kategória.
Vek RUŠÍM!!!

Ostatné stĺpce, kde som Ti predvádzal varianty, tam nemajú čo robiť, už len zavadzajú!

Skús...

Ještě bych měla dotaz.

Když vyberu město tak se mě na poprvé nic nezobrazí.

Musím ho vybrat znova a pak se teprve zobrazí.

Nevíte čím to může byt.

Jinak vše Ok a moc děkuji.

Děkuji

Etkin??? A zas v ženskom rode?
Pistackova=Etkin?

Normálka... stačí odentrovať zadanú hodnotu alebo prejsť na iné vstupné pole.
Ale v prílohe nižšej odpovede som to práve menil. Je tam spomenutý aj dôvod...

Pišťáčková nerovná se Etkin
Je to jen kolega

A proč se kolega montuje do tvého dotazu? Trochu schíza, jednou odpovídat tobě, jednou Etkinovi.... A když už musíte psát oba, proč Etkin reaguje v ženském rodě?

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.