Příspěvky uživatele
< návrat zpět
tak nevím nevím, zřejmě to souvisí s tím, že jsem měl sešit chráněný heslem. Pokud to uložím pod novým názvem bez hesla a přesunu všechny moje záložky do Vašeho sešitu, tak to funguje. Ovšem pouze na těch Vašich listech.
V okamžiku, když zkopíruju zdrojová data z Listu4 (případně textové pole z listu Hárok1) do nějakého svého listu, tak to už nefunguje :-(
Budu muset tedy ty Vámi vytvořené listy zřejmě zachovat a upravit k obrazu svému. Jaká je správná posloupnost? Prvně napsat makro, poté vytvořit textové pole a následně je přiřadit danému makru? Nechápu, kde dělám chybu. 
https://stackoverflow.com/questions/44939935/microsoft-excel-vba-run-time-error-2147024809-80070057
elninoslov napsal/a:
Ten kód predsa musíte dať do listu "List4", lebo ten sa prepočítava, a pri tomto prepočítaní sa aktualizuje Textové pole v liste Hárok1, teda zmente tento riadok na :
With Hárok1.Shapes("txtPoleSpolu").TextFrame2.TextRange
Tieto riadky tam niesú potrebné ak nemeníte nikde farbu:
Dim text As String
.Font.Fill.ForeColor.RGB = RGB(0, 0, 0)
a 2x
.Fill.ForeColor.RGB = RGB(0, 0, 0)
elninoslov napsal/a:
Ten kód predsa musíte dať do listu "List4", lebo ten sa prepočítava, a pri tomto prepočítaní sa aktualizuje Textové pole v liste Hárok1, teda zmente tento riadok na :
With Hárok1.Shapes("txtPoleSpolu").TextFrame2.TextRange
Tieto riadky tam niesú potrebné ak nemeníte nikde farbu:
Dim text As String
.Font.Fill.ForeColor.RGB = RGB(0, 0, 0)
a 2x
.Fill.ForeColor.RGB = RGB(0, 0, 0)
Díky moc. Popletl jsem to... Nyní to funguje skvěle.
Snad už poslední dotaz k tomuto tématu.
Když nyní přesunu tyto dvě fungující záložky (viz příloha) do jiného sešitu, tak to bohužel nerozběhnu. Do modulu v jiném sešitu přitom vkládám kód z modulu fungujícího sešitu (prostě z přílohy)
píše mi to chybu viz obr.
Do textového pole se přitom nepřenese žádný text - je prázdné. Můžete mi ještě prosím poradit:
- jak to rozchodit
- popsat kde byla chyba a jak to funguje? Nějak to nemůžu pořád pochopit.
děkuji moc
elninoslov napsal/a:
Možno tak jedine udalostné makro ("Calculate"), vzorec tam nemôže byť.Příloha: 42779_vyfarbi-casti-textoveho-pola-pri-calculate.zip (18kB, staženo 6x)
Díky za inspiraci. Trochu jsem si hrál a v podstatě vytvořil s Vaší pomocí to, co chci. Je tu ještě pár detailů, které bych rád doladil.
V přiloženém zipu jsou dva soubory:
calculate_betaT.xlsm
calculate_betaF.xlsm
V prvním souboru funguje vše skvěle. Např. po změně jména v buňce A20 se okamžitě aktualizuje jméno i v textovém poli.
Ve druhém souboru jsem pouze přesunul vstupní data do Listu4. Když nyní změním jméno na Listu4 v buňce B17, tak se bohužel jméno v textovém poli na listu Hárok1 neaktualizuje hned, ale až po zobrazení a spuštění kódu klávesou F5.
Můžete mi prosím poradit, jak mám kód upravit, aby se změna vstupních dat (na jiném listu) projevila v textovém poli okamžitě? (případně po aktivaci listu s textovým polem).
Díky moc
Uživatelské menu
\nMenu
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
Helios iNuvio
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.
RSS nejnovější články