< návrat zpět

MS Excel


Téma: Načtení buňky při otevření dokumentu rss

Zaslal/a 3.4.2020 11:34

Ahoj,

mám hodně rozsáhlej soubor obsahující tisíce vzorců, které se odkazují na buňku A1. Ta získává z názvu souboru datum pomocí funkce =POLÍČKO("filename"). No a problém je, že při každém uložení tohoto nebo dokonce i jiného současně otevřeného excel souboru dochází k přepočítávání výše uvedené funkce a tím pádem se přepočítavají všechny další vzorce, které odkazují na buňku A1. Přepočet všeho trvá víc jak minutu.

Napadlo, že by to šlo vyřešit tak aby buňka A1 načítala název souboru jako nyní a B1 si z A1 načetla hodnotu pouze při otevření dokumentu. Pozdější změny v A1 by už na B1 neměli vliv. Nevím jak to ale dát do kupy.

Můžete poradit?

Předem díky!

Zaslat odpověď >

#046351
avatar
Sub Auto_Open()
Range("B1") = Range("A1")
End Sub
citovat
#046353
avatar
Díky, nevím proč ale nejde mi to. Když vložím kód do zdrojového kódu listu, hodnotu buňky změní při manuálním spuštení makra. Při otevření dokumentu ale zůstává původní hodnota (makro se nespustí) :/citovat
#046355
avatar
Asi by si to mal vložiť do thisworkbookcitovat
#046360
avatar
A samozřejmě i odkaz v kterém listu to má proběhnout:
Worksheets("list1").Range("B1") = Worksheets("list1").Range("A1")citovat
#046502
avatar
Začalo mi to házet chybu out of range viz screenshot. img

Aktuálně používám na Listu4 alespoň toto:

Sub Workbook_Open()

Range("AJ4") = Range("AJ3")

End Sub

ale musí se to manuálne spustit což je naprd. Můžete prosím poradit jak to rozchodit aby se ten script pustil sám při spuštení tohoto souboru?

Předem díky.citovat
#046503
avatar
OBrázek k předchozímu příspěvku: https://imgur.com/a/NH6YrcAcitovat
#046506
Stalker

RomanMu napsal/a:

OBrázek k předchozímu příspěvku: https://imgur.com/a/NH6YrcA


V tom sešitu nikde není list s názvem List4 !!!citovat
#046507
elninoslov
"List4" je object vo VBA, teda meníme ho List4.Range("A1")... na ušku listu je ale napísané to, čo je v zátvorke, teda "My galaxy data", a tam meníme Worksheets("My galaxy data").Range("A1")...citovat
#046516
avatar
Hmmm, jsem debil. 7 Vyřešeno. Díky 1citovat

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Aktivní diskuse

odpocet a storno tl.

PavDD • 28.3. 8:53

odpocet a storno tl.

Začátečník • 26.3. 14:39

odpocet a storno tl.

PavDD • 26.3. 10:22

odpocet a storno tl.

elninoslov • 26.3. 7:50

odpocet a storno tl.

PavDD • 26.3. 7:26

odpocet a storno tl.

elninoslov • 25.3. 22:34

odpocet a storno tl.

Začátečník • 25.3. 15:09