MS Excel

Zdravím.
Nevíte jak docílit toho, když vyplním jednu buňku, aby se mi automaticky ve vedlejší buňce vyplnilo datum a čas vyplnění buňky pomocí kódu v ThisWorkbook apod.?
Díky H.

Uzamčeno - nelze přidávat nové příspěvky.

Palooo(16.10.2014 15:46)#021907

nato staci vzorec:
=IF(A1<>"";NOW();"")citovat

Stalker(16.10.2014 17:13)#021911

Jednou z možností je toto
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = "1" Then
Cells(Target.Row, Target.Column + 1).Value = Now
End If
End Sub

kód se vloží do modulu listu ve kterém chceš "kontrolovat" datum zápisu. Platí pro sloupec A, do sloupce B se ukládá datum a hodinacitovat

h.paslik(16.10.2014 18:45)#021912

To Palooo: Díky, ale vzorcem to právě nechci, je to na kontrolu termínu zápisu. Now() mi tam bude ukazovat stále aktuální datum.

To Stalker: Díky vyzkouším! Snad to bude OK

citovat

h.paslik(21.10.2014 14:34)#021974

Makro funguje dobře, ale jak to udělat, když chci určit pouze konkrétní buňky a ne celý sloupec?
Tzn. zapíšu něco někam např. do 1 - x buněk pod sebou a vedle těchto buněk chci aby se mi vložilo již zmíněné datum a čas ihned po zápisu.
Díky H.citovat

Stalker(21.10.2014 17:17)#021976

Vyzkoušej:
Private Sub Worksheet_Change(ByVal Target As Range)

Dim Sledovana_oblast As Range

Set Sledovana_oblast = Range("A1,A3,A5:A10") 'kontrolované buňky ve sloupci A
If Target.Cells.Count > 1 Then Exit Sub 'proti hromadnému vkládání dat (do více buněk současně)
If Not Intersect(Target, Sledovana_oblast) Is Nothing Then
With Target(1, 2) 'první řádek slupce B
.Value = Now
.EntireColumn.AutoFit 'automatická šíře sloupce
End With
End If

End Sub

citovat

h.paslik(4.11.2014 11:38)#022135

Perfektně to funguje. Díky!citovat

mrkoun(27.1.2015 7:40)#023301

to Stalker: Díky za to makro na automatické vkládání datumu. SUPER. Je to přesně co jsem hledal

.

Díkycitovat

Téma: Automatické vyplnování datumu ve vedlejší buňce

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje