Excel - percentá resp. zobrazenie vysledku v bunke povodnej hodnoty

Spustíš makro:

Sub Macro1()
 Range("A1").Value = Range("A1").Value - (Range("A1").Value * Range("A6").Value)
End Sub

Nedalo by sa ti to ukázať na konkrétnom príklade resp. v ukážkovom súbore?

Jinak než makrem mě to nenapadá.

No toto nie je zlé ale čo v prípade že tú cenu chcem zmeniť napr. na pôvodnú? Keď tam zadám 0 percent neurobí to nič.
Skôr by som potreboval spôsob kde môžem "operovať" s percentami tak ako si mi ukázál, ale v prípade že sa potrebujem dostať na počiatočnú hodnotu tak po zadaní 0 percent mi ju ukáže. Proste aby bola v "pamati" stále ta mnou zadaná hodnota vtej bunke.

Ďakujem aj za túto pomoc!

Je potřeba mít jasno v tom, pro kolik čísel toto řešíme. Prakticky omezeni nejsme, můžem vytvořit třeba pole a do toho ta čísla naládovat, i kdyby jich bylo "milion".
Čím víc se ta čísla schovají, tím hůř se budou kdykoliv později upravovat a přepisovat. Opravdu není možné si je např. "odložit" na jiný list sešitu (nebo i do jiného sešitu)?

mam jasne akurat dve bunky! A1 - kde zadavam lubovolne cislo resp. hodnotu v €
a druhu bunku kde znova zadavam lubovolne percenta o ktore chcem tuto cenu ponizit. Ale ked zadam hodnotu percent=0 tak aby mi tam skocila povodna hodnota by som potreboval. Nieco ako cennikova cena s ktorou chcem potom kalkulovat.

Ufff, takže takto?

Presne!

len mám jeden problémik a to je nasledovne.
Pri otvorení súboru mi to dáva chybu:
Run-time error "1004":
Method "range"of object "_Global" failed

pocítať to počíta, ukladať to ukladá ale niekde je ešte zádrheľ..

Funguje mi to v CZ Excel 2007 a EN Excel 2010... na vícero počítačích. Těžko mi to debugovat.

Moas - veľmi si mi pomohol veľmi pekne ďakujem!

los, Siki83 - Vám tiež ďakujem za pomoc ale potrebujem to tak ako mi to Moas urobil! :)

Ešte raz vďaka a považujte to za vybavené

Jestli ti to hází pořád nějakou chybu, tak mi dej verzi Excelu, co máš a ještě se na to podívám.