VBA, FormulaR1C1 a podmínka když

[Martininos1]

Dobrý den všem,

i přes velké vynaložene úsilí nejsem schopen objevit chybu na následujícím řádku:

Range("K" & radek).FormulaR1C1 = "=Když(RC[-2]=100;""Close"";""Open"")"

Chybová hláška je celkem obecná - 1004...

Děkuji za jakoukoli pomoc,

Martin

[Just_jo]

Aktuálně tu nemám MS Office - pouze Open/Libre Office a to je už rozdíl.

Nejsem si jistý, jestli lze použít ve VBA českou verzi "Když" - nepomůže tam nechat "IF"?

[Martininos1]

Bohužel i když zaměním za IF reaguje stejnou chybou. Když vezmu text v uvozovkách a u stavů nahradím dvojité uvozovky za jednoduché a zadm ho ruční cestou do buňky, vše funfuje.

[fatman]

Je v možnostech přepnuto na styl odkazu R1C1? (Možnosti - Vzorce)

[Martininos1]

Záhada odhalena: můsí být zapsáno:

Range("K" & radek).FormulaR1C1 = "=IF(RC[-2]=100,""Close"",""O­pen"")"

Tedy středníky, normálně používané v přímém zadání do buňky byly chybou...

Děkuji,

[Just_jo]

Našel jsem pár fór, kde se zmiňují, jestli je ve sloupci pro "KDYŽ" opravdu číslo.
Prý ta hláška vyskočí, když je tam něco špatně ( závorky, středníky ... ), což v tomto nevidím - i dvoj uvozovky tam máš.

Nemohl bys to nějak rozkouskovat abys odhalil chybu? Tj. místo "Range( "K"
& radek" použít přímo "K5" a místo FormulaR1C1 zkusit jen Formula a místo RC[-2] hodit "I5"
Zkrátka postupně odkrokovat kde to dělá chybu. Někde to vážně dělá jen proto, že ta Formula je špatně napsaná.

Bohužel tu opravdu nemám MS Office ( musel bych do práce )