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

Příspěvky uživatele

Podobná věc se tu už řešila, ale bohužel jsem teď nenašel to téma. Ale mám z toho pro sebe vytvořené 2 soubory, kde je popsaný postup. Je tam řešení pomocí kontingenční tabulky nebo maticových vzorců. Není to ale s Svyhledat.

Jen pro úplnost, zatím tedy nevím proč je chování makra závislé na tom, jak se spustí (jestli to je vůbec tím).
A potíž jsem vyřešil tak, že makro je stejné v každém souboru, včetně názvu a spouštím ho zavoláním po double-clicku na určité buňky v události sešitu. Takto mi to vyhovuje skvěle.
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
Set prunik = Intersect(Target, Range("F1:I1"))
If prunik Is Nothing Then
GoTo Konec
Else
Dotaz = MsgBox("Nahradit jména?", vbYesNo, "Nahrazení")
Select Case Dotaz
Case vbNo
GoTo Konec
Case vbYes
Call zamena_jmen
End Select
Konec:
End If
Range("B2").Select
End Sub

Příloha: nad polem kde se vkládá text je políčko "Příloha", vedle tlačítko "Browse". Pod nimi řádek s typy povolených přípon. Excel soubor je nutné zabalit, nejlépe Zipem. Najít soubor, při odeslání příspěvku je automaticky přidaný.

Vybírat ze seznamu ten správný soubor. To by nemuselo být ani v Personal, ale i v tom makru v souboru. Ale do toho řešení se mi taky moc nechce, zvyknul jsem si na zkratku a neřešit nic okolo. Já už dýl dělal s každým souborem zvlášť, to je Ok, až když je mám všechny otevřené, je problém.
Já ještě zkusím automatické spuštění makra třeba double-clickem nebo po editac nějaké bunky na začátku listu, jestli se mi to podaří takto zprovoznit. Zatím asi dík za rady...

Zkusil jsem i Personal.xls, tam zase nevím, jak určit ten správný sešit z několika otevřených, kde to makro bude pracovat. A chtěl bych pokud možno řešení jen v rámci souborů, třeba daných na flash když jsem na cizím počítači (zaměst. a tak)
Ale jestli můžu požádat o způsob jak adresovat ten soubor z Personal ...

ActiveWorkbook.Close - to je ta chyba viz. 2.příspěvek

edit: Excel 2007,2010. V jednom souboru v ukázce je chyba u zavírání souboru a makra zde mají shodná jména. Vývoj.verze.

Ahoj, potřebuju radu.
Když fungující makro spustím klávesovou zkratkou CRTL+SHIFT+písmeno, v průběhu makra se mi správně nezavře makrem otevřený dokument. Navíc ani žádná chybová hláška, zavřu dokument ručně a nic nepokračuje, jde to jako do ztracena. Ale stačí makro spustit jen CTRL+písmeno a funguje. Čím to asi je?
Více k tomu: makro cyklem nahrazuje jména. Otevře "banku_jmen", načte do pole, zavře, návrat k sešitu, kde bylo spuštěno, nahrazení. Chci ve více naráz otevřených sešitech pouštět stejné makro, nejlíp zkratkou. Když je stejný název makra a stejná kláv.zkratka, to nejde, po .close nenajde správně původní dokument, nahradí jinde. Zavrhnul jsem několik jiných možností, vyšlo mi nejlíp mít
v každém souboru stejné makro s jiným názvem a jinou kláv.zkratkou, tady jsem ale ztroskotal na tom problému se SHIFT. Nemám tolik volných zkratek jen s CTRL. Souborů, listů, jmen je moc moc.
V ukázce je potřeba otevřít jen soubory.xlsm, banku_jmen si otevírá makro.

Jde to udělat i tím tažením: místo =c3 a =c7 napiš %c3 a %c7, pak tažením dolů pokračuje správně číselná řada. Nakonec zaměň ctrl+h znaky % za = a je to!

1. V ukázce dat není v odjezdu březen ani duben: není to tím?
2. Musí to být rozšířeným fitrem? Mě na to funguje obyč automatický filtr nasazený na všechny sloupce
3. viz příloha, řešení v Excel2010, starší: nevím

Cos to Janku, cos to sněd ...

Za předpokladu, že není vynechaný řádek od G7 a jedná se pouze o čísla, stačí do nějaké buňky dát vzorec:
=INDEX(G7:G43;POČET(G7:G43))
Když se budou míchat čísla a text, jde to vylepšit:
=INDEX(G7:G43;POČET2(G7:G43))

Já to pochopil i bez ukázky, zkusím tedy svoje řešení. List s nabídkou se bude kopírovat celý, to umožní jakoukoliv nabídku upravit a uložit pod dalším číslem.

marjankaj: No jooo!

Co tohle?

Jenom úplně jednoduchá věc. Zvykl jsem si, když sepisuju kód, jakmile napíšu For i=1 To ...atd. hned zato si dám řádek Next i - a teprve potom dávám příkazy mezi to.

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse