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

MS Excel

Téma: Makro na liště nástrojů

Zaslal/a Jirka_sirka 15.6.2012 23:52

Prosím o pomoc. Vyzkoušel jsem snad vše a nemůžu se dobrat výsledku. Mám vytvořené makro. Přiřadil jsem jej na lištu nástrojů. Při zkopírování souboru kamkoliv v mém PC pomůže uložení makra do personal, ale jestliže jej kopíruju do jiného PC nese s sebou údaj o cestě uložení. A to i v případě, že personal překopíruji do příslušného adresáře na jiném PC. Vždy hlásí chybu a v hlášce se objeví text cesty uložení v mém PC. Prosím o radu,. Díky moc

Zaslat odpověď >

---

Pavlus(16.6.2012 13:29)#008820

Evidentně potřebuješ vytvořit dynamickou cestu k makru. Nelze využít:
ThisWorkbook.Path '?P.citovat

Richard99(25.6.2012 13:28)#008887

Ikony na liště jsou uloženy v souboru excel.qatcitovat

Jeza.m(25.6.2012 17:52)#008894

Ve firemní síti řeším tak, že soubor s makry mám na síti a jednotlivá tlačítka panelu nástrojů s vlastními makry se pak odkazují na tento soubor. Narozdíl od kopírování maker do personal, touto cestou mám pořád správu nad makry a jakákoliv změna v makru se projeví u všech uživatelů a ne že každý bude mít jinou verzi :-).
Soubor se jmenuje makra.xls a po ukončení cyklu se sám bez dotazů zavře, příklad:
Sub DiakritikaX()
On Error Resume Next
Application.DisplayAlerts = False
Dim cs As String
Dim us As String
cs = "ščřážůúíýéěťóďňŠČŘÁŽŮÚÍÝÉĚŤÓĎŇ" ' případně některé další
us = "scrazuuiyeetodnSCRAZUUIYEETODN" ' pripadne nektere dalsi

For i = 1 To Len(cs)

Selection.Replace What:=Right(Left(cs, i), 1), Replacement:=Right(Left(us, i), 1), LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
ReplaceFormat:=False
Next
Application.Workbooks("Makra.xls").Close
End Sub
M@citovat

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse