Excel - ověření dat

Programy pro práci v kanceláři (Word, Excel, Access…=>Office)

Moderátor: Mods_senior

Odpovědět
Petas999
nováček
Příspěvky: 2
Registrován: 02 říj 2010 00:43

Excel - ověření dat

Příspěvek od Petas999 »

Zdravím, potřeboval bych prosím poradit... mám více listu ale hlavní údaje chci brát jenom z jednoho což je seznam klientů. Chci aby jsem když kliknu na jméno tak se mi zobrazil seznam kde budu vidět 2-3 sloupce jako třeba Příjmení,Jméno,Telefon a když si ho vyberu tak aby se mi automaticky vyplnili tyto kolonky do nového zadávání. Přemýšlel jsem, že by se to asi dalo nějak udělat přes ověření dat ale nevím jak to uděla abych viděl více sloupců najednou... Děkuji za rady nebo ukázkový sešit.
navstevnik
Level 4
Level 4
Příspěvky: 1142
Registrován: 29 srp 2008 16:49

Re: Excel - ověření dat

Příspěvek od navstevnik »

Mozne reseni, princip:
Vyberem urcene bunky (bunek) udalostni procedura Worksheet_SelectionChange zobrazi pole se seznamem (z Ovladacich prvku, naplneno ze Seznamu, pozadovany pocet sloupcu,...), vyberem polozky je prenesena hodnota do volajici bunky. Podle hodnoty ve volajici bunce fukce SVYHLEDAT v urcenych bunkach vyhleda v Seznamu dalsi polozky.
Priklad, zakladni funkcionalita:
Seznam je na list3!A2:C6, hlavickovy radek list3!A1:C1
Ve vlastnostech pole se seznamem je v ListFillRange odkaz na seznam, BoundColumn=1, ColumnCount=3, ColumnWidths=70;50, ListWidth=200, Width=100, Visible=False,...
Udalostni procedura v modulu listu1:

Kód: Vybrat vše

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Target.Column <> 1 Then Exit Sub
  With Me.ComboBox1
    .Visible = True
    .Activate
    .LinkedCell = Target.Address
  End With
End Sub

vlozi do vlastnosti pole LinkedCell, aktivuje pole a zobrazi.
Vyberem v seznamu je prenesna do volajici bunky polozka z prvniho sloupce seznamu a procedura v modulu listu1 skryje seznam:

Kód: Vybrat vše

Private Sub ComboBox1_Click()
  Me.ComboBox1.Visible = False
End Sub

Doplneni dalsich polozek: v list1!B1 je vlozen a kopirovan dolu vzorec:
=KDYŽ(A1="";"";SVYHLEDAT(A1;List3!$A$2:$C$5;2;NEPRAVDA))
ktery muzes aplikovat na dalsi sloupce k doplneni polozek ze Seznamu.
Pozn.: Seznam muze byt definovan jako dynamicke pojmenovane pole viz http://www.officir.ic.cz/chipex04/03/ex ... avani.html
Přílohy
OvereniZobr3Sl.xls
(28 KiB) Staženo 62 x
Petas999
nováček
Příspěvky: 2
Registrován: 02 říj 2010 00:43

Re: Excel - ověření dat

Příspěvek od Petas999 »

Děkuji za radu jenom nechápu, proč se mi políčko ze seznamem schovává :) zobrazí se jenom když kliknu do sloupce kde chci zadávat. Dá se to udělat nějak abych si mohl vytvořit zadávací a prohlížecí formulář???
Děkuji moc za rady.... Krásný víkend
navstevnik
Level 4
Level 4
Příspěvky: 1142
Registrován: 29 srp 2008 16:49

Re: Excel - ověření dat

Příspěvek od navstevnik »

Dostal jsi radu co mozna nejlepe odpovidajici polozenemu obecnemu dotazu:
údaje chci brát jenom z jednoho což je seznam klientů. Chci aby jsem když kliknu na jméno tak se mi zobrazil seznam kde budu vidět 2-3 sloupce jako třeba Příjmení,Jméno,Telefon a když si ho vyberu tak aby se mi automaticky vyplnili tyto kolonky do nového zadávání

A nyni:
Dá se to udělat nějak abych si mohl vytvořit zadávací a prohlížecí formulář???

Na to je pouze odpoved: Da se udelat. A ty tri otazniky na konci nic v odpovedi nezmeni.

Pokud zadas konkretni reseni, musi dat dostatecne podrobny popis pozadavku nejlepe doplneny demo souborem s rucne vytvorenou predstavou reseni.
Odpovědět
  • Podobná témata
    Odpovědi
    Zobrazení
    Poslední příspěvek
  • Ověření MacBook Air
    2 Odpovědi
    4697 Zobrazení
    Poslední příspěvek od Karel203
  • Přechod z Excel 21 na Excel 24
    od Snekment » » v Kancelářské balíky
    2 Odpovědi
    14492 Zobrazení
    Poslední příspěvek od Snekment
  • Pohoda a excel
    od brownwld » » v Kancelářské balíky
    1 Odpovědi
    7413 Zobrazení
    Poslední příspěvek od atari
  • Excel 2016 - vzorec kombinace podmínek
    od MK_Vs » » v Kancelářské balíky
    5 Odpovědi
    6212 Zobrazení
    Poslední příspěvek od lubo.
  • Tisk sloupců vedle sebe na A4 - Excel
    od atari » » v Kancelářské balíky
    5 Odpovědi
    5992 Zobrazení
    Poslední příspěvek od atari

Zpět na „Kancelářské balíky“