Makro v Excelu

[Pavel Cimbalnik]

Dobry den,

mam problem s fungovanim makra v Excelu. Mam nasledujici makro:

Sub Propojeni()
'
' Klávesová zkratka: Ctrl+Shift+P
'

Dim strPopis

Workbooks.Open "Sesit01.xls"
Range("A7").Select
ActiveCell.Offset(0, 1).Select
strPopis = ActiveCell.Value

Workbooks("Sesit02.xls").Worksheets(1).Activate
ActiveCell.Offset(0, 1).Value = strPopis

End Sub

Makro je ulozeno v souboru sesit02.xls. Kdyz toto makro spustim pomoci
HotKeys, tak se tvari, ze se provede, ale ve skutecnosti nic neudela. Kdyz
jej spustim (odkrokuji pomoci F8) primo ve debug modu VBA, tak se mi makro
provede v poradku a pracuje tak jak ma. Ale pomoci HotKey ani za boha. Muze
mi nekdo poradit, kde delam chybu? Dekuji.

--

S pozdravem a pranim prijemneho dne.

Pavel Cimbalnik (cimb...@cbnet.cz)

[esta...@seznam.cz]

Ahoj

1. Chybí údaj o verzi Excelu.
2. Ve verzi 2003 uvedená zkratka Ctrl+Shift+P aktivuje nástroj
Nastavení velikosti písma:
Zkus po spuštění Excelu a otevření (třeba nového prázdného)
sešitu uvedenou zkratku a sleduj, jestli se číslo velikosti písma
podbarví a okénko s číslem se orámuje. Následně svislé šipky
jestli mění hodnotu velikosti.
Pokud je tomu tak, potom může problém spočívat ve vyšší prioritě
Excelového významu zkratky než tvého přiřazení k makru.
Řešením by pak bylo použití jiné, neobsazené kombinace kláves.

Přeji hezký den.