Příspěvky uživatele
< návrat zpět
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
haf-haf napsal/a:
Kdo mu pomůže?
Já jsem misle že to je poradna kde jiným pomáhají.
Tak jsem se spletl.
;)))
jo, asi jo
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
\nMenu
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
Helios iNuvio
Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.
RSS nejnovější články