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: 140
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
    351
    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
    704
    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
    529
    od MePExG
    30 led 2019 15:31
  • excel datum s lomítky
    od pepan321 » 10 kvě 2019 14:07 » v Kancelářské balíky
    1
    197
    od xlnc
    10 kvě 2019 17:07
  • najít nejstarší datum spotřeby
    od butes » 09 dub 2019 18:07 » v Kancelářské balíky
    4
    768
    od MePExG
    13 dub 2019 21:28

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

Kdo je online

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