Úprava makra

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

Moderátor: Mods_senior

Jsimi
Level 1.5
Level 1.5
Příspěvky: 119
Registrován: červen 12
Pohlaví: Muž
Stav:
Offline

Úprava makra

Příspěvekod Jsimi » 14 kvě 2017 10:27

Zdravím,
prosím o radu. Vytvořil jsem si tabulku na sledování spotřeby plynu, kam pomocí makra přes inputbox zadávám konečný stav plynoměru.
Potřebuji vyřešit dva problémy.
1. Aby se po potvrzení inputboxu neobjevovala hláška zda chci pokračovat.
2. Při zadání konečného stavu se do tabulky načte datum zadání, aktuální záloha, paušál a cena za kWh. Je možné nějakým spůsobem řešit, aby se záloha a paušál zapsaly do tabulky vždy až k nějakému datumu pouze každý měsíc.
Plyn1.xlsm
(45.59 KiB) Staženo 35 x

Děkuji za pomoc

Reklama
d1amond
člen HW spec týmu
Elite Level 12
Elite Level 12
Příspěvky: 16119
Registrován: květen 08
Bydliště: České Budějovice
Pohlaví: Muž
Stav:
Offline

Re: Úprava makra

Příspěvekod d1amond » 14 kvě 2017 10:38

Na konci vymaž celý řádek s MsgBox a nech pouze Exit Sub.
S tím datumem bych se musel podívat pořádně na zadání, ale to makro je celkově trochu zprasené a musím teď pryč, takže se toho třeba někdo ujme, než se k tomu dostanu.

//předpokládám, že to není Tvé makro?
Nikdy neříkej, že to nejde, protože se najde někdo, kdo o tom neví a udělá to!
Chcete si nechat sestavit nový počítač?

Jsimi
Level 1.5
Level 1.5
Příspěvky: 119
Registrován: červen 12
Pohlaví: Muž
Stav:
Offline

Re: Úprava makra

Příspěvekod Jsimi » 14 kvě 2017 11:02

Plyn.xlsm
(45.65 KiB) Staženo 60 x
Díky,
1.bod vyřešen
Máš pravdu, makro jsem si poskládal tady s fóra. Makro jsem nyní pročistil, popsal jednotlivé kroky a tabulku jsem doplnil o více dat, aby bylo lépe pochopitelné.

d1amond
člen HW spec týmu
Elite Level 12
Elite Level 12
Příspěvky: 16119
Registrován: květen 08
Bydliště: České Budějovice
Pohlaví: Muž
Stav:
Offline

Re: Úprava makra

Příspěvekod d1amond » 15 kvě 2017 00:09

Zkus si sám vymyslet podmínku, za které se bude datum doplňovat.
Používáš smyčku, ale nemáš ošetřené zacyklení. Šlo by to řešit jen pomocí IF.
Nikdy neříkej, že to nejde, protože se najde někdo, kdo o tom neví a udělá to!
Chcete si nechat sestavit nový počítač?


  • Mohlo by vás zajímat
    Odpovědi
    Zobrazení
    Poslední příspěvek
  • Úprava pc pro Kingdome Come Deliverance 2
    od barryk10cz » 07 led 2025 17:00 » v Rady s výběrem hw a sestavením PC
    13
    4948
    od Hangli Zobrazit poslední příspěvek
    09 led 2025 22:42
  • bitmapová grafika - úprava fotografií, retuše, filtry.
    od zuzana3 » 10 kvě 2025 11:32 » v Design a grafické editory
    2
    6725
    od zuzana3 Zobrazit poslední příspěvek
    10 kvě 2025 17:31
  • Oficiální úprava Windows 11 do podoby klasických Windows (Windows 7)
    od IMB » 26 říj 2025 14:30 » v Windows 11, 10, 8...
    0
    2238
    od IMB Zobrazit poslední příspěvek
    26 říj 2025 14: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 20 hostů