Excel-Vložení aktuálního data do prvního prázdného místa Vyřešeno

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

Moderátor: Mods_senior

Uživatelský avatar
Karrex
Elite Level 10
Elite Level 10
Příspěvky: 9617
Registrován: listopad 08
Bydliště: Brno
Pohlaví: Muž
Stav:
Offline

Excel-Vložení aktuálního data do prvního prázdného místa

Příspěvekod Karrex » 14 srp 2014 18:45

Zdravím, v životě jsem v excelu žádná macra nedělal, proto žádám zdejšího znalce o pomoc. Vedu si menší záznamy (soukromé-proto není příklad) a chtěl bych si ulehčit následující...

Nejlépe přes nějaké tlačítko bych potřeboval, aby se přidalo aktuální datum do buňky.
A v praxi by to mělo fungovat nějak takto:

Mám sloupec A1-Axxx . V něm jsou jen data, potřebuji aby tlačítko do prvního volného pole, které v tom sloupci je, vepsalo aktuální datum, někdy potřebuji klidně vepsat jedno datum několikrát. Prostě, aby si zjistilo první volné pole ve sloupci a tam vypsalo datum. Snad jsem to dobře vysvětlil. Je to realizovatelné? Prosím o návod, či přímo příklad v souboru.

Díky moc
Sestava v profilu.
Watercooling Club EXOverclocker@HWBot league rank#1 Aprilia Shiver Club BMW ///M Club

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: Excel-Vložení aktuálního data do prvního prázdného místa

Příspěvekod cmuch » 14 srp 2014 20:41

K makrum se dostaneš i pomocí Alt+F11.
Makro je v modulu List1
Zjistí první volný řádek od spodu ve sl.A

Kód: Vybrat vše

Sub VlozDatum()

  Cells(Cells(Rows.Count, "A").End(xlUp).Row + 1, "A").Value = Now
End Sub
Přílohy
VlozDatum.xlsm
(17.08 KiB) Staženo 51 x

Uživatelský avatar
Karrex
Elite Level 10
Elite Level 10
Příspěvky: 9617
Registrován: listopad 08
Bydliště: Brno
Pohlaví: Muž
Stav:
Offline

Re: Excel-Vložení aktuálního data do prvního prázdného místa  Vyřešeno

Příspěvekod Karrex » 14 srp 2014 21:34

Super, díky moc, funguje :-) .
Sestava v profilu.
Watercooling Club EXOverclocker@HWBot league rank#1 Aprilia Shiver Club BMW ///M Club


  • Mohlo by vás zajímat
    Odpovědi
    Zobrazení
    Poslední příspěvek
  • EXCEL -jak otevřít 2 excel sobory abych je viděla současne a samostatně
    od Ketty02 » 30 srp 2024 21:19 » v Vše ostatní (sw)
    2
    4832
    od Riviera kid Zobrazit poslední příspěvek
    02 zář 2024 16:21
  • Nelze vytvořit oddíl o velikosti volného místa na HDD Příloha(y)
    od Ddwarf » 25 led 2025 07:31 » v Windows 11, 10, 8...
    7
    2824
    od atari Zobrazit poslední příspěvek
    26 led 2025 09:16
  • Přechod z Excel 21 na Excel 24
    od Snekment » 29 led 2025 13:46 » v Kancelářské balíky
    2
    12250
    od Snekment Zobrazit poslední příspěvek
    29 led 2025 15:05
  • Firemní data a bilocker
    od p3v4x » 12 lis 2024 19:00 » v Vše ostatní (hw)
    3
    2705
    od petr22 Zobrazit poslední příspěvek
    12 lis 2024 22:05
  • Jak permanentně smazat data z USB disku?
    od Patrik92 » 16 pro 2024 18:59 » v Vše ostatní (bezp)
    16
    4825
    od Minapark Zobrazit poslední příspěvek
    17 pro 2024 20:54

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

Kdo je online

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