Při změně bunky vlož datum Vyřešeno

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

Moderátor: Mods_senior

luko02420
Level 2
Level 2
Příspěvky: 203
Registrován: únor 12
Pohlaví: Nespecifikováno
Stav:
Offline
Kontakt:

Při změně bunky vlož datum  Vyřešeno

Příspěvekod luko02420 » 15 bře 2019 06:26

Dobrý den, prosím o radu. Potřebuji makro, které při zmeně ve sloupci A1:A100 vloží datum do sloupce D1:D100, vždy do řádku kde došlo ke zmeně.
Děkuji.

Už jsem něco našel na webu Pavla Lasaka a funguje mi to.

jenom pro info přikládám.

Kód: Vybrat vše

Private Sub Worksheet_Change(ByVal Target As Range)

Application.EnableEvents = False
' zapsání do buňky
Application.EnableEvents = True

If Target.Column = 1 Then
    i = Target.Row
   Cells(i, 4).Value = Format$(Now, "dd/mm/yy hh:nn")
End If
End Sub

Reklama
  • Mohlo by vás zajímat
    Odpovědi
    Zobrazení
    Poslední příspěvek
  • MacBook cas a datum
    od ShadowWord:Pain » 01 říj 2023 19:47 » v Vše ostatní (hw)
    3
    2191
    od petr22 Zobrazit poslední příspěvek
    01 říj 2023 20:16
  • Jak hromadně změnit datum a čas souborů?
    od atari » 11 črc 2023 14:41 » v Programování a tvorba webu
    2
    2334
    od atari Zobrazit poslední příspěvek
    13 črc 2023 10:52
  • Problém s připojením na wifi síť při změně PC Příloha(y)
    od Baader » 09 srp 2023 10:38 » v Sítě - hardware
    18
    3028
    od Baader Zobrazit poslední příspěvek
    10 srp 2023 14:16
  • Aktivace Windows po změně disku Příloha(y)
    od JanC » 15 říj 2023 20:32 » v Windows 11, 10, 8...
    24
    3984
    od JanC Zobrazit poslední příspěvek
    08 lis 2023 08:19
  • PowerPoint osekává zvuk při změně snímku
    od Venus » 12 úno 2024 16:35 » v Kancelářské balíky
    2
    1126
    od Venus Zobrazit poslední příspěvek
    13 úno 2024 16:57

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

Kdo je online

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