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: 9595
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
Funguji už jen přes SZ. 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: 1544
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 50 x

Uživatelský avatar
Karrex
Elite Level 10
Elite Level 10
Příspěvky: 9595
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 :-) .
Funguji už jen přes SZ. 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
  • Ukotvení prvního a posledního řádku v tabulce.
    od Kopusek » 13 pro 2023 10:50 » v Kancelářské balíky
    2
    1417
    od Kopusek Zobrazit poslední příspěvek
    14 pro 2023 08:55
  • Rezervační systém pro parkovací místa
    od dvorkatylka » 20 zář 2023 12:25 » v Vše ostatní (sw)
    4
    5048
    od dvorkatylka Zobrazit poslední příspěvek
    02 říj 2023 12:22
  • Data z HDD
    od dadlou » 07 dub 2023 11:30 » v Problémy s hardwarem
    2
    886
    od Sigyam Zobrazit poslední příspěvek
    07 dub 2023 15:24
  • Při vložení DVD hlási XBox chybu "0x803f800d"
    od Zabral68 » 28 čer 2023 19:06 » v Herní konzole
    0
    1014
    od Zabral68 Zobrazit poslední příspěvek
    28 čer 2023 19:06
  • USB-C pouze data ? Příloha(y)
    od ski1961 » 08 říj 2023 10:25 » v Rady s výběrem hw a sestavením PC
    4
    2145
    od ski1961 Zobrazit poslední příspěvek
    08 říj 2023 11:40

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ů