Hledat
Přihlásit se
Věda a technika
Herní doupě
Tipy pro PC
IT Byznys
Mobily
Počítače
Počítače
Témata
Poradna
Diskuzní fórum
Video
Bazar
Blogy
Měření rychlosti
RSS
Programy
Internet
Sociální sítě
Vyzkoušejte
Windows XP
Windows 7
Windows 8
Příkazový řádek
Týden Živě
Zprávy Živě
Testy
Pitvy
Poradna Jak na počítač.cz
Excel zaznamenání hodnot historie
Zpět do Poradny
|
zobrazit bez stromu
| velikost písma
[217.77.161.xxx]
Autor:
17. 8. 2012 12:48
Vloženo:
Word, Excel, Outlook
Kategorie:
Nemohu nikde nalézt jak provést : Vložím do buňky A1 libovolné číslo např. 5 přes makro si vytvořím tlačítko které mi č. 5 přenese do buňky B1 dále v buňce A1 změním č. 5 za č. 6 stisknu tlačítko a č. 6 se mi zaznamená do buňky B2 tedy přímo pod č. 5 atd....
Potřebuji aby zaznamenaná data byla ukládána z vrchu dolů a historicky jsem viděl která čísla byla zaznamenávána před tím - velmi děkuji za Vaší pomoc...
Upozornit redakci
nových odpovědí: 2/2
Odpovědi
G
[88.100.85.xxx] | 17. 8. 2012 16:59
Nástin makra:
Sub Makro()
Dim PoslRadek As Long
PoslRadek = Cells(1, 2).End(xlDown).Row
Cells(PoslRadek + 1, 2).Value = Cells(1, 1).Value
End Sub
Pokud jsou předem vyplněny buňky B1, B2, pak takto "nastíněné" makro pracuje jak jste popsal výše (tj. hodnotu za A1 přenese na B3, dále na B4 atd. Takže z něj můžete vyjít a upravit si jej, jak potřebujete.
Zkoušeno v MS Excel 2007
T
[88.102.192.xxx] | 17. 8. 2012 23:45
Děkuji moc za radu - toto je super.... dííííky
Zasílat odpovědi e-mailem na adresu:
Zasílat odpovědi
DEJTE NÁM
TIP NA ČLÁNEK
8:36
Dell hlásí propad zisku - jen čtvrtina ve…
22:46
Potvrzeno: novým šéfem ČTÚ bude Jaromír Novák
9:56
Další virtuální mobilní operátoři vstoupili na trh
21:04
Babišův týdeník mění podobu a jde i na internet
celkem
322 987
témat
Pro pokročilé
Obnovení systemu
2
Strategie
1
Notebook a office do firmy
13
linux dotaz
8
GK-ATI Mobilit Radeon HD 5470
8
Kopírování na linuxu
9
Linux a vývoj
18
BSOD help
4
Další weby Mladé fronty
předchozí
další
Huawei Ascend D2: do mužských rukou [video]
Na účtech Metropolitního spořitelního družstva je zablokována miliarda
Mitsubishi Outlander 2.2 DI-D 180 k - kůň za tisíc Kč
Experiment: Neexistuju, ale mám 120 přátel na Facebooku
The Last of Us – zrůdy mají mnoho podob (dojmy)
Huawei Ascend G510: tak trochu zbytečný [recenze]
Oligarchové ničí pověst londýnské City
Superbu facelift prospěl. Je stylovější a úspornější
Týden Živě 228: Google I/O, zálohování, hybrid od MSI
Far Cry 3: Blood Dragon - stupidně zábavná střílečka (recenze)
Týden mobilně 181: Lumia 720 a pejsek Puffy
Cestovního pojištění on-line letos přibývá
Montezemolo umí zachovat exkluzivitu
Zprávy Živě: Google I/O, Windows 8.1 a Nvidia Shield
UPDATE: Gran Turismo 6 oznámeno, dorazí ještě na PS3 + obrázky a trailer
Crash test: Apple iPhone 5 vs. míchačka na beton
Sudetští Němci: Pohřběte „zombie“ dekrety
Úspěšný útok na trojcípou hvězdu zahájilo BMW řady 7 E23
Už máme nové mapy od Googlu. Podívete se, jak vypadají
Fire Emblem: Awakening – strategická nirvána (recenze)