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

Příspěvky uživatele

Mno - už musím jít, ale zkuste With ActiveWorkbook.Sheets("ListM")
With .Range(.Range("H2"), .Range("H2").End(xlDown))
.TextToColumns Destination:=.Cells, DecimalSeparator:=",", ThousandsSeparator:=" "
End With '.Range(.Range("H2"), .Range("H2").End(xlDown))
End With 'ActiveWorkbook.Sheets("ListM")

@xlnc
Pravda - no beru zpět
ani .FormulaLocal=.FormulaLocalnefunguje
6.5 mění na 6.5.2016 - potvora excel ;)))

Taková blbost a více než 10 postů ;))) With ActiveWorkbook.Sheets("ListM")
With .Range(.Range("H2"), .Range("H2").End(xlDown))
.Value = .Value
End With '.Range(.Range("H2"), .Range("H2").End(xlDown))
End With 'ActiveWorkbook.Sheets("ListM")

Nepotřebujete kód - dejte převést text na číslo (zelený čtvereček
Já používám v immediateSelection.Value = Selection.Value

já a kolegové s tím budou pracovat dnes a denně, proto to musí být v excelu. Oni se v ničem jiném vážně nemají šanci naučit. Jakýkoli jiný program tedy nepadá v úvahu. Budu rád, když se o to někdo pokusí a udělá to... odměna ho nemine

Ano nebojte se, budete pracovat v excelu, ale ten bude napojen na externí data (databázi)

Ještě je možnost csv + powershell - ale s milionem řádků jsem to nezkoušel

Zkusím to ještě jednou
Ne kde ta data budou, ale kde je máte teď?

V excelu to nepude - resp. pude, ale pracovat bych s tím nechtěl.

Jo - to jsem pochopil správně. Nicméně, zeptám se ještě jednou - to opravdu máte x-listů po milionu řádků v excelu?

Ptám se proto, že to už je na databázi a databázový dotaz (SQL). Takže pokud ta data udržujete někde jinde - netahejte je do excelu (dyť se to musí otevírat 14 dní)
Pokud to máte v excelu a nemáte možnost z toho udělat databázi - tak bych to viděl na další sešit a opět SQL dotaz.

Ježíš, to jste musel psát dlouho ;))
Škoda, že tak dlouho neudržím pozornost - nicméně i tak je to pastva pro oči, když to srovnám se zadáními, která tu poslední dobou přibývají. ;))

Jestli tomu rozumím, list Zadání představuje data pro filtr

Jen mně děsí ta poznámka
Nezapomeňte, že se tu pak bude pracovat s hrozně moc daty a na každém listě bude až milion klasifikací.

Ta data máte opravdu uložena v excelu?

Najdete v adresářiC:\Users\Uzivatelske_Jmeno\AppData\Roaming\Microsoft\Excel\XLStartUpozorňuji, že složka AppData je skrytá.
Soubor vzniká, pokud dáte nahrát makra a nastavíte uložení v osobním sešitu maker. Otevírá se s každým spuštěním excelu, proto ho tam pořád vidíte.
Pokud je to váš počítač - nepoužívá ho nikdo jiný a vy nevíte jak vznikl, určitě ho odstraňte.
Pokud ten počítač používá ještě někdo jiný, mohl si ho vytvořit pro svou potřebu - domluvte se s ním. Pokud o něm neví - odstraňte.

Sice nemám 2013, ale mělo by to být stejné.
Na některou hodnotu v KT klepněte pravým tlačítkem a dejte oddělit

neřeším
dá
nepovím

Exportoval jsem si VCard z outlooku a vypadá to, že charset musíte použít u každého pole zvlášť - tedy asi nejlépe u všechBEGIN:VCARD
VERSION:2.1
N;CHARSET=windows-1250:xy.
FN;CHARSET=windows-1250:yxy
ORG:yxyxyx
TITLE;CHARSET=windows-1250:Finanční controller
TEL;CELL;VOICE:+420 123 456 789
EMAIL;PREF;INTERNET:yx@yx.xy
END:VCARD

potřeboval bych zjistit na kterém řádku v databázi (list2 "data_klient") se klient nachází

Pokud načítáte souvislou oblast, např. Range("A1:A100"), tak to vám právě řekne ListIndex (tuším, že začíná 0) takže přesněji ListIndex + 1.
Range("A1:A100").Cells(lb.ListIndex + 1)
Pokud ta oblast není souvislá nebo s daty v ListBoxu něco vyvádíte (např. řazení) - tak si adresu nebo řádek uložte jako další (nezobrazenou) hodnotu listboxu.
lb.AddItem Range.Value
lb.List(lb.ListCount - 1, 1) = Range.Address
Pokud ten listbox filtrujete, jak je v tomto tématu - tak nejsrozumitelnější pro vás bude použít vyhledávací funkci - nejpravděpodobněji Worksheetfunction.Match

Píšu to zbrucha - pokud to není přesné, berte jako inspiraci a nasměrování - dolaďte si.

Od boku

CHARSET=windows-1250

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse