Mě funguje. Co vidíš za problém? Nebo na co to makro je?citovat
excel, návod, tipy, funkce, makra, vba, tabulky, šablony
Váš průvodce programem Microsoft Excel a programováním maker ve VBA
< návrat zpět
Téma: Makro VBA
MS Excel
Téma: Makro VBA 
Zaslal/a krapl 23.9.2010 14:22
Proc nefunguje tak jednoduche makro, nahrane makrokamerou? Jak opravit?
Příloha: 
2521_why.rar (13kB, staženo 20x)
2521_why.rar (13kB, staženo 20x)(23.9.2010 16:13)#002524
Mi to hlásí chybu
Run-time error 57121
Application-defined or object-defined error
Nevím jak se tu dá poslat obrázekcitovat
Run-time error 57121
Application-defined or object-defined error
Nevím jak se tu dá poslat obrázekcitovat
Na čem to jede
verze MSO a verze Win??? + SP u nich?citovat
verze MSO a verze Win??? + SP u nich?citovat
*.rar si v kanclu neotevřu, ale z chyby to vypadá, že jsi zapoměl něco nadefinovat. Pokud máš nový excel 2007, tak ten už nenahrazuje nedefinované proměné typem variant, ale hlásí právě tuto chybu. Jukni, zda ti někde nechybí nějaké definice proměné nebo objektu.citovat
Jede to na Excel 2002 SP 3, pro každý jiný soubor než ten co je v rar to bezpečně bez problémů funguje, je to také tiviálnost. Soubor why.xls vznikl, tak že v Mozile jsem zadal ctrl+A a ctrl+C a do sešitu "input" vložil ctrl+v pak jsem chtěl opravit "input" na "out" a k mému údivu Sheets("out").Select hlásil tuto chybu, vše co je jiné tak dole v sešitě "input" je takový šedý čtereček, který nejde smazat, odkud se vzal nevím.citovat
Ahoj. V podstatě sis odpověděl sám. Problém je, že ve Tvém sešitě jsou prvky, které sice existují, ale nejsou vytvořené. Podívej se na VBA ... dáš F2 a podíváš se na nahoře : VBAProject ... pak dole List1 ... a vpravo najdeš komponenty HTMLHidden1 apod.
Rovněž, když se podíváš na v design modu na list 1 a 2 tak ve výběru máš nabídku na List1 + HTMLImage.
Podle mě tyto ActiveX obj. existují, ale chybí na ně Create + reference do ??? doplňku.
Nejjednodužší je smazat celý sešit do pryč a udělat to přímo v VBA a nebudeš mít problém s CTRL+C ... CTRL + V.
Nebo máš možnost nejdříve aktivovat doplňěk (musíš zjistit který to je) a až pak otevřít sešit. Je možné, že to bude fungovat ale nesázím na to.
Nebo vyzkoušej třeba odstranit tímto způsobem
Sub mazej()
Call VBAProject.List1.HTMLHidden1.Delete
Call VBAProject.List1.HTMLImage1.Delete
Call VBAProject.List1.HTMLText1.Delete
Call VBAProject.List2.HTMLHidden1.Delete
Call VBAProject.List2.HTMLImage1.Delete
Call VBAProject.List2.HTMLText1.Delete
End Sub
Ani toto nemusí fungovat. Za strátu času Ti to nestojí ... udělej to znova.
R.citovat
Rovněž, když se podíváš na v design modu na list 1 a 2 tak ve výběru máš nabídku na List1 + HTMLImage.
Podle mě tyto ActiveX obj. existují, ale chybí na ně Create + reference do ??? doplňku.
Nejjednodužší je smazat celý sešit do pryč a udělat to přímo v VBA a nebudeš mít problém s CTRL+C ... CTRL + V.
Nebo máš možnost nejdříve aktivovat doplňěk (musíš zjistit který to je) a až pak otevřít sešit. Je možné, že to bude fungovat ale nesázím na to.
Nebo vyzkoušej třeba odstranit tímto způsobem
Sub mazej()
Call VBAProject.List1.HTMLHidden1.Delete
Call VBAProject.List1.HTMLImage1.Delete
Call VBAProject.List1.HTMLText1.Delete
Call VBAProject.List2.HTMLHidden1.Delete
Call VBAProject.List2.HTMLImage1.Delete
Call VBAProject.List2.HTMLText1.Delete
End Sub
Ani toto nemusí fungovat. Za strátu času Ti to nestojí ... udělej to znova.
R.citovat
Uživatelské menu
Nejste přihlášen(a)
\n
\nMenu
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
Vynásobit hodnoty kurzem - Power Query
Alfan • 26.4. 7:56
Relativní cesta - zdroje Power Query
Alfan • 26.4. 7:54
Vynásobit hodnoty kurzem - Power Query
elninoslov • 26.4. 7:54
Vynásobit hodnoty kurzem - Power Query
lubo • 25.4. 19:18
Relativní cesta - zdroje Power Query
elninoslov • 25.4. 15:12
Relativní cesta - zdroje Power Query
Alfan • 25.4. 15:08
Relativní cesta - zdroje Power Query
elninoslov • 25.4. 14:21
RSS nejnovější články