Příspěvky uživatele

Zdravím,

vytvořil sem si v excelu formulář a v něm listbox. Jako zdroj listboxu používám oblast dat formátovanou jako tabulku. UserForm1.ListBox1.RowSource = "List1!Tabulka1"
Do této tabulky1 kopíruji data z Tabulka2 na druhém listu, kde se data filtrují pomocí autofiltru ovládaného též z formuláře.
Sheets("List2").ListObjects("Tabulka1").Range.AutoFilter Field:=1, Criteria1:=UserForm1.TextBox1.Value
Vše určitou dobu funguje jak má, ale po neurčité době formulář přestane pracovat a excel se restartuje. Vůbec netuším, čím by to mohlo být. Nesetkal jste se s tímto problémem někdo?
Děkuji za ochotu

Mrmola

Zdravím přátelé, řeším problémek ohledně tisku, kdy bych na základě určité podmínky potřeboval vybrat při tisku pomocí VBA konkrétní zásobník tiskárny, ze které se bude tisknout. Ať hledám, jak hledám, tak se mi nic podobného ražení nepovedlo najít obávám se, že to ani není možné.
Děkuji za jakýkoli tip.

Tak ne, vypadalo to jako OK,ale koukal sem špatně a přepsaný záznam je tam stále...

Ano, povedlo se...

Děkuji moc, sloupec č.artiklu jsem odebíral a vracel a pak aktualizoval, ale nenapadlo mě aktualizovat mezi. Úžasné, opravdu moc děkuji.
Neukládat zdrojová data v možnostech sem také zkoušel, ale zabralo až odstranění daného pole -> aktualizace -> a navrácení pole .. ještě jednou díky
Mrmola

Dobrý den,

řeším problém ohledně přepsaných dat k kontingenční tabulce, která přepsal uživatel a nedokážu žádným způsobem donutit excel, aby ukazoval originální zdrojová data. KT si načítá data z externí databáze, jakmile však v některé buňce data přepíšu, změní se mi všechna stejná data na nový název (viz.obrázek - všude mají být data 941-xxxxx atp a uživatel přepsal na b/5). Nepomůže znovunačtení dat z databáze, ani nic jiného, muselo by se to přepsat originálním názvem, který si nepamatujeme.
Děkuji za případnou radu
Mrmola

Díky, já načítám do pole upravené hodnoty funkcí MID, tak jsem přemýšlel o dvou varintách. Buď vložit do daného rozsahu vzorec, který mi vytvoří danou úpravu a pak celý rozsah vložit do pole a z pole zpět, abych dostal hodnoty, a nebo ten můj příklad, kdy načítám rovnou do pole upravené hodnoty a poté vložím pole do rozsahu. Nejsem si jistej, který způsob by byl rychlejší, ale ten s cyklem FOR v tom rozsahu co budu používat zatím vyhovuje. Nicméně moc díky za pomoc a dobrou radu

Děkuji moc, funguje to přesně tak jak jsem si představoval. Myslel jsem, že stačí jednorozměrné pole, ale jestli to dobře chápu, tak je zapotřebí vytvořit dvourozměrné. No... abych pravdu řekl, úplně 100% z toho moudrej nejsem, nicméně si to prostě zafixuju, že to tak je..

Ještě jednou moc díky

Zdravím odborníky,
mám myslím jednoduchý problém, který se mi nicméně nějak nedaří rozlousknout.

Když si vytvořím pole a naplním ho oblastí buněk s hodnotami ( pole = range(X:Y).value ) a potom toto pole vložím zpět např. do jiné oblasti ( range(X:Y+1).value = pole ), tak vše funguje jak má. Nicméně když naplním pole cyklem For a poté vložím toto pole do oblasti, tak se mi celá oblast vyplní pouze první hodnoutou pole. Příklad s makrem je v příloze. Nevíte někdo, proč se mi nevloží do oblasti všechny hodnoty? Děkuji moc za rady

Tak už jsem problém vyřešil manuálním vytvoření tabulky na převod .FilterType hodnot na české názvy filtrů. Díky za snahu
Mrmola

Dobrý den,

potřebuju pomocí makra zjistit jaký je použit filtr v kontingenční tabulce. Pomocí .FilterType dokážu zjistit číslo filtru, ke kterému jsem schopen z tabulky http://msdn.microsoft.com/en-us/library/bb241427%28v=office.12%29.aspx schopen dohledat název a případně můj překlad. Bohužel tato tabulka byla zřejmě vytvořena pro Office 2007 a s verzí 2013 nefunguje, nebo nesouhlasí s českými překlady. Nevíte někdo o této tabulce pro český Office, nebo alespoň nějaký fígl, jak bych třeba zjistil přímo český název filtru? Děkuji

Myslím že už jsem na to přišel, chyba byla v zápisu Cells(radek+1, sloupec).FormulaR1C1. To R1C1 tam nemá být.Přesto díky

Zdravím všechny experty,
mám jeden problém. Potřebuju pomocí makra doplnit do buněk násobení. Napsal jsem takovýhle vzorec
Cells(radek + 1, sloupec).FormulaR1C1 = Cells(radek + 1, sloupec).FormulaR1C1 & " * AI2"
V buňce Cells(radek + 1, sloupec) je odkaz do jiného sešitu a já do toho odkazu chci doplnit to * A2 jenže excel mi to předělá na * 'A2' a vzorec nefunguje. nevíte jak to zadat, aby to nedoplnilo ty apostrofy?

Díky moc za případnou pomoc

Moc se omlouvám, někam se mi ztratilo kus kódu. Byl jsem na dovolené, tak reaguji se zpožděním. Zasílám to ještě jednou. Pro jistotu jsem to ještě otestoval, takže takhle by to mělo být v pořádku.

Sub otevirac()
cesta = InputBox("Zadejte cestu k adresáři", "Cesta k adresáři", Default) 'cesta musí končit lomítkem

ChDir cesta
nazevtab = Dir(cesta & "*.xlsx")
While nazevtab <> ""
Msgbox (nazevtab)
nazevtab = Dir()
Wend

End Sub

Já bych použil např. funkci : Data -> Text do sloupců , kdy si vybereš oblast, kde máš tyto data a v průvodci, který se ti aktivuje, vybereš jako oddělovač čárku nebo tečku, podle toho jak to potřebuješ rozdělit.

Nevím jestli ti tohle trochu pomůže

cesta = InputBox("Zadejte cestu k adresáři", "Cesta k adresáři", Default) 'cesta musí končit lomítkem

ChDir cesta
nazevtab = Dir(cesta & "*.xlsx")
While nazevtab <> ""

Tímhle postupně otevírám všechny tabulky (nebo všechny soubory, pokud nahradíš příponu .xlsx hvězdičkou). Tak třebas se ti to hodí...

Příspěvky uživatele

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje