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 1.5
Level 1.5
Příspěvky: 131
Registrován: únor 12
Pohlaví: Nespecifikováno

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
  • Modrá obrazovka při změně rozlišení
    od Youaresand » 17 lis 2018 13:48 » v Problémy s hardwarem
    3
    322
    od Youaresand
    19 lis 2018 11:55
  • Prestalo mi to fungovat pri zmene exelu na verzi 2016
    od Snekment » 15 čer 2018 15:44 » v Kancelářské balíky
    1
    691
    od elninoslov
    16 čer 2018 12:58
  • Měnící se hodnota buňky vstupní buňky
    od martin.11 » 30 led 2019 10:43 » v Kancelářské balíky
    4
    422
    od MePExG
    30 led 2019 15:31
  • Přehřívání po změně procesoru
    od helpmeboys » 12 zář 2018 16:38 » v Vše ostatní (hw)
    54
    1946
    od Turion
    14 zář 2018 22:14
  • Lze zjistit datum všech změn v souboru?
    od Carny » 17 črc 2018 06:24 » v Windows 10, 8, 7, Vista, XP…
    1
    398
    od atari
    17 črc 2018 09:01

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

Kdo je online

Uživatelé prohlížející si toto fórum: CommonCrawl [Bot] a 2 hosti