tak takhle. Kody napiš takto:
sheets("Sum rozpočtu").range("Y7") = true
stačí takto. FormulaR1C1 tam nedávej.
Jinak to znamená že do buňky vloží nějaký vzoreček daným uživatelem. A proto to asík házelo tu chybu...citovat
Zaslal/a marficek119 20.3.2011 21:47
Ahoj, potřebuji radu. V níže uvedeném kódu mám na začátku vypnutí aktualizace obrazovky, ale nějak mě v tomto kódu vůbec nefunguje. Nevíte někdo proč, nebo není v kódu nějaká blbost. Kod slouží k zapnutí/vypnutí zaškrtávacích políček.
Sub Vypočítat_normu()
Application.ScreenUpdating = False
Sheets("Sum rozpočtu").Select
Range("Y7").Select
ActiveCell.FormulaR1C1 = "TRUE"
Range("Y8").Select
ActiveCell.FormulaR1C1 = "FALSE"
Sheets("Sum zkr").Select
Range("AA6").Select
ActiveCell.FormulaR1C1 = "TRUE"
Range("AA5").Select
ActiveCell.FormulaR1C1 = "FALSE"
Sheets("Norma A").Select
Application.ScreenUpdating = True
End Sub
M.
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.