Odpověděl/a – 8.červen 0:58
Jak to tak zkoumám, tak problém je asi jen v té češtině ve vzorci, prostě chroustá to jen anglické vzorce. Pokud se tedy chceš držet tohoto již navrženého postupu, tak je nutné to řešit např. takto:
toto:
Set xRgVList = Evaluate(xRg.Validation.Formula1)
nahradit tímto:
Set xRgVList = Evaluate(„=INDIRECT($A$2)“)
On je totiž problém, že zatímco u buněk si lze nechat vypsat jak
originální, tak lokální vzorec, tak u toho ověření lze vypsat jen
lokální a naopak ta funkce Evaluate zas umí vyhodnotit jen originální
(anglický) vzorec. Pro přeložení by šlo třeba použít nějakou buňku,
ale to je takové ještě divnější řešení, než to vložení vzorce
natvrdo do makra.
Pak je variantou to úplně přepsat, ale to bych musel vědět, jak si to
přesně představuješ, abych ti mohl pomoct. Já osobně bych ty seznamy přes
formuláře, to by bylo takové víc profi, třeba už v tom, že změnou země
hned načteš platná města (a nebude ti tam viset to město ze státu, který
byl vybrán před změnou země).