Office 2007 - makro Vyřešeno

Programy pro práci v kanceláři (Word, Excel, Access…=>Office)

Moderátor: Mods_senior

palancz
Level 2
Level 2
Příspěvky: 232
Registrován: červenec 10
Pohlaví: Muž
Stav:
Offline

Office 2007 - makro

Příspěvekod palancz » 21 kvě 2012 16:15

Ahoj.

Potřeboval bych poradit s tvorbou makra v excelu. Mám 3 hodnoty - stav skladu (počet kusů na skladě), cena za kus, zisk. Byl bych rád, kdyby se po kliknutí na tlačítko "nákup" spustilo macro, které k hodnotě v buňce "zisk" přičte částku z buňky "cena za kus" a zároveň odečte z buňky "stav skladu" hodnotu 1.
Díky za tipy a rady! :)
Intel Core i5-3350P 3,1GHz + Gelid Solution Tranquillo rev. 2, Radeon HD7870 2GB DDR5 OC, ASUS P8H77-V, 2*4GB Kingston HyperX DDR3, OCZ ZS Series 550W, CoolerMaster Elite 430, Windows 7 Professional 64bit

Reklama
cmuch
Level 4.5
Level 4.5
Příspěvky: 1547
Registrován: březen 11
Bydliště: Drsná Vysočina :D
Pohlaví: Muž
Stav:
Offline

Re: Office 2007 - makro

Příspěvekod cmuch » 21 kvě 2012 16:53

Ahoj,
přilož soubor pro lepší zpracování odpovědi.

palancz
Level 2
Level 2
Příspěvky: 232
Registrován: červenec 10
Pohlaví: Muž
Stav:
Offline

Re: Office 2007 - makro

Příspěvekod palancz » 21 kvě 2012 16:58

Tak tady je ten soubor
Přílohy
makro.xlsm
(10.46 KiB) Staženo 16 x
Intel Core i5-3350P 3,1GHz + Gelid Solution Tranquillo rev. 2, Radeon HD7870 2GB DDR5 OC, ASUS P8H77-V, 2*4GB Kingston HyperX DDR3, OCZ ZS Series 550W, CoolerMaster Elite 430, Windows 7 Professional 64bit

cmuch
Level 4.5
Level 4.5
Příspěvky: 1547
Registrován: březen 11
Bydliště: Drsná Vysočina :D
Pohlaví: Muž
Stav:
Offline

Re: Office 2007 - makro

Příspěvekod cmuch » 21 kvě 2012 18:01

Tady je makro, ale asi to zadání moc nechápu.

Kód: Vybrat vše

Sub zisk()

Range("C10").Value = Range("C10") + Range("B5")
Range("C5").Value = Range("C5") - 1

End Sub

Stačí přiřadit k tlačítku :wink: .

palancz
Level 2
Level 2
Příspěvky: 232
Registrován: červenec 10
Pohlaví: Muž
Stav:
Offline

Re: Office 2007 - makro  Vyřešeno

Příspěvekod palancz » 21 kvě 2012 19:53

Díky ! Funguje
Intel Core i5-3350P 3,1GHz + Gelid Solution Tranquillo rev. 2, Radeon HD7870 2GB DDR5 OC, ASUS P8H77-V, 2*4GB Kingston HyperX DDR3, OCZ ZS Series 550W, CoolerMaster Elite 430, Windows 7 Professional 64bit


  • Mohlo by vás zajímat
    Odpovědi
    Zobrazení
    Poslední příspěvek
  • Office 365: compare sheet Příloha(y)
    od teichmann.ondrej » 03 led 2025 12:32 » v Kancelářské balíky
    1
    2091
    od elninoslov Zobrazit poslední příspěvek
    03 led 2025 17:28
  • Převádění Dokumentu z MS Office do online prostředí
    od zuzana3 » 10 dub 2025 13:00 » v Kancelářské balíky
    1
    3668
    od Gerete Zobrazit poslední příspěvek
    10 dub 2025 13:48
  • Instalace Office 2021 přes Deployment Tool Příloha(y)
    od atari » 30 lis 2024 15:21 » v Kancelářské balíky
    5
    3430
    od atari Zobrazit poslední příspěvek
    01 pro 2024 20:23
  • MS Office nelze spustit - Exception code: 0xc0000005
    od krysarr » 18 dub 2025 15:52 » v Windows 11, 10, 8...
    3
    3509
    od pcmaker Zobrazit poslední příspěvek
    20 dub 2025 20:38
  • Náhrada za Windows 7, Windows XP pro MS Office a internet CZ - Obdobný podobný Windows 7 OS pro 64bit. a 32bit. PC
    od IMB » 28 črc 2024 15:25 » v LiNuX a ostatní alternativní OS
    6
    7867
    od zeus Zobrazit poslední příspěvek
    05 srp 2024 15:30

Zpět na “Kancelářské balíky”

Kdo je online

Uživatelé prohlížející si toto fórum: Žádní registrovaní uživatelé a 1 host