Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then If Target <> "" Then Cells(Target.Row, 2) = Now
End Sub
M@citovat
Zaslal/a lkubes 4.9.2012 19:58
Zdravim,
Prosim o pomoc s nasledujicim ukolem.
Potreboval bych vytvorit funkci nebo makro:
Mam program ktery mi do excelu odecte hodnoty, hodnoty zapisuje je do jednoho sloupce pod sebou do bunek A1,A2, atd. v casovych intervalech.
Potreboval bych aby pri kazdem zapsani do bunky ve sloupci A se priradil cas ve tvaru HH:MM:SS do sloupce B ve stejnem radku.
PS: ja nasem pouze funkci "NOW" ktera mi nic neresi protoze pri kazdem dalsim zapsani se updatujou vsechny hodnoty.
Dekuji predem za pomoc
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
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.