MS Excel

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.

Zaslat odpověď >

Strana: 1 2 další »

Niffki(21.3.2011 6:12)#004386

Ahoj, možno to dělá ty selecty v kódu. Pokud něco vybíráš a máš zapnuto screenupdating tak to moc nefunguje.

Zkus třeba do kódu zadat tohle:
range("AA5").formulaR1C1 = "false"

Přepiš všechny tyto části kódu a snad to půjde, uvažuji takhle od oka.citovat

marficek119(21.3.2011 6:50)#004390

Tak jsem to zkusil, ale je to stále stejné. Možná na to jdu špatně. Potřebuji na pozadí vypnout dvě zaškrtávací tlačítka ve formulářích, ale bez toho aby se aktivoval list na kterém zaškrtávací tlačítka jsou. Takto to tedy funguje, ale, potřebuji, aby se to provádělo na pozadí. Možná někdo poradí elegantnější řešení?

Application.ScreenUpdating = False
Sheets("Sum rozpočtu").Select
Range("Y7").FormulaR1C1 = "FALSE"
Range("Y8").FormulaR1C1 = "FALSE"
Sheets("Sum zkr").Select
Range("AA6").FormulaR1C1 = "TRUE"
Range("AA5").FormulaR1C1 = "FALSE"
Sheets("Jádro A").Select
Application.ScreenUpdating = Truecitovat

Niffki(21.3.2011 8:05)#004393

a co zkusit toto:

sheets("Sum rozpočtu").range("X7").FormulaR1C1 = false

sheets("Sum zkr").Range("AA6").FormulaR1C1 = truecitovat

marficek119(22.3.2011 6:43)#004401

Tak vyzkoušeno, vyskakuje chyba kódu, nevím zda je kód napsán správně:
Application.ScreenUpdating = False
Sheets("Sum rozpočtu").Range("Y7").FormulaR1C1 = True
Sheets("Sum rozpočtu").Range("Y8").FormulaR1C1 = False

Sheets("Sum zkr").Range("AA6").FormulaR1C1 = True
Sheets("Sum zkr").Range("AA5").FormulaR1C1 = False
Sheets("Jádro A").Select
Application.ScreenUpdating = Truecitovat

Niffki(22.3.2011 9:51)#004403

Zkusil jsem tvůj a mě to funguje. Zkus přihodit tvůj soubor nebo něco podobné a můžem na tu juknout.citovat

marficek119(22.3.2011 20:12)#004408

Problém je v tom, že chyba vyskakuje u kódu, který je napojen na checkbox. Je to složité, originál sem z důvodu firemních dat dát nemohu, tak jsem připravil rychlou ukázku.
Co tedy potřebuji:
Na prvním listu kliknu na tlačítko a to by mělo na listu "Sum rozpočtu" a "Sum zkr" vypnout checkbox práce a zapnout materiál. Po této úloze se aktivuje list "Přehled".
Důležité je, že potřebuji, aby se celá úloha provedla na pozadí, tak aby nebyla zaregistrována.
Napadlo mě, že by se mohl kódem přepsat text v buňce na který je "napojen " Checkbox" př. je propojen s buňkou A1, tak přepsat na PRAVDA nebo NEPRAVDA. Je to jen úvaha, jsem v koncích.
Dík za tip

Příloha: rar