MS Excel

Téma: Přidání datumu do makra

Zaslal/a Fantasyk 12.7.2020 14:21

Zdravím hackeři
mám kód:
Dim datax As Range
Set datax = Sheets("Archív").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
Sheets("Program").Range("A7:E7").Copy Destination:=datax
Set datax = Nothing

zapisuje vše jak má, ale potřeboval bych aby do "Archívu" zapisoval vždy do F aktuální datum a čas - kdy kliknu na tlačítko..

Díky za jakoukoliv pomoc

Příloha: zip

47257_kardex-v.0.1.xlsm.zip (31kB, staženo 15x)

Zaslat odpověď >

Stalker(12.7.2020 14:56)#047258

Dim datax As Range
Set datax = Sheets("Archív").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
Sheets("Program").Range("A7:E7").Copy Destination:=datax
datax.Offset(, 5).Value = Format(Now, "dd.mm.yyyy hh:mm:ss")
Set datax = Nothing
citovat

Uživatelské menu

Nejste přihlášen(a)

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.