Příspěvky uživatele


< návrat zpět

Strana:  1 ... « předchozí  9 10 11 12 13 14 15 16 17   další » ... 53

Ahoj,

kdybych to měl řešit já, tak na to jdu asi trochu jinak :-).
Vytvořil bych si soubor s makrem, které bude pracovat s aktivním listem a data ukládat do mnou zvoleného souboru.
Pak bych dle verze excelu přidal tlačítko buď do panelu nástrojů, nebo do ribbonu s odkazem na toto makro. V podstatě takový "doplněk", který není nastaven jako doplněk, ale jako klasický soubor. Toto tlačítko je pak dostupné v jakékoliv instanci excelu na mém počítači. Při exportu se otevře nový excel s novým oknem exportu, po stisku tlačítka se otevře můj soubor s makrem, který zpracuje exportovaná data, tyto může vložit do jiného souboru. Je vhodné pak v tom svém makru mít nastaveno, aby se po vykonání makra soubor s makrem sám zavřel.
V mém případě šlo jen o uložení exportu do souboru, v tvém případě tam místo uložení může zpracování dat do jiného existujícího souboru.
Sub ulozeni_reportu()
On Error GoTo x
If Cells(8, 5) = "" Then Cells(8, 5) = Date
ActiveWorkbook.SaveAs "Cesta\Soubor.xls"
Application.Workbooks("Makra.xls").Close
Exit Sub
x:
MsgBox "Chyba při ukládání"
Application.Workbooks("Makra.xls").Close
End Sub

Jen to jen tip :-)
M@

To já jen tak :-), jeden nikdy neví :-).

Ještě bych zkusil VZORCE -> Správce názvů, jestli neexistují pojmenované oblasti odkazující se na externí soubor.

M@

V českém Office...
DATA -> Upravit odkazy -> Zrušit propojení :-)

Předpokládám že makro budeš spouštět z cílového souboru. Pak je třeba někde si definovat to "něco".

Application.ScreenUpdating = False
Dim nazev As String
Dim soubor as String
Dim ws1 As Worksheet

nazev = "výkony" 'jméno listu ze kterého budeme kopírovat
soubor = "C:\něco_výkony_LINX.xlsx" 'zdrojový soubor
Dim wb As Workbook

Set ws1 = Sheets("výkony") 'Název listu do kterého budeme kopírovat

Set wb = Workbooks.Open(soubor, False, True)

Dim ws2 As Worksheet
Set ws2 = wb.Sheets(nazev)

ws2.range("B4:Y48").copy
ws1.range("A2").PasteSpecial xlPasteAll

wb.Close False
Application.ScreenUpdating = True

Ahoj,

měl bych tady pokračování k téma ...
http://wall.cz/index.php?m=topic&id=29569

Zkouším co se dá a pořád ne a ne opět rozchodit Treeview. Při všech těch testech jsem narazil na něco co mi nějak nejde do hlavy, viz. obrázek v příloze.
Vlevo je pohled na vlastnosti souboru skrze Průzkumníka Windows. Vpravo pak pohled skrze okno Add Reference vyvolané přes VBA. Jedná se o stejný počítač, stejný čas, stejnou cestu a stejný název souboru, ale přesto se to tváří, jako by se jednalo o jiný soubor (viz. datum a verze souboru). Nějak vůbec nechápu, jak něco takového může vůbec nastat a třeba je to právě ten kámen úrazu, jen teda nevím co s tím :-(. Nemá někdo tip (teda krom použití staršího TreeView, či přeinstalaci Windows) :-).
Díky
M@

Zkus si v okně VBA dát TOOLS -> REFERENCES -> BROWSE a najít soubor MSCOMCTL.OCX a přidat ho, pak se ti ty prvky v seznamu snad objeví.

M@

Ne ne, o soubory, či adresáře vůbec nejde.
Jde o Treeview, kdy v databázi mám x skupin, každá z nich má y podskupin, které pak mají n vlastních položek. Uživatel si pak najde položky jenž ho zajímají a tyto zaklikne checkboxem v ovládacím prvku, přičemž nemusí zaškrtávat jen položky, ale i celé skupiny, či podskupiny (v podstatě něco jakoimg)
Na základě tohoto výběru pak přes makro dostane požadovaná data.

Ano asi je víc způsobů jak to udělat jinak, ale treeview mi na to přišel nejideálnější a nějak se nechci smířit s tím, že by něco co ještě minulý týden fungovalo, najednou fungovat nemělo a já to kvůli tomu musel předělávat - to si nechávám až jako poslední možnost.

Díky
M@

Vypadá to že se historie opakuje a s novými aktualizacemi od MS, přestal fungovat soubor používající treeview. Zkoušel jsem zde popsané tipy, jako mazání exd souborů, kontrolu registrů, že tam nezůstaly předchozí verze (http://stackoverflow.com/questions/34803843/excel-vba-automation-error-due-to-jan-2016-office-update-probably-caused-by-m), odregistraci a opětovnou registraci, nahrazení souboru MSCOMCTL.OCX za starší verzi z PC kde ještě funguje, odregistraci a opětovnou registraci (v tomto případě mi to neustále hlásí že třída není zaregistrována), po vrácení nového souboru a přeregistraci hlásí (ClassFactory nemůže předat požadovanou třídu).
Tak nějak už mě nic nenapadá :-(.
Jedná se o Office 2013 (32bit) na Windows 7 (64bit) ale už mám i info že nejde ani na Win7 32bit.

Docela zajímavé je, že stejný prvek s odkazem na stejnou knihovnu přidaný ve Visual Studiu 2013 funguje a stejně tak testováno i ve starém VB6, kde taky funguje, takže problémy dělá opravdu jen Office :-/

Díky za případné tipy.
M@

Koukám kategorie Mobility už dlouho nemá žádný příspěvek, tak to prolomíme :-).
Našel by se tady někdo se zkušeností programování aplikací pro Windows Phone, případně s development účtem a možností publikace aplikací do Windows Store?

Měl bych jednu aplikaci (takový první pokus o tvorbu) napsanou ve Visual Studiu, pomocí VB. Sice není úplně dokonalá, ale na mém telefonu funguje. No a tak bych se rád zeptal co by to obnášelo, kdybych se o ni chtěl podělit, ale placený účet si kvůli tomu zřizovat nechci :-).

Jedná se o dálkové ovládání digitální zrcadlovky Pentax K-S2 přes Wifi. Tzn. z telefonu lze pořídit snímek, nastavit parametry (Autofocus, Vyvážení bílé, Citlivost, Clona, Čas, případně Expozice), zobrazit poslední (od zapnutí pořízený) snímek + procházet starší snímky.

Oficiální aplikace existuje pouze pro Android, našel jsem verzi pro Windows, která mi pomohla s vytvořením aplikace pro WP.

Nepředpokládám že by aplikace našla nějak závratné využití, ale občas se třeba někdo najde :-).

No a třeba mě někdo i poučí co se psaní aplikací pro WP týče, co mám špatně, co jde lépe a tak, teda najde-li se někdo kdo by měl zájem onen projekt zkouknout :-).

Díky
M@

Já myslím že je to srozumitelné, dvojklikem na hodnotu se zobrazí zdrojová data a uživatel toto chce pro více hodnot v KT a udělat z toho jedinou tabulku.
Napadají mě způsoby 2 a oba jedině makrem.
1) projet KT, vyhledat označené buňky a zkusit z KT vyčíst parametry, jenž nám ve zdrojové tabulce pomohou identifikovat záznamy naležející dané hodnotě, tyto pak vypsat jinam.
2) pomocí Selection.ShowDetail = True si nechat vypsat hodnoty pro každou hodnotu jenž chceme, čímž vznikne nový list, makrem pak z listu s nejvyšším indexem vykopírovat data do naší cílové tabulky a hned na to list s nejvyšším indexem smazat a v tomto cyklu nechat proejt všechny hodnoty.
Bohužel zrovna nemám čas celé napsat :-)
M@

Podmíněné formátování na základě vzorce, nikoliv hodnoty v buňce, to se pak lze odkázat na libovolnou buňku.

Chtělo by to vidět.
M@

Něco na způsob ...
=SUMIF(A:A;">="&D1;B:B)-SUMIF(A:A;"<"&E1;B:B)

kdy D1 = 8.1.2015 a E1 = 15.1.2015

M@

No jo, já hupsnul z 2003 rovnou do 2013 :-), tak jsem to dříve nezaznamenal :-).
Kód mi pomohl a do budoucna jej budu hojně využívat :-), Děkuji.

Po pár pokusech to vypadá že si vystačím i s jednořádkovou syntaxí :-), viz. příklady níže:
MsgBox Range("TB_JMENA").ListObject.ListColumns("JMENO").Range(2) 'hlavička = řádek 1
MsgBox Range("TB_JMENA").ListObject.ListColumns("JMENO").DataBodyRange.Rows(1) 'hlavička = řádek 0
MsgBox Range("TB_JMENA").Cells(1, Range("TB_JMENA").ListObject.ListColumns("JMENO").Index) 'hlavička = řádek 0


Díky
M@

Ahoj,

v Office 2013 se setkávám s možností formátování oblasti jako tabulky, kdy pak vzorce v této tabulce využívají názvy sloupců.
Například tabulka o dvou sloupcích pojmenovaných JMENO a PRIJMENI, když pak v rámci tabulky chci do třetího sloupce dosadit CELE JMENO, tak by vzorec vypadal asi takto:
=[@[PRIJMENI]] &" "& [@[JMENO]]
kdybych totéž chtěl udělat na stejném řádku, ale mimo tabulku, tak by vzorec vypadal takto:
=TB_JMENA[@PRIJMENI] &" "& TB_JMENA[@JMENO]&".

No a teď ta má otázka :-).
Lze toto použít v makru?
Kdybych měl například makro
msgbox List1.Range("TB_JMENA").Cells(radek, sloupec)
řádek je jasný, ten si musím asi definovat vždy číslem, ale co sloupec, kdybych se nechtěl odkazovat na konkrétní číslo sloupce, ale na název sloupce?
Teda aniž bych před tím jiným makrem hledal číslo sloupce podle názvu sloupce :-).
Jde mi o to, že bych se pak v makru neodkazoval fixně na konkrétní sloupec, respektive by se z absolutního odkazu stal relativní.

Díky
M@

pokus.

M@


Strana:  1 ... « předchozí  9 10 11 12 13 14 15 16 17   další » ... 53

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Aktivní diskuse

odpocet a storno tl.

PavDD • 28.3. 8:53

odpocet a storno tl.

Začátečník • 26.3. 14:39

odpocet a storno tl.

PavDD • 26.3. 10:22

odpocet a storno tl.

elninoslov • 26.3. 7:50

odpocet a storno tl.

PavDD • 26.3. 7:26

odpocet a storno tl.

elninoslov • 25.3. 22:34

odpocet a storno tl.

Začátečník • 25.3. 15:09